Question Basique Gestion Erreur VBA ...

Version imprimable

11/10/2005, 11h04
Le_Phasme

Question Basique Gestion Erreur VBA ...
Si je fais dans mon code :
Code:

1 2 3 4 5 6 7 on error goto erreur {BLOC INSTRUCTIONS 1} on error resume next {BLOC INSTRUCTIONS 2} exit sub erreur: exit sub
Est ce que le resume next prends bien le dessus et le goto detruit au niveau du bloc instructions 2 ?

Bonjour,

Mouais, ben pas toujours... Tout dépend ce qu'il y a après (sous procédures)
Tu peux t'inspirer de ça:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim intError As Integer
On Error GoTo ErreurPrincipale
  '[....] 1
  On Error Resume Next
  '[....] 2
  If Error <> 0 Then
    intError = Err
    Err.Raise intError
  Else
   'Tout va bien...
   '[....] 3
  End If
 
SortieErreurPrincipale:
  Exit Sub
ErreurPrincipale:
  MsgBox Err.Description, 48, Err.Number
  Err.Clear
  Resume SortieErreurPrincipale
End Sub

Argy

11/10/2005, 13h42
Le_Phasme

Merci ...
Euh vu qu'il n'y a pas de sous procedure ... ca devrait aller je pense.