Boîte de dialogue "Enregistrer sous" [Résolu]

[scrouet]

Bonjour.

Y a-t-il un moyen de modifier la boîte de dialogue "Enregistrer sous" de Word ?
Je souhaite en effet l'afficher en proposant un nom et un répertoire de sauvegarde pour le fichier courant à l'utilisateur, libre à lui de les conserver ou de les changer avant d'enregistrer (ou pas) le fichier.
La fonction GetSaveAsFilename fonctionne bien dans ce sens pour Excel, mais ne semble pas avoir d'équivalent sous Word.

[Heureux-oli]

Pour le format :

Code :

Application.DefaultSaveFormat = "rtf"

Et encore ceci
L'avantage de la procédure qui suit est qu'elle n'a d'effet que sur la session Word en cours.

Code :

1
2
3
4
 Sub testOpen()
  ChangeFileOpenDirectory "C:\temp"
  Dialogs(wdDialogFileSaveAs).Show
 End Sub

Mais on peut aussi utiliser

Code :

Application.Options.DefaultFilePath "c:\temp"

L'inconvenient de cette dernière est que la modification est permanente.

[scrouet]

OK, mais ça ne me permet pas de proposer un nom de fichier.

[Heureux-oli]

Code :

1
2
3
4
5
6
7
8
Sub Test()
With Application.FileDialog(msoFileDialogSaveAs)
    .Show
    .InitialFileName = "Moi.doc"
End With
 
 
End Sub

[scrouet]

Merci. C'est exactement ce que je voulais.

[spads81]

Bonjour,
Mais comment dire à word d'appeler la méthode Test() lorsque l'utilisateur clique sur le bouton "sauvegarder sous" ou lorsqu'il fait Ctrl + S ?

[Heureux-oli]

Test c'est parce que c'est un essai et c'est assez court.