ErrorHandler - faire une incrémentation puis reprendre [Résolu]

[Kihmé Xs]

Bonjour à tous,

Je sais que dans un de mes for une erreur peut survenir. Elle vient du fait que j'appelle un dsn qui ne répond pas. Ca peut arriver lorsque le serveur auquel j'essaie de me connecter est éteind ou tombé. Dans ce cas de figure je cherche à incrémenter mon for pour attaquer le serveur suivant puis reprendre le cours de mon code.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
On Error GoTo ErrorHandler 'Gestion des erreurs au cas où un environnement ne répond pas
    For i = 0 To 13
        'If i <> 4 And i <> 6 And i <> 1 Then
            'declaration variable de connexion
            Dim cnx As ADODB.Connection
            Set cnx = New ADODB.Connection
 
            'Definition de la chaine de connexion
            cnx.ConnectionString = "DSN=" & tablEnv(i, 0) & ";UID=" & nomUtilisateur & ";PWD=" & motDePasse & ";"
 
            [instructions...]
    Next i
 
ErrorHandler:
    MsgBox "Erreur: " & Err.Number & vbCrLf & Err.Description
    i = i + 1
    Resume

J'ai suivit le cours vba gestion des erreurs disponible sur developpez mais entre le resume ou le next aucun des deux ne semblent fonctionner comme je le veux.

Avec le resume utilisé ci dessous, l'incrémentation i =i+1 ne se fait pas et donc je me retrouve dans une boucle sans fin me renvoyant sans cesse que mon DSN ne répond pas.

Quelqu'un aurai un conseil pour que je solve ça?

Merci d'avance

[Kihmé Xs]

finallement ça marche très bien, j'avais juste un problème d'algo car mon Error Handler incrémentait mais je me trompais de ligne pour situer l'erreur