Annuler l'action Fermeture si réponse Non au msgbox

[guigui]

Hello le forum,

Une fois de plus j'ai besoin de votre aide...

je souhaite qu'a la fermeture de mon fichier, un msgbox me pose une question. si je repond OUI .. on continue et on ferme mais si je dit NON, on reste tel quel.

je pense utiliser le code BeforeClose, mais si je repond NON il ferme quand meme....

Merci d'avance pour votre aide....

Guillaume

 

[Arnaud]

salut,

cela devrais te donner un truc comme ça :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If MsgBox("voulez vous vraiment quitter ??", vbYesNo) = vbNo Then Cancel = True
End Sub

 

[Eric C]

Bonjour le forum
Bonjour guigui

Une orientation à développer ?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim rep As String
rep = InputBox(" Question", "Attention")

If rep = "Oui" Then
End
ElseIf rep <> "Oui" Then

Exit Sub
End If
End Sub

@ ++ Eric C

 

[Eric C]

Re le forum
Re guigui, bonjour Arnaud

Excuses moi je n'avais pas rafraichi. Bien vu. Pourquoi faire simple ...
Bon appétit.
@++ Eric C -

 

[guigui]

Re .

Merci a tous les 2.. c parfait.
J'adore... !

Merci @ pluche

Guillaume

 

[bimbam]

Re : Re: Annuler l'action Fermeture si réponse Non au msgbox

Bonjour

Je réécris sur ce sujet car pour moi cela ne fonctionne pas. Qaund je ferme excel, rien ne se passe ???

Merci de vos aides.

 

[tbft]

Re : Annuler l'action Fermeture si réponse Non au msgbox

Bonjour

j'ai essayé le code d'Eric C.
mais ça ne marche pas.
quand je réponds non excel ferme quand même le fichiers.
quelqu'un peut-il m'aider?

 

[tbft]

Re : Annuler l'action Fermeture si réponse Non au msgbox

Re Bonjour
Je viens de tester en modifiant légèrement la solution d'Arnaud.
Ca marche au poil...