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

A

Arnaud

Guest

• 22 Juillet 2004

• #2

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

 

Vote positif 0 Vote négatif

E

Eric C

Guest

• 22 Juillet 2004

• #3

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

 

Vote positif 0 Vote négatif

E

Eric C

Guest

• 22 Juillet 2004

• #4

Re le forum
Re guigui, bonjour Arnaud

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

 

Vote positif 0 Vote négatif

G

guigui

Guest

• 22 Juillet 2004

• #5

Re .

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

Merci @ pluche

Guillaume

 

Vote positif 0 Vote négatif

B

bimbam

XLDnaute Nouveau

• 14 Septembre 2010

• #6

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.

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 18 Octobre 2010

• #7

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?

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 18 Octobre 2010

• #8

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...

 

Vote positif 0 Vote négatif