Code vba msgbox pour fermer un classeur et enregistrer
Résolu
sylla.junior2
-
sylla.junior2 -
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"
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"
A voir également:
- Vba fermer fichier
- Fichier bin - Guide
- Fichier epub - Guide
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
- Fichier .dat - Guide
1 réponse
Bonjour,
Procédure à placer dans le module ThisWorkbook du classeur concerné :
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
sylla.junior2
merci infiniment frère cela marche merci pour tout ce que tu apportes au monde
sylla.junior2
merci j'ai compris le message passe et le classeur se ferme parfaitement