Discussion :

[Arsene12]

Bonjour, j'effectue une macro qui modifie une page et j'aimerai ne plus voir apparaitre la boite de dialogue "voulez-vous enregistrer les modifications" lorsque le document se ferme. Je dois cliquer à chaque fois sur "non". Connaissez-vous le code à appliquer?

Je pense que cela revient à annuler toutes les modifications apportées au document ouvert.

Merci de votre aide.

[Heureux-oli]

Salut,

si j'ai bien tout lu, le but est de fermer le document sans sauvegarde et sans boîte de message.

La solution serait de mettre la propriété

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveDocument.Saved = True

C'est sur cette propriété que se base Word pour afficher ou non la boîte de dialogue.

Une autre option serait de fermer le document pas un bouton qui ne ferait pas de sauvegarde.
Si tu veux que tout fonctionne sans intervention.

Il faut créer un module de classe dans ton document !
Y coller ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Option Explicit
 
Public WithEvents wApp As Word.Application
 
 
Private Sub wApp_DocumentBeforeClose(ByVal Doc As Document, Cancel As Boolean)
 
Doc.Saved = True
End Sub

Et donner au module le nom suivant : EventClassModule.

Dans ThisDocument, coller ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Option Explicit
Dim X As New EventClassModule
Sub Document_Open()
    Set X.wApp = Word.Application
End Sub

Sauvegarder fermer et réouvrir le document.

[Arsene12]

Merci beaucoup. La première solution me convient trés bien. J'étudierai la seconde lorsque je m'y connaitrai davantage en visual basic.