Msg Box enregistrer sous
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
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
