Msgbox vbyesno

PascalXLD

XLDnaute Barbatruc

Modérateur

• 11 Avril 2011

• #2

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

 

Vote positif 0 Vote négatif

B

bbobb

XLDnaute Occasionnel

• 11 Avril 2011

• #3

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 11 Avril 2011

• #4

Re : Msgbox vbyesno

RE

Tu pourrais envoyer un morceau du fichier STP

 

Vote positif 0 Vote négatif

B

bbobb

XLDnaute Occasionnel

• 11 Avril 2011

• #5

Re : Msgbox vbyesno

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

Merci
Bbobb

 

Dernière édition: 11 Avril 2011

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 11 Avril 2011

• #6

Re : Msgbox vbyesno

Salut

à tester :

Code:

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 11 Avril 2011

• #7

Re : Msgbox vbyesno

Re

en mettant

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

Cela a l'air de fonctionner

 

Vote positif 0 Vote négatif

B

bbobb

XLDnaute Occasionnel

• 11 Avril 2011

• #8

Re : Msgbox vbyesno

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

 

Vote positif 0 Vote négatif