Liste CGO a écrit :
Bonjour,
J'ai pris le fil un peu en retard mais j'ai tout de même testé les solutions
proposé que je trouve intéressante.
Entre parenthèse, j'aurai bien aimé savoir aussi comment faire pour réaliser
cette fonction avec Word de manière "simple", je ne comprend pas la syntaxe
du code du champ et je n'ai pas trouvé de doc à ce sujet.
Salut,
Ah, de manière simple, voilà une précision utile ...
Aujourd'hui je n'ai pas Word sous la main, il vaudrait mieux regarder
dans les archives de microsoft.public.fr.word
Pour une macro il devrait y avoir quelque part une formule du style
Public Function DateSuiv(DateP As Date) As Date
If Month(DateP) = 12 then
DateSuiv = DateSerial(Year(DateP) + 1, 1, Day(DateP))
Else
DateSuiv = DateSerial(Year(DateP, Month(DateP) + 1, Day(DateP))
Endif
End Function
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
