Date automatique WORD

Fermé
carolineD - 20 avril 2015 à 18:14
m@rina Messages postés 20042 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 20 avril 2024 - 22 avril 2015 à 00:59
Bonjour,

J'ai besoin de votre aide!

Ma patronne me demande sur une page Word de mettre une date et que la même date +3mois ressorte sans passer par un tableau excel.
Je ne m'en sors pas du tout !

Merci de votre aide.

A voir également:

2 réponses

Raymond PENTIER Messages postés 58389 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 18 avril 2024 17 090
20 avril 2015 à 22:00
Si la première date est le 30 novembre 2014, quelle doit être exactement la seconde date ?

C'est toi qui est chargée de saisir la première date, ou est-ce que quelqu'un d'autre peut devoir le faire ?
0
Bonjour,

La seconde date sera le 28 Février 2015. Et c'est moi qui rentre la première date.

Merci de votre aide.
0
Raymond PENTIER Messages postés 58389 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 18 avril 2024 17 090 > carolineD
21 avril 2015 à 21:43
Donc il ne s'agit pas de mois standard de 30 jours, comme pratiqué en commerce-gestion.
Il ne s'agit pas non plus de changer le mois sans toucher au jour (ce qui donnerait 30 février 2015).
Il faut donc un calcul plus sophistiqué, que Word ne permet pas.
Alors comme c'est toi qui entre les dates, tu ne t'occupes pas des lubies de ta patronne (qui ne connaît pas Word) et tu saisis toi-même les deux dates au clavier ...
0
m@rina Messages postés 20042 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 20 avril 2024 11 269
22 avril 2015 à 00:59
Bonjour,

Avec les champs, c'est beaucoup trop compliqué.
Mais avec une macro, on peut faire simple, et en utilisant la fonction DateAdd, tu n'auras pas de date fausse (contrairement aux champs qui ne savent pas combien de jours dans un mois et combien de mois dans une année !).

La macro :
Sub date3mois()
Dim date1 As Date, date2 As Date
date1 = "30/11/2014"
date2 = DateAdd("m", 3, date1)
MsgBox date2
End Sub

Cette macro t'affiche la date + 3 mois dans un message. Maintenant, tout dépend de la manière dont tu as saisi la première date : champ ? contrôle de contenu ?...

m@rina
0