Discussion :

[borgfabr]

Bonjour,

J'ai un document de fusion, au fond du quel il y a la date du jour.

J'aimerai qu'à chaque ouverture de ce document, la date affichée ne soit pas celle du jour mais celle d'il y a 4 jours.

J'ai fait via une macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub DropDay()
 
Dim mBefore As Date
   mBefore = DateAdd("d", -4, Date)
   Selection.InsertBefore mBefore
 
End Sub

Je ne sais pas comment faire pour que le résultat soit écrit à mon emplacement précis et à chaque ouverture.

Merci d'avance de votre aide !

[Heureux-oli]

Salut,

Tu dois placer un signet dans ton document.
Et injecter la donnée sur le signet.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub DropDay()
 
ActiveDocument.Bookmarks("MaDate").Range.Text = DateAdd("d", -4, Date)
 
 
End Sub

[carden752]

Bonjour,

Pour le réaliser à chaque opération, il te faut faire appel à la procédure de Heureux-Oli dans la procédure Document_Open()

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Document_Open()
Call DropDay
End Sub

[borgfabr]

Oui je l'avais fait merci en tout cas pour la précision.

Tout fonctionne parfaitement !

[borgfabr]

En fait cela fonctionne bien quand je fais un nouveau document depuis mon modèle (MonFichier.dotm)

Par contre quand je lance depuis mon programme de fusion rien ne s'affiche dans ma date.

Qqn a une idée ?

Merci

[carden752]

Bonjour,

Il faut interepter l'évènement MailMergeAfterMerge qui est l'évènment après la fusion des champs du document.