On error don't resume next!!!!

[Routrout]

Bonjour,

Lorsque j'éxécute la condition d'un "If" j'obtient une erreur. J'aimerais que lorsqu'il y a erreur, j'éxécute l'instruction qui suit le "End If". Or si je fais "On error resume next" avant mon "if", au lieu de sauter au "end if", il execute la premiere instruction a l'intérieur des bornes de mon "if"!!!

Lorsque je fais un "On error go to skip" et que je place "skip:" apres mon "end if", il y a erreur malgré mon "On error goto"!!! Que faire?

Voici mon bout de code:


For i = 1 To .FoundFiles.Count
On Error Resume Next

tempfichier = FileOrFolderName(.FoundFiles(i), True)
temprepertoire = FileOrFolderName(.FoundFiles(i), False)
temp = GetValue(temprepertoire, tempfichier, "Die Follow-up sheet", "A2")
If temp = "Name of the extrusion:" Then
nomfichier(Count) = FileOrFolderName(.FoundFiles(i), True)
nomrepertoire(Count) = FileOrFolderName(.FoundFiles(i), False)
Count = Count + 1
End If

Next i



(l'erreur se produit parce que dans certains fichiers la feuille "Die Follow-up sheet" n'existe pas.)

Merci

 

[STéphane]

bonjour


laisse on error resume next

et fais
if err then msgbox err.number pour connaître le numéro de l'erreur

puis

fais
if err then
if err.number=xxx then

end if
err.clear
end if

bye
stephane