Empecher l'ouverture de virutal basic en cas d'erreur

Bonjour

Je souhaiterai ajouter une instruction qui empeche l'ouverture de virtual basic en cas d'erreur. Qui peut m'aider ?

J'ai essayé ceci mais ça ne marche pas... Ca me met tout le temps le message d'erreur que le code tourne bien ou pas...

Private Sub VALIDER_Click()
On Error GoTo errorHandler

'code

errorHandler:
 MsgBox "Une erreur est survenue, Merci de contacter le Service ESA"

End Sub

Bonjour,

Avec l'extrait de code, pas facile !

A essayer en ajoutant "Exit Sub" avant la gestion d'erreur

    Private Sub VALIDER_Click()
    On Error GoTo errorHandler

    'code

    Exit Sub

    errorHandler:
     MsgBox "Une erreur est survenue, Merci de contacter le Service ESA"

    End Sub
     

Bonne journée

Bouben

voici un meilleur exemple

Private Sub VALIDER_Click()
On Error GoTo errorHandler

If CheckBox3.Value = True Then 'Si coché ...
    LOG = "s:\mesdocuments\" & TextBox2.Value
    txt = Dir("LOG")
        If txt = "" Then
        MsgBox "Ce code ne correspond à aucun dossier"
        Else
        ThisWorkbook.FollowHyperlink LOG
        End If
 End If

errorHandler:
 MsgBox "Une erreur est survenue, Merci de contacter le Service ESA"

End Sub

Cf message plus haut : ajouter exit sub

+ cf autre post : supprimer guillemets "LOG"

+ déclarer les variables

Private Sub VALIDER_Click()
    On Error GoTo errorHandler

    If CheckBox3.Value = True Then 'Si coché ...
       LOG = "s:\mesdocuments\" & TextBox2.Value
        txt = Dir(LOG)
            If txt = "" Then
            MsgBox "Ce code ne correspond à aucun dossier"
            Else
            ThisWorkbook.FollowHyperlink LOG
            End If
     End If

EXIT SUB

    errorHandler:
     MsgBox "Une erreur est survenue, Merci de contacter le Service ESA"

    End Sub

Merci ça marche bien