Discussion :

[izalec]

Bonjour
Je développe en VBA sous EXCEL et je n'arrive pas à intercepter les erreurs d'execution, par exemple si j'essai d'ouvrir un fichier inexistant
Voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim src As String
...
Workbooks.Open Filename:=src
On Error GoTo Trait_erreur
....
 
Exit Sub
 
Trait_erreur:
MsgBox "ERREUR"
End Sub

Lors de l'execution, je recupère une erreur d'execution normale ne disant que le fichier n'existe pas, l'instruction On Error semble totalement ignorée
Est ce que quelqu'un peux m'aider ?
Merci d'avance
IZALEC

[dadavyvy]

Il faut mettre le On Error avant le Workbooks.Open,
sinon l'erreur a lieu avant ta ligne On Error.

[Catbull]

Place l'assertion On Error Goto en début de procédure c'est à dire avant ta méthode Open.