Bob a écrit :
ça doit être ça :
=EOMONTH(TODAY();0)
Pas tout à fait, en le traduisant avec une macro
=com.sun.star.sheet.addin.Analysis.getEomonth(TODAY();0)
J'y pensais plus à ces histoire de formules locales.
Du coup plus simple:
MaFeuille.getcellRangebyName("B2").FormulaLocale =
"=FIN.MOIS(AUJOURDHUI();0)"
Merci pour le coup de pouce. :-)
Je joins donc le code qui me permet d'inscrire la période mois ou d'une
année dans une feuille
Sub PeriodeMois ' période du mois en cours
MaFeuille = ThisComponent.CurrentController.ActiveSheet
MaFeuille.getcellRangebyName("PeriodeDebut").FormulaLocal
="=DATEVAL(""01/""&MOIS(AUJOURDHUI())&""/""&ANNEE(AUJOURDHUI()))"
MaFeuille.getcellRangebyName("PeriodeFin").FormulaLocal =
"=FIN.MOIS(AUJOURDHUI();0)"
End Sub
Sub PeriodeAnnee 'période de l'année en cour
MaFeuille = ThisComponent.CurrentController.ActiveSheet
MaFeuille.getcellRangebyName("PeriodeDebut").FormulaLocal =
"=DATEVAL(""01/01/""&ANNEE(AUJOURDHUI()))"
MaFeuille.getcellRangebyName("PeriodeFin").FormulaLocal =
"=DATEVAL(""31/12/""&ANNEE(AUJOURDHUI()))"
End Sub
Jluc
Jovial wrote:
Bonjour
En B2 ma formule =FIN.MOIS(AUJOURDHUI();0) me donne le dernier jour
du mois
Je veux inscrire la même formule par macro je fais
MaFeuille.getcellRangebyName("B2").Formula = "=FIN.MOIS(AUJOURDHUI();0)"
6 messages in org.openoffice.fr.progRe: [prog] Attribution .Formula erreur
