fermeture feuille si "non"

[rem$]

bonjour a tous

voici ma macro je voudrais que la feuille soit fermée si la réponse est non
comment puis-je faire ça ???

Private Sub workbook_open()

demande:
demande = MsgBox("as-tu selectionné EXECUTER pour lancer cette feuille", vbYesNo)
If demande = 7 Then GoTo reponse
reponse:
reponse1 = MsgBox("ferme et relance la feuille")
End Sub



merci pour votre aide
rem$

 

[Hervé]

salut rem$

essaye ceci :

Private Sub workbook_open()
If MsgBox("as-tu selectionné EXECUTER pour lancer cette feuille", vbYesNo) = vbNo Then
MsgBox ("ferme et relance la feuille")
ActiveWorkbook.Close savechanges:=False
else
(le reste de ton code)
end if

salut
hervé

 

[rem$]

bonjour a tous, hervé

merci ca marche o poils..........

@+
Rem$