Bonjour,

J'ai besoin d'aide ! :)

J'ai fait une macro pour écrire le fichier formulaire.xml dans un nouveau fichier. Je ne veux pas que la première ligne du fichier formulaire.xml s'incrive dans le fichier resultat.xml mais ensuite toutes les autres lignes doivent s écrirent. Pour le moment j'ai trouvé comment le faire manuellement, mais je dois dire que le fichier formulaire.xml contient énormement de lignes, il me semble plus justicieux de faire une boucle de la deuxième ligne à la dernière mais je n'y arrive pas, quelqu'un pourrait-il m'aider ?

Voici ma macro :

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

Line Input #f1, uneLigne'2 Print #f2, uneLigne Line Input #f1, uneLigne'3 Print #f2, uneLigne Line Input #f1, uneLigne'4 Print #f2, uneLigne Line Input #f1, uneLigne'5 Print #f2, uneLigne Line Input #f1, uneLigne'6 Print #f2, uneLigne Line Input #f1, uneLigne'7 Print #f2, uneLigne Line Input #f1, uneLigne'8 Print #f2, uneLigne

MsgBox "Le fichier resultat.xml est maintenant dans le dossier Sources"

Close #f1 close #f2 end sub