Recherche:

Je crois que maintenant c'est parfaitement clair
Merci

Bon ben j'ai fait avec une variable Boolean globale , tant pis.

J'ai essayé aussi

Dim Tmp As String
Tmp = ThisDocument.AttachedTemplate.Name
Tmp = ThisDocument.Name
Au démarrage les deux me renvoie "normal.dotm"
si je sauvegarde le fichier Word le nom dans...

Ben non si je fais comme ça j'ai quand même un path

Je vais faire le test sur "Roaming" avec Instr et si <> 0 alors c'est la première sauvegarde.

En gros tu ouvres Word tu travailles quand tu sauvegardes la première fois tu donnes un nom , et les fois suivantes tu enregistres simplement sous le nom que tu as donné précédement.
En fait c'est...

Dans le premier cas je propose un nom par défaut avec la date du jour ,et ce nom doit être modifié par l'opérateur

Actuellement je fais ainsi

Set WshShell = CreateObject("WScript.Shell")
ChangeFileOpenDirectory WshShell.SpecialFolders("MyDocuments")
With Dialogs(wdDialogFileSaveAs)
.Name...

Bonsoir,
J'ai fait une macro qui sauvegarde mon fichier dans Documents

Set WshShell = CreateObject("WScript.Shell")
ChangeFileOpenDirectory WshShell.SpecialFolders("MyDocuments")
...