Ajouter un message d'alerte avant d'enregistrer un fichier

Parfait, encore merci.

J'ai réussi a mettre un message et mettre oui ou non.
Par contre je n'arrive pas à faire en sorte que quand je mets non, je revienne en arrière.
Voici mon code
Dim WithEvents oWdApp As Word.Application

Sub Document_Open()

Set oWdApp = Word.Application

End Sub

Sub oWdApp_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)
If MsgBox("Avez-vous mis à jour le sommaire et les tableaux?", vbYesNo, "Demande de confirmation") = vbYes Then

End If

End Sub

Ah je viens de me rendre compte qu'en plus avec cette solution, le message se met dans tous mes documents

Oui mais pour utiliser un modèle, on le met dans le dossier des modèles. Ensuite, on fait Fichier => Nouveau et on choisit le modèle. Donc on crée un nouveau document qui ne risque pas d'écraser le modèle.

Parfait parfait.

J'avais mis le document en modèle pour qu'il n'y ai aucun risque d'écraser le document.
Mais vu vos différentes remarque, je l'ai mis en document normal.

Donc, c'est un "vrai" modèle qui sert à créer de nouveaux documents ? Il faut donc l'utiliser comme un modèle.
A titre d'infos les blocs de construction ne peuvent s'enregistrer effectivement que dans un modèle (un modèle quelconque, le Normal.dotm, ou un builidng blocks.dotx).
Ce qui est normal vu l'utilisation qui est prévue pour cela, à savoir créer un nouveau document et faire des choix de blocs.