Msgbox vbyesno

[bbobb]

Bonjour le Forum,
J'ai un problème avec une msgbox yesno : je souhaite que :
- si yes = fin de la macro
- si no = sauvegarde + fermeture du fichier

Ci-dessous le code "qui ne marche pas"...
MsgBox "Voulez-vous saisir le jour suivant ?", vbYesNo
If vbYesNo = yes Then GoTo Fin
If vbYesNo = no Then
ActiveWorkbook.Save
ActiveWindow.Close
End If
Fin:
End Sub

Quelle que soit la reponse la macro va directement à la fin...
Merci d'avance pour votre aide
Bonne journée
Bbobb

 

[PascalXLD]

Re : Msgbox vbyesno

Bonjour

Essaies ainsi

Reponse = MsgBox "Voulez-vous saisir le jour suivant ?", vbYesNo
If Reponse= vbyes Then exit sub
If Reponse= vbno Then
ActiveWorkbook.Save
ActiveWindow.Close
End If
End Sub

 

[bbobb]

Re : Msgbox vbyesno

Bonjour PascalXLD,
ça ne marche pas...
En cliquant non, la macro selectionne bien : If vbYesNo = no Then
mais va ensuite directement sur : End If

Serait-ce parce que le fichier à fermer contient la macro ?

Bbobb

 

[PascalXLD]

Re : Msgbox vbyesno

RE

Tu pourrais envoyer un morceau du fichier STP

 

[bbobb]

Re : Msgbox vbyesno

RE...
Voilà le fichier...
La macro est assez longue, comme tu doit t'en douter : c'est à la fin...

Merci
Bbobb

 

[Si...]

Re : Msgbox vbyesno

Salut

à tester :

...
  If MsgBox("Voulez-vous saisir le jour suivant ?", vbYesNo) = vbYes Then Exit Sub
  ActiveWorkbook.Save
  ActiveWindow.Close
End Sub

 

[PascalXLD]

Re : Msgbox vbyesno

Re

en mettant

Reponse=MsgBox ("Voulez-vous saisir le jour suivant ?", vbYesNo)

Cela a l'air de fonctionner

 

[bbobb]

Re : Msgbox vbyesno

Si... et PascalXLD,
La solution de Si... fonctionne.
Merci à tous les 2 pour votre aide.
Bonne journée
Bbobb