C
carlos
Guest
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
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