tactic6
XLDnaute Impliqué
Bonjour le forum et tous les autres
pour fermer mon classeur excel j'utilise cette macro
actuellement j'ai deux boutons "OUI" et "NON"
quand je clic sur OUI mon classeur se ferme et enregistre tout le travail effectué
quand je clic sur NON rien ne se passe
J'aimerais y ajouter un 3° bouton " ANNULE" pour y ajouter le code actuel du "NON" et mettre un code sur le "NON" afin qu'excel se ferme sans enregistrer les modifications.
Est-ce possible ?
Merci pour votre aide
Voici mon code:
pour fermer mon classeur excel j'utilise cette macro
actuellement j'ai deux boutons "OUI" et "NON"
quand je clic sur OUI mon classeur se ferme et enregistre tout le travail effectué
quand je clic sur NON rien ne se passe
J'aimerais y ajouter un 3° bouton " ANNULE" pour y ajouter le code actuel du "NON" et mettre un code sur le "NON" afin qu'excel se ferme sans enregistrer les modifications.
Est-ce possible ?
Merci pour votre aide
Voici mon code:
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
Dim Table() As String
Dim w As Workbook
Dim style As Integer
Dim msg As String, title As String, Response As String
msg = " ATTENTION ceci va quitter et enregistrer le Voulez vous continuer ?"
style = vbYesNo + vbDefaultButton2
title = "Attention!! "
Response = MsgBox(msg, style, title)
If Response = vbYes Then
'ThisWorkbook.Save
'Application.DisplayAlerts = False
'ThisWorkbook.Close
Application.DisplayAlerts = False
Application.ScreenUpdating = True
For Each w In Application.Workbooks
w.Save
Next w
Application.Quit
End If
Application.DisplayAlerts = False
End Sub