ou est l'erreur ? vous avez dit bizarre ...

[carlos]

Bonsoir ,

je n'arrive pas à comprendre pourquoi en cliquant le bouton yes il me retourne le "yes" mais aussi un message d'erreur ( et dans les autres case c'est la meme chose)

Sub auto_open()
Dim Retour As Integer
On Error GoTo erreur
Retour = MsgBox("voulez vous vous mettre à jour avec la base ?", vbYesNoCancel + vbQuestion + vbDefaultButton2, "Mise à jour GEP ?")

If Retour = vbYes Then
MsgBox ("yes")
End If
If Retour = vbNo Then

MsgBox ("no")
Else
MsgBox ("else")
End If

erreur: MsgBox ("erreur")


End Sub


Merci

 

[Eric S]

Bonsoir,

ajoute exit sub avant ton étiquette "erreur", comme suit

....
Else
MsgBox ("else")
End If

exit sub

erreur: MsgBox ("erreur")


End Sub

A+

 

[carlos]

En 3 mots

un pe cable

Merciiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii