Très facile ...
Tu places du code de ce style dans la sub BeforeClose
de ton Workbook !
La variable bQuitterAppli à True doit être initialisée par le bouton
que tu désire utiliser pour quitter et à False ailleurs.
exemple:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
' si on n'a pas quitté par le menu
If Not bQuitterAppli Then
MsgBox "Veuillez quitter l'application par le menu Quitter", vbExclamation + vbOKOnly, Application.Caption
Cancel = True
Exit Sub
End If
Msgbox "Au revoir ..."
End Sub
A+
webcyril
forum: http://www.webcyril.fr.st/forum