Quitter / Enregistrer

Bonjour,

J'aimerais mettre un bouton Quitter sur ma feuille Menu et en même temps qu'il m'enregistre le fichier automatiquement lors de sa Fermeture mais avec une MsgBox avec un oui ou non (c'est en cas d'erreur).

Merci

Bonjour,

Ci joint un petit fichier qui doit répondre à ton besoin.

Cdt

Sam

Bonjour Sam,

Merci pour ta réponse.

Ca fonctionne bien

Entre temps j'ai trouvé ça sur le forum

comment pourrais je mettre une msgbox de confirmation dans ce code si dessous

Public Sub QuitterExcel()
Dim Wk As Workbook
    For Each Wk In Application.Workbooks
        If Wk.Name <> ThisWorkbook.Name Then
            Wk.Close True 'ou False Selon que tu veux enregistrer les classeurs en quittant ou pas...
       End If
    Next
    Application.Quit
    ThisWorkbook.Close True
End Sub