Option Explicit
'Fermeture avec Save
ThisWorkbook.Save
If Application.Workbooks.Count > 1 Then ThisWorkbook.Close Else Application.Quit
'Fermeture sans Save
If Application.Workbooks.Count > 1 Then
ThisWorkbook.Close savechanges:=False
Else
Application.DisplayAlerts = False
Application.Quit
End If
'Si le classeur a été modifié, demander si enregistrer ?
If Not ThisWorkbook.Saved Then
Réponse = MsgBox("Enregistrer les modifications ?", vbYesNoCancel + vbQuestion)
'Annuler
If Réponse = vbCancel Then Exit Sub
'Enregistrer les modifications
If Réponse = vbYes Then
ThisWorkbook.Save
MsgBox "Classeur enregistré !"
If Application.Workbooks.Count > 1 Then ThisWorkbook.Close Else Application.Quit
'Ne pas enregistrer les modifications
Else
Réponse = MsgBox("Êtes-vous sûr de ne pas vouloir enregistrer les modifications ?", vbYesNo + vbQuestion)
If Réponse <> vbYes Then Exit Sub
If Application.Workbooks.Count > 1 Then
ThisWorkbook.Close savechanges:=False
Else
Application.DisplayAlerts = False
Application.Quit
End If
End If
'Le classeur n'a pas été modifié
Else
If Application.Workbooks.Count > 1 Then ThisWorkbook.Close Else Application.Quit
End If