récupération d'erreur dans une boucle

[elise]

Bonjour,

j'ai un petit problème de récupération d'erreur dans mon code VBA Excel :

Je fais un "on error goto error" dans une boucle. La récupération d'erreur marche pour la première occurence de l'erreur mais pas pour les suivantes.
Je sais que le système de récupération d'eereur doit être inactivé, ce que j'ai fait avec un "on error goto 0" mais ça ne marche toujours pas.

Quelqu'un aurait-il une idée sur la question??

Merci d'avance!

Ci-après mon code :

With recordset
Do While Not .EOF

Call affiche_record_rs(rs_study, i, 1)

On Error GoTo error

Call execute_sql(rs_study_gen, requete)
If rs_study_gen.RecordCount = 0 Then
rs_study_gen.Close
Call execute_sql(rs_study_gen, requete2)
If rs_study_gen.RecordCount = 0 Then
rs_study_gen.Close
Call execute_sql(rs_study_gen, requete3)
End If
End If

Call affiche_record_rs(rs_study_gen, i, X)
rs_study_gen.Close

ligne1:
On Error GoTo 0
.MoveNext
i = i + 1
Loop
rs_study.Close
End With

Exit Sub
error:
MsgBox "coucou"
If Err.Number = 3075 Then
GoTo ligne1
Else
MsgBox error()
End If

End Sub

 

[Roland]

Salut Elise
Regarde bien l'aide Krosoft à on error

Ils indiquent qu'il faut un Resume pour déactiver le traitement d'erreur en cours

A++