Enregistrer

Bonsoir

j'ai un bouton quittez sur le classeur il enregistre aussi mais j'aurais aimé qu'il me donne le choix de ne pas enregistrer avant fermeture Sub Oval21_Click()

ThisWorkbook.Save

Application.Quit

End Sub

Bonjour,

Un fichier à tester avec un autre bouton puisque je n'ai pas votre fichier

Sub Sauver()
If MsgBox("Confirmez-vous l'enregistrement de ce dossier ?", vbYesNo, "Demande de confirmation d'enregistrement") <> vbYes Then Exit Sub
   ActiveCell.Select
    ActiveWorkbook.Save
    Application.Quit
End Sub

Amicalement

Pierrot

Bonsoir et merci pour votre aide

le code fonctionne bien sauf si je réponds non il ne ferme pas le classeur

je vous joins le fichier

Bonjour, chtimili

Grâce aux actions combinées de Banzai64 et grisan29

j'ai une solution à vous proposer

le fichier se ferme si on choisit non à l'enregistrement.

N'oubliez pas la coche verte de résolution du problème.

Amicalement

Pierrot

Merci a vous