Confirmation enregistrement fermeture classeur

Bonjour,

Depuis quelques jours, j'ai la fenêtre qui me demande si je veux enregistrer ou non mon classeur quand j’appuie sur mon bouton pour quitter, qui fait cela :

Sub quitter()

 With Application
        Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
        Application.DisplayFormulaBar = True                        
        Application.DisplayStatusBar = True                         
End With
With ActiveWindow
        .DisplayHeadings = True                                      
        .DisplayHorizontalScrollBar = True                       
        .DisplayWorkbookTabs = True                                    
End With

ActiveWorkbook.Save
If Workbooks.Count = 1 Then Application.Quit
If Workbooks.Count > 1 Then ActiveWorkbook.Close

End Sub

Donc je ne comprends pas pourquoi il me demande d'enregistrer puisque c'est la dernière chose que je fais dans la macro.

Merci !

Bonjour Thrrybo,

En effet tu as ActiveWorkBook.Save qui va s'appliquer sur le classeur actif.

Il serait aussi préférable d'indiquer la valeur True pour enregistrer les changements.

Par contre lorsqu'il y a plus d'un classeur ton ActiveWorkbook.Close va lancer le message de fermeture

If Workbooks.Count > 1 Then 
ActiveWorkbook.saved = True
ActiveWorkbook.close
End if

Bonjour X Cellus,

Je vais ajouter cela,

En fait, c'était à cause du ActiveWorkbook.RefreshAll que j'avais mis ThisWorkbook_beforeClose.

Maintenant c'est réglé, merci !