Ecriture fichier texte VBA

Bonjour,

J'ai une procédure (voir ci-dessous), qui est censé lire un fichier texte, et supprimer une partie en fonction de la position d'une lettre.

Le problème c'est que au moment de supprimer le texte, la procédure ajoute un retour à la ligne, et je n'ai aucune idée pourquoi.

Savez-vous ce que je dois faire?

Sub test()

Dim MonFichier, let1, let2 As String
Dim pos1, pos2, intFic As Integer
Dim LireFichierTexte As String
MonFichier = "D:\testfile.txt"

intFic = FreeFile
let1 = "c"
let2 = "f"
Open MonFichier For Input As #1
    While Not EOF(1)
        Line Input #intFic, LireFichierTexte
    Wend
Close #1
pos1 = InStr(LireFichierTexte, let1)
pos2 = InStr(LireFichierTexte, let2)

If pos1 + pos2 = 0 Then
ElseIf pos1 = 0 Then
    LireFichierTexte = Right(LireFichierTexte, Len(LireFichierTexte) - pos2)
ElseIf pos2 = 0 Then
    LireFichierTexte = Right(LireFichierTexte, Len(LireFichierTexte) - pos1)
ElseIf pos1 < pos2 Then
    LireFichierTexte = Right(LireFichierTexte, Len(LireFichierTexte) - pos1)
Else
    LireFichierTexte = Right(LireFichierTexte, Len(LireFichierTexte) - pos2)
End If

Open MonFichier For Output As #2
Print #2, LireFichierTexte
Close #2

End Sub

Merci d'avance du retour,

Bonne soirée

bonsoir,

si tu parles d'un ajout d'une ligne en fin de fichier, essaie ceci :

Open MonFichier For Output As #2
Print #2, LireFichierTexte;
Close #2

Merci pour le retour,

Alors ça marche, mais ça crée un nouveau souci.

*S'il n'y a qu'une ligne sur le fichier texte, ça marche comme il faut

*S'il y a plusieurs lignes sur le fichier texte, ça supprime carrémént toute la 1ère ligne, même si la lettre en question est avant la fin de la ligne...

Est-ce que quelqu'un sait comment je peux arranger cela?

Merci

Bonjour,

sorry, je n'ai fait attention qu'à l'instruction print. je n'ai pas regardé le reste du code, puisque tu disais que c'était l'ajout d'une ligne qui posait problème.

Ton code n'est pas correct pour traiter plusieurs lignes, tu les lis toutes mais tu ne traites que la dernière.

Que veux-tu faire précisément ? Merci de mettre un fichier exemple représentatif.