Bonjour,
1) j'ai modifié le titre de cette discussion ("Problèmes VB6" ne révèle en rien la nature de la difficulté traitée ! Lire les règles de ce forum à ce sujet)
2) la réponse donnée par Mosca, que je salue, est tout-à-fait correcte.
Si toutefois ton appli est amenée à lire fréquemment telle ou telle autre ligne de ce fichier, il pourra être plus astucieux de prévoir une petite fonction, genre :
Private Function lire_ligne(fic As String, ligne As Long) As String
Open fic For Input As #1
le_tout = Input$(LOF(1), 1)
Close #1
lire_ligne = Split(le_tout, vbNewLine)(ligne - 1)
End Function
Appelable part exemple ainsi :
MsgBox lire_ligne("D:\la.txt", 3)
pour lire la ligne 3 du fichier D:\la.txt
Tu pourrais même gagner encore en vitesse en mettant dans une variable générale toto ( avec toto = Split(le_tout, vbNewLine) ) l'array résultant de l'éclatement du fichier. Cela pourrait être fait au chargement de l'appli.
Il te suffirait ensuite d'utiliser toto(0) pour la ligne 1, toto(8) pour la ligne 9, etc ...
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.