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!