Fermeture fichier

Bonjour à tous,

j'ai une question bête... Je travaille sur un fichier pour lequel j'aimerais supprimer le message d'alerte de sauvegarde...

Voici mon code :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.DisplayAlerts = False
 repons = MsgBox("Voulez-vous enregistrer les modifications ??", vbYesNo)
 If repons = vbYes Then
ActiveWorkbook.Close True
Else
ActiveWorkbook.Close False
End If
Application.Quit
Application.DisplayAlerts = True
End Sub

Le code fonctionne bien mais par contre la msgbox s'affiche 2 fois !?! Je vous joins un fichier test avec le code en question.

Merci beaucoup de votre aide!

Bonne journée,

Amicalement

Bonjour

Pourquoi réinventer la roue ?

Par défaut tu auras toujours cette question

Et tu auras le choix de sauvegarder ou non et tout cela sans macro

Ou alors (comme d'habitude) une subtilité m'échappe

Bonjour Banzai,

Oui, tu as raison, je m'embête pour rien...

Merci pour ton conseil, plein de bon sens !

Bonne journée,

Amicalement