Msg Box enregistrer sous

corb3au Messages postés 32 Date d'inscription   Statut Membre Dernière intervention   -  
m@rina Messages postés 23905 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 23905 Date d'inscription   Statut Contributeur Dernière intervention   11 464
 
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