Comment gérer l'absence d'erreur de cas lors de la manipulation des erreurs dans VBA?

J'ai besoin de prendre de l'erreur VBA à l'aide de la GoTo déclaration comme ceci :

Sub mySub
 On Error GoTo errorHandler:
    Workbooks.Open("myWorkbook")
'
' Some Code
'
errorHandler:
MsgBox "ERROR"

End Sub

Le problème est que quand il n'y a pas d'erreur, la errorHandler section est exécutée.

J'ai trouvé cette discussion mais la réponse ne résout pas mon problème.

J'ai essayé d'ajouter un Exit Sub déclaration, comme l'explique :

Sub mySub
 On Error GoTo errorHandler:
    Workbooks.Open("myWorkbook")
    Exit Sub

'
' Some Code
'
errorHandler:
  MsgBox "ERROR"

End Sub

Dans ce cas, on sort de la méthode lorsqu'il n'y a pas d'erreur.
J'ai aussi essayé :

 Sub mySub
 On Error GoTo errorHandler:
    Workbooks.Open("myWorkbook")
'
' Some Code
'
errorHandler:
  MsgBox "ERROR"
  Exit Sub
End Sub

Mais toujours le même problème: Le errorHandler est exécutée même si aucune erreur ne se produit.

InformationsquelleAutor M3HD1 | 2012-04-13