Bonsoir,

j ai le code suivant, qui doit fermer le fichier, enregistrer les modifications et fermer l'application Excel
mais à l'exécution de la macro, le message de confirmation pour les modifications s'affiche quand même

pourriez vous m aider sur la question svp

merci d avance

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Macro2()
'
 
    Sheets("Etat des Bons et Compteur").Select
    ActiveSheet.Unprotect
    ActiveWindow.Close
    Sheets("Etat des Bons et Compteur").Select
    Range("A2:J500").Select
    Selection.ClearContents
    Range("A2").Select
    Sheets("Menu").Select
 
    MsgBox (" Transfert des données réussi, vous allez quitter le fichier ! "), vbOKOnly
 
    Sheets("Etat des Bons et Compteur").Visible = xlVeryHidden
    Sheets("Menu").Select
 
    Application.AlertBeforeOverwriting = False
    ThisWorkbook.Save
    Application.Quit
 
 
End Sub