mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 2 févr. 2007 à 18:05
Salut,
voici une autre soluce :
Sub Reecrire_Texte()
Dim ff As Integer, i As Integer
Dim MyText As String, ParseText() As String
ff = FreeFile
Open "C:\Chemin\nom fichier.txt" For Input As #ff
MyText = Input(LOF(ff), #ff)
Close #ff
ParseText = Split(MyText, vbCrLf)
Open "C:\Chemin\nom
fichier.txt" For Output As #ff
For i = LBound(ParseText) + 3 To UBound(ParseText)
Print #ff, ParseText(i)
Next i
Close #ff
Erase ParseText