Msg Box enregistrer sous

Fermé
corb3au Messages postés 32 Date d'inscription vendredi 22 septembre 2017 Statut Membre Dernière intervention 27 janvier 2022 - Modifié le 29 sept. 2017 à 13:42
m@rina Messages postés 21182 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 16 décembre 2024 - 29 sept. 2017 à 14:24
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

1 réponse

m@rina Messages postés 21182 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 16 décembre 2024 11 368
29 sept. 2017 à 14:24
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