Hanène JEBARI wrote: > Bonjour, > > J'aimerais savoir comment je peux ajouter des mois a une date dans une > macro > > Sous Calc je sais qu'on peut utiliser MOIS.DECALER(date ; nbmois) ou > encore DATE( ANNEE( date); MOIS(date) + nbmois; JOUR(date)) > Mais lorsque j'essaie d'insérer cela dans un doc WRITER au travers d'une > macro cela ne fonctionne pas > > > HELP
Peut-être que cela te conviendra : Sub AujourdhuiDemain Dim DateJour As Date Dim DateJour_uneSemaine As Date Dim DateJour_unMois As Date Dim sMsg As String 'date de reference DateJour = Date() REM DateAdd(Dureedereference,AddOuSoustrait_Nfois,Datedereference) REM Consulter l'aide en ligne DateJour_uneSemaineApres = DateAdd( "ww", 1, DateJour ) DateJour_unMoisApres = DateAdd( "m", 1, DateJour ) DateJour_unMoisAvant = DateAdd( "m", -1, DateJour ) sMsg = "Nous sommes le " & DateJour sMsg = sMsg & Chr(10) & "Dans 1 semaine nous serons " & DateJour_uneSemaineApres sMsg = sMsg & Chr(10) & "Dans 1 mois nous serons " & DateJour_unMoisApres sMsg = sMsg & Chr(10) & "Il y a 1 mois nous étions " & DateJour_unMoisAvant MsgBox sMsg End Sub -- Francois Gatto --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]