Pb d'ouverture de fichier de temps en temps

Question

Bonjour a tous !! Je me retrouve aujourd'hui dans une situation un peu compliqué que je n'arrive pas a expliquer et a résoudre. J'ai différent fichiers texte qui ont la meme structure mais pas forcément le meme nombre de ligne. Ce que je ne comprend pas c'est lorsque j'ouvre un fichier ou un autre, un va fonctionner l'autre va me renvoyer une erreur 52 "Bad file name or number". J'ai regarder la valeur du freefile a l'ouverture et il a 1 donc un seul fichier d'ouvert et en plus il n'est pas déjà ouvert par ailleur. Qu'arrive t il sachant qu'un autre va très bien se comporter alors qu'il y a moins de lignes dans le fichier... Quelqu'un peut m'aider ? Je met un bout de code : Public Sub FiltrageFichier(chemin As String) Dim LectureLigne As String Dim mCol As New Collection Dim FileNumber As Integer FileNumber = FreeFile Dim oldCompteSlots As Integer Dim nbpasse As Integer Open chemin For Input As #FileNumber oldCompteSlots = CptSlots nbpasse = 1 While Not EOF(FileNumber) Input #FileNumber, LectureLigne If Mid(Trim(LectureLigne), 1, 5) = "Wafer" Then If nbpasse = 1 Then Input #FileNumber, LectureLigne Input #FileNumber, LectureLigne While InStr(1, LectureLigne, "Aver.") = 0 If LectureLigne <> "" And Mid(LectureLigne, 1, 1) <> "(" Then If CptSlots > 24 Then RAZFeuille "MODELS" Close #FileNumber MsgBox "La somme des slots des fichiers a traiter est supérieur à 25.", vbCritical, "Erreur" End End If Set mCol = DecomposeLigne(LectureLigne) With TabSlots(CptSlots) .Num = Trim(mCol.Item(2)) .M = Trim(mCol.Item(3)) .D = Trim(mCol.Item(4)) .RR = Trim(mCol.Item(5)) .OR = Trim(mCol.Item(6)) .Tx = Trim(mCol.Item(7)) .Ty = Trim(mCol.Item(8)) End With CptSlots = CptSlots + 1 End If Input #FileNumber, LectureLigne Wend nbpasse = nbpasse + 1 ElseIf nbpasse = 2 Then Input #FileNumber, LectureLigne Input #FileNumber, LectureLigne While InStr(1, LectureLigne, "Aver.") = 0 If LectureLigne <> "" And Mid(LectureLigne, 1, 1) <> "(" Then Set mCol = DecomposeLigne(LectureLigne) With TabSlots(oldCompteSlots) .SX = Trim(mCol.Item(3)) .SY = Trim(mCol.Item(4)) .RW = Trim(mCol.Item(5)) .OW = Trim(mCol.Item(6)) .TX = Trim(mCol.Item(7)) .TY = Trim(mCol.Item(8)) .Enspec = CompareSpec(.TranswX, Txt_TranslationSpec) If .Enspec = True Then .Enspec = CompareSpec(.TranswY, Txt_TranslationSpec) End If End With oldCompteSlots = oldCompteSlots + 1 End If Input #FileNumber, LectureLigne Wend nbpasse = nbpasse + 1 Else Close #FileNumber End If End If Wend Close #FileNumber End Sub Ps : Y'a pas une facon pour colorer le texte facon VB ca serait plus lisible pour vous ....

Renfield · Answer

possible, peut etre de lire tout le fichier d'un coup, serait plus efficace (plus rapide)

pour ton PS: 
http://www.vbfrance.com/code.aspx?ID=41455

cs_Jack · Answer

Salut
Sur quelle ligne as-tu cette erreur ?
Tu fais une boucle de lecture While-Wend (nota : While-Wend est obsolète, utiliser de préférence Do While-Loop).
Mais tu fais plusieurs Input à l'intérieur : pas bon :
Supposons que le premier Input après le While soit la dernière ligne du fichier, si tu en fais un autre derrière (*), il y aura erreur, mais pas celle dont tu parles.
(*) d'autant que tu peux en faire un paquet puisque du refais des Input dans une autre boucle à l'intérieur !
La suggestion de RenField est surement la solution.

Dis nous sur quelle ligne tu as l'erreur, cela va éclairer le problème.

Attention aussi :
Input ne lit qu'une variable de la ligne, pas la ligne entière. Si tu as une virgule dans la ligne, la lecture sera incomplète et pourra perturber le prochain Input
--> Voir Line Input
Tout dépend de la structure de ton fichier

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

cs_baz187rem · Answer

Mon fichier ne comporte pas de virgule mais des points comme décimal encore une chance ^^

Sinon j'ai modifier un peu la boucle a la place du while wend je suis donc passé par le fameux do while loop. (C'est la meme chose je trouve mais bon)

En fait le debbugger me renvoie sur la ligne do while not EOF(FileNumber)

et si je survole avec la souris, le FileNumber est = 1

En ce qui concerne mes plusieurs appels de lineInput je trouve cela un peu normal car je lis la ligne entière et si je trouve pas l'item que je cherche je passe a la suivante. Par contre une fois que je l'ai trouver, je saute x ligne (correspondant aux X lignes d'appel de input ...)

ps bis : Le lien donne la source a compiler mais j'ai pas vb6 ^^

cs_MPi · Answer

Personnellement je fais 
Do Until EOF(FileNumber)
    '...
Loop

Mais je ne pense pas que ça règlera ton problème...
Par contre, on ne voit pas ce que contient exactement "chemin"

Si tu mets 
MsgBox Chemin 
en tout début de procédure, qu'est-ce que ça donne exactement comme nom de fichier ?

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

cs_Jack · Answer

Ok
Je n'avais pas fait gaffe, mais tu as un Close #FileNumber en plein milieu de tes boucles.
Je pense que tu dois y passer, mais comme tu ne sors pas de la boucle, il continue et quand il recommence, le fichier étant fermé, il génère l'erreur.
A l'emplacement de ton Close, si tu n'as plus rien à faire dans ta boucle de lecture, remplace ton Close par un "Exit Do" à condition d'avoir utiliser Do-Loop à la place du While-Wend
(le Close est fait au sortir de la boucle)

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

cs_MPi · Answer

Bonne déduction mon cher Watson...

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

cs_baz187rem · Answer

ha pas bete le exit do je vais tester ca aujourd'hui...

Bon je l'ai tester en direct et super cela fonctionne !! Et en effet finalement quand j'y repense c'est bien cela... Je continue de boucler, le fichier fermer donc c'est normal qu'il n'arrive plus a parcourir le fichier qui est fermé !!

Super en tout cas merci à toi Jack pour avoir trouver la solution et a toi MPi² d'avoir essayer et Renfield aussi ^^

Pb d'ouverture de fichier de temps en temps

7 réponses

Votre réponse

Discussions similaires