Francois Gatto a écrit :
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
Rebonjour,
Merci beaucoup pour cette réponse rapide et surtout qui fonctionne.
Utilisatrice d'OOo depuis 2 ans je sui encore souvent étonné de ses
fonctionnalité et de sa communauté.
Bon courage à tous et encore merci
___________________________________________________________________________
Yahoo! Mail réinvente le mail ! Découvrez le nouveau Yahoo! Mail et son interface révolutionnaire.
http://fr.mail.yahoo.com
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
