Code vba msgbox pour fermer un classeur et enregistrer

Résolu/Fermé
Signaler
-
 sylla.junior2 -
Bonjour,
je souhaiterais sans toute fois vois gener avoir un bon code pour fermer un classeur et l'enregistrer.
voila le premier message: " voulez vous enregistrer waraba?" oui non annuel
voila deuxieme message " merci d'utiliser ce logiciel que le seigneur te protège"

1 réponse

Messages postés
12257
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
3 septembre 2021
2 667
Bonjour,

Procédure à placer dans le module ThisWorkbook du classeur concerné :

Dim DejaFait As Boolean

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Rep As Integer
If DejaFait Then Exit Sub
Rep = MsgBox("voulez vous enregistrer waraba?", vbYesNoCancel, "Enregistrement")
Select Case Rep
    Case 2
        'Si annuler on retourne dans le classeur sans rien faire
        Cancel = True
        Exit Sub
    Case 6
        'si oui, on sauvegarde
        ThisWorkbook.Save
    Case 7
        'si non,
        DejaFait = True
        MsgBox "merci d'utiliser ce logiciel que ........ te protège"
        'on quitte sans sauvegarder
        ThisWorkbook.Close False
        Exit Sub
    Case Else
        'dans tous les autres cas
        '(appui d'un bouton imaginaire de manière inopinée et spontané)
        MsgBox "Oulala, c'est inimaginable!"
        Exit Sub
End Select
MsgBox "merci d'utiliser ce logiciel que ........ te protège"
End Sub

1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 41989 internautes nous ont dit merci ce mois-ci


merci infiniment frère cela marche merci pour tout ce que tu apportes au monde
merci j'ai compris le message passe et le classeur se ferme parfaitement