msgbox a la fermeture

Bonjour

un petit code du genre

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If MsgBox('Voulez-vous vraiment fermer ?', vbYesNo) = vbNo Then Cancel = True
End Sub

Bon courage

salut titi et le forum,
tu peux écrire qqe chose du style :

Sub Fermer_fenetre()

Dim Message As String
Dim Style As String
Dim Titre As String
Dim flag

Message = 'voulez vous quitter Excel? '
Style = vbYesNoCancel + vbQuestion + vbDefaultButton2
Titre = 'Excel'

flag = MsgBox(Message, Style, Titre)

If flag = vbYes Then
Workbooks.Close
ElseIf flag = vbCancel Then Exit Sub
End If

End Sub

il y a surement plus rapide encore mais ca marche en tout cas.
A+

re

Merci ça marche


Titi