Recherche d'une valeur dans un txt depuis vba excel

Bonjour,

Est-il possible de récupérer une valeur dans un fichier texte (txt)?
Je souhaite récupérer la valeur qui est sur la 19ème ligne et qui est comprise entre les 14ème et 20ème caractère.

J'ai fais quelques recherches et j'ai trouvé les fonctions instr et find, mais celles-ci fonctionne pour excel et acces, fonctionnent-elles également pour une recherche dans un fichier texte?

D'avance merci

Bonjour,

ouvre ton fichier avec Open ... For...

Lis-le ligne par ligne avec Line Input

(les exemples sur ce forum sont plus que foison)

Utilise ensuite (sur les lignes qui t'intéressent) la fonction Mid

Bonjour,

tu dois procéder autrement avec un fichier texte.

Ouverture du fichier texte (input_file est le nom complet de ton fichier)

Code:

---

1 2	Open Input_file For Input As #1

---

lecture d'un record

Code:

---

1 2	Line Input #1, LaLigne

---

donc tu fais un boucle pour lire jusqu'au 19ème.

récup des pos 14-20 du record :

Code:

---

1 2	valeur = mid(laligne, 14, 7)

---

fermeture du fichier texte

Code:

---

1 2

Close #1

---

Bonne chance.

Ok, j'ai réussi à récupérer ma valeur, par contre, maintenant ça boucle toujours dessus!!! Une fois qu'il a trouvé la valeur je voudrais bien qu'il sorte!

Ok, j'ai résolu j'avais oublié de spécifier de sortir de la boucle!!!

Merci à vous

Bon...

Alors voilà une autre manière, maintenant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Option Explicit   Private Sub Command1_Click() Dim tonfichier As String tonfichier = "d:\essai.txt" MsgBox extraire(tonfichier, 19, 14, 20) 'où 19 est ta ligne, 14 et 20 les rangs des caractères de début et de fin End Sub   Private Function extraire(fichier As String, ligne As Integer, cardebut As Integer, carfin As Integer) As String Dim ff As Integer, strtext As String ff = FreeFile Open fichier For Input As #ff strtext = Input(LOF(ff), #ff) Close #ff Dim toto toto = Split(strtext, vbCrLf) extraire = Mid(toto(ligne - 1), cardebut, carfin - 1) End Function

---

Amuse-toi bien...;)

Je me suis emballé, j'ai testé en méthode pas à pas et tout fonctionne!

Mais quand je lance en automatique, j'ai un message qui me dit que "erreur type 53, fichier introuvable", alors que mon fichier existe bien???

Voici le bout de code qui pose problème

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

' pour information metadonnées = le chemin de mon fichier Open metadonnees For Input As #1   Do While Not EOF(1)   Line Input #1, laligne position_pixel = InStr(1, laligne, "Pixel Size = (", vbTextCompare) If position_pixel > 0 Then T = Mid(laligne, position_pixel + 14, 7) MsgBox "Zone extraite = " & T Exit Do End If   Loop       Close #1

---

d'avance merci

Quand tu prends un debug, que vaut

Citation:

---

metadonnées = le chemin de mon fichier

---

As-tu vérifié ? (nom complet du fcihier avec chemin et extension).

Bonsoir,

Metadonnees = le chemin de mon fichier.txt (avce l'extension).

Ce que je ne comprends pas c'est que le debug apparait uniquement quand je lance le "prog" en automatique alors qu'en pas à pas (F8) tout se passe nickel!

Cordialement

J'ai trouvé la solution!!

Mon code s'executé un peu trop rapidement, donc j'ai fait temporiser 2 secondes entre la création de mon fichier txt et la recherche d'info dans ce même fichier est tout fonctionne!!
J'ai utilisé la méthode wait
Cordialement