Discussion :

[Le_Phasme]

Si je fais dans mon code :

Code :

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

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 ?

[argyronet]

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 :

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

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

[Le_Phasme]

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