Discussion :

[Hef-aîr]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[AlainTech]

Bonjour,

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

[patricktoulon]

Bonjour
je suis d'accord avec toi Alain

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

debug.print  oTxt.ReadLine

[SfJ5Rpw8]

Bonsoir,

Patrick , avec ta ligne de code :

Bonjour
je suis d'accord avec toi Alain

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

debug.print  oTxt.ReadLine

tu lis une ligne de plus

[patricktoulon]

oupss..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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