Discussion :

[Eric93]

Bonjour,

J'aimerai pouvoir détecter une erreur sur une instruction, s'il n'y à pas d'erreur faire une action et s'il y a une erreur continuer.

Je connais l'instruction

Code :

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

On Error Resume Next

, mais elle passe l'erreur dans tout les cas et me permet pas d'effectuer une action en cas d'exécution sans erreur.

Merci d'avance.

[Eric93]

J'ai trouvé le

Code :

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

On Error GoTo

mais ca ne marche pas dans une boucle :

Code :

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

1
2
3
4
5
6
Do Until Condition
    On Error GoTo suite
    Instruction pouvant provoquer une erreur
    Instructions à effectuer si pas d'erreur    
suite:
Loop

Il va bien à suite: pour la première erreur, mais dès la deuxième il me bloque

[Eric93]

Désolé de vous avoir dérangé pour rien, j'ai trouvé

Code :

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

1
2
3
4
5
6
7
On Error Resume Next
Do Until condition
    Instruction 1
    If Err.Number = 0 Then
        Instruction 2
    End If
Loop