Bonjour Creepy, Thierry, le forum
ton fichier, Thierry, écrase le fichier originel avec de nouvelles données. Pour effacer toutes les lignes sauf la première, je ferai plutôt:
Sub Efface_Lignes_Sup1()
Dim Ligne As String
Open "d:\copy\test.txt" For Input As #1
Line Input #1, Ligne
Close #1
Open "d:\copy\test.txt" For Output As #1
Print #1, Ligne
Close #1
End Sub
je récupére la première ligne et re écrit le fichier avec.
Cordialement, A+