Msg Box enregistrer sous

corb3au Messages postés 37 Statut Membre -  
m@rina Messages postés 26487 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

J'ai un modèle Word avec comme macro :

Sub FileSave()
Dim rep
rep = MsgBox("Avez vous mis à jour le sommaire et les tableaux", 4 + vbExclamation)
If rep = vbNo Then Exit Sub
ActiveDocument.Save
End Sub

Je voudrais que le même macro sois prise en compte quand je fais enregistrer sous.

Merci pour vos réponses
A voir également:

1 réponse

m@rina Messages postés 26487 Date d'inscription   Statut Contributeur Dernière intervention   11 485
 
Bonjour,

FileSaveAs fonctionne avec les anciennes versions, mais pas les nouvelles du fait de la configuration différente qui fait que la fonction n'ouvre pas de boîte de dialogue.

m@rina
0