msgbox a la fermeture

[Titi]

Bonjour au forumeur

je voudrais a la fermeture de mon fichier faire apparaître un message si oui on ferme si non on ne ferme pas


Comment le traduire en VBA

merci de votre aide


Titi

 

[PascalXLD]

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

 

[supergirl]

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+

 

[Titi]

re

Merci ça marche


Titi