détermination automatisée du nom d'un .doc

[fspada]

Bonjour à tous,

J'ai créer un modèle sous Word me permettant de remplir un document type formulaire. Dans ce document j'ai plusieurs champs dont "NOM", "Prénom", "Datedujour".

J'aimerai faire une macro me permettant d'enregistrer le nouveau document avec un nom du type : NOM Prénom Datedujour.doc (exemple : DUPONT Jean 02.05.08.doc).

En fait je cherche à déterminer un nom de façon automatisée en fonction de champs variables.


Merci du coup de main.

[Heureux-oli]

Bonjour et bienvenue sur les forums Office de DVP !

Malheureusement, il n'y a pas d'évènement Document_Save en Word, ce qui aurait simplifié la tâche, mais il y a u évènement Document_Close.

En supposant que cette macro interviennent lors de la sauvegarde du document elle pourrait donner ceci :

Code :

1
2
3
4
5
6
Sub Document_Close()
Dim stChemin As String
 
stChemin = "C:\MonRepertoire\"
ActiveDocument.SaveAs stChemin & ActiveDocument.FormFields("NOM") & _ " " & ActiveDocument.FormFields("Prenom") & " " & Format(Date, "dd mm yyyy") & ".doc"
End Sub

On peut aussi envisager de mettre l'exécution de ce code sur un bouton !