Merci François c'est tout à fait ce que je recherchais :)
Sub Supprimer_premiere_ligne
Dim f1 As Integer, f2 as integer
Dim uneLigne As String
dim identite as string, resultat as string
identite = "C:\Documents and
Settings\Françoise\Bureau\Formulaire\Sources\formulaire.xml"
f1 = FreeFile ' obtenir un numéro de fichier ouvert
Open identite For input As #f1
resultat = "C:\Documents and
Settings\Françoise\Bureau\Formulaire\Sources\resultat.xml"
f2 = FreeFile ' obtenir un numéro de fichier ouvert
Open resultat For output As #f2
'*** Effacer la première ligne du fichier formulaire.xml
Line Input #f1, uneLigne '1
'***Ecrire toutes les autres lignes
While not eof(1)
Line Input #f1, uneLigne'2
Print #f2, uneLigne
Wend
MsgBox "Le fichier resultat.xml est maintenant dans le dossier Sources"
Close
End Sub
--
Francois Gatto
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
