macro textstream lecture de fichier

Bonjour,

Je commence sur VBA, et je rencontre un problème en essayant de lire un fichier et en retranscrire la ligne en utilisant textstream.

J'ai créé cette fonction :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Function sautLigne(ByVal schema, ByRef oTxt)   Do Until oTxt.ReadLine Like "*" & schema & "*" If oTxt.AtEndOfStream Then sautLigne = "exit" Exit Function End If Loop   sautLigne =   Debug.Print sautLigne End Function

---

le but de cette fonction est lire un fichier texte ligne par ligne et lorsqu'une ligne contient ce qu'on a dans la variable schema, on sort de la boucle et on récupère cette ligne pour la recopier.
Mais là où je rencontre un problème, c'est lorsque je souhaite afficher cette ligne que j'ai un problème. Je ne sais pas quoi mettre en face de saut de ligne, ou s'il faut réécrire le code...

Si vous pouvez m'aider, ça serait top! :)

Merci d'avance

Bonne journée!

Bonjour,

Il de bon ton, sur les forums, si on trouve par soi-même une solution, de la partager.

Bonjour
je suis d'accord avec toi Alain

de toute façon l'erreur était tellement évidente que.....

Code:

---

debug.print oTxt.ReadLine

---

Bonsoir,

Patrick , avec ta ligne de code :

Citation:

---

Envoyé par patricktoulon

Bonjour
je suis d'accord avec toi Alain

de toute façon l'erreur était tellement évidente que.....

Code:

---

debug.print oTxt.ReadLine

---

---

tu lis une ligne de plus ;)

oupss..:oops:

Code:

---

1 2 3 4 5 6 7 8 9 10

Function sautLigne(ByVal schema, ByRef oTxt) Do Until oTxt.AtEndofStream i = i + 1 Myvar = oTxt.ReadLine If Myvar Like "*" & schema & "*" Then Exit Do Loop oTxt.Close MsgBox Myvar & " en ligne " & i i = 0 End Function

---

le message te done le texte et le numero de la ligne

le test se fait sur la variable c'est mieux tu a raison