vba gestion d'erreur ne marche qu'une fois

Question

Bonjour,

j'ai une for loop qui me permet d'ouvrir tous les fichiers dans une colonne de ma feuille excel.
s'il y a une erreur(le fichier n'existe pas etc.) je lui demande de passer à la ligne suivante

mais voilà, cela ne marche que la première fois qu'il rencontre un fichier invalide, la deuxième fois il m'affiche un message d'erreur...

ah oui et quand un fichier est ok il l'ouvre sans problème donc le pépin n'est pas de ce côté là

voilà mon code:

For i = 9 To 7 + dernièreligne

On Error GoTo erreur

debut:
nom = Cells(i, 1)


    Workbooks.OpenText Filename:= _
        nom, Origin:=xlWindows, _
        StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(8, _
        1), Array(16, 1), Array(24, 1), Array(32, 1), Array(40, 1), Array(48, 1), Array(56, 1), _
        Array(64, 1), Array(72, 1))

Next i

Exit Sub

erreur:
i= i + 1
GoTo debut

merci d'avance pour votre réponse

marco

tompols · Answer

Bonjour,
Bah en fait tu ne fais pas vraiment de gestion d'erreur là, pourquoi pas un simple "On error resume next" ce qui correspond exactement à ce que tu veux faire...Sinon pour tester l'existence du fichier, regarde coté FSO, méthode fileexists().

Vba gestion d'erreur ne marche qu'une fois

1 réponse

Discussions similaires

Newsletters