Voila j'ai trouver une commande me permétant de concaténer plusieur document texte en un seul document texte ( une fusion si vous préféré ). Voici ma commande :

repertoire="C:\toto1\toto2\toto3\toto4"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set ficOUT = FSO.CreateTextFile("C:\toto1\toto2\toto3\FICHIER_R
ESULTAT.txt")

Set rep=FSO.GetFolder(repertoire)

Set files = rep.Files
for each file In files
Set ficIN = FSO.OpenTextFile(file)
while not ficIN.AtEndOfStream
ficOUT.writeline (ficIN.readline)
wend
ficIN.close
next

ficOUT.close

Maintenant ma question est : quel commande je dois rajouter pour que l'action faite est " lire 3 ligne dans un fichier et une fois ceci fais, on passe au fichier suivant " et ce a la place de copie tous les éléments d'un fichier.

Pour résumer, au lieu que l'ordi ne copie tous ce qui est écrit dans les fichiers, je veux qu'il copie seulement les 3première ligne de chaque fichiers.

Merci d'avance

Hello,

Je connais pas le vbscript, par contre je sais ce qu'il faut faire. Il faut que tu initialises une variable avant le while, ajouter une condition dans le while et dans le while incrémenter cette variable. Ça donnerait :
nbLignes = 0
While (not ficIN.AtEndOfStream) And (nbLignes < 3)
'Traitements
nbLignes = nbLignes + 1
Wend

Merci beaucoup maintenant j'aimerai savoir ou placer la commande que tu vien de me donner car je ne suis pas non plus très fort en programmation..
Et encore merci pour m'avoir répondu

Un truc du genre :

repertoire="C:\toto1\toto2\toto3\toto4"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set ficOUT = FSO.CreateTextFile("C:\toto1\toto2\toto3\FICHIER_R

ESULTAT.txt")

Set rep=FSO.GetFolder(repertoire)

Set files = rep.Files
for each file In files
Set ficIN = FSO.OpenTextFile(file)
nbLignes = 0
while (not ficIN.AtEndOfStream) and (nbLignes < 3)
ficOUT.writeline (ficIN.readline)
nbLignes = nbLignes + 1
wend
ficIN.close
next

ficOUT.close

Syntaxe à vérifier

MERCI beaucoup grace à toi j'ai pu passer à l'étape suivante
Maintenant cela devien beaucoup plus complexe.. je ne sais pas si tu peux m'aider mais voilà comment cela ce présente :
J'ai 221 rapport qui détail des relevé sur chaque ligne exemple :

Encre : toutes, 31 décembre 2012 9:00:02
Encre d'imprimante 1
Encre d'imprimante 2
Encre d'imprimante 3
Encre d'imprimante 4
Encre d'imprimante 5
Encre d'imprimante 6
Encre d'imprimante 7
Encre d'imprimante 8
Encre d'imprimante 9
Encre d'imprimante 10

C'est a peu près ce que contien tous les fichier texte mais avec une date différente et une heure différente.

Cette fois je dois mettre toute les lignes imprimante à la suite ( seulement les lignes Encre imprimante ) sous forme de colonne et ce en un seul fichier. Et la partie la plus compliqué est que je dois récupéré la date et l'heure de chaque document et qu'elle se multiplient pour apparaitre devant chaque ligne de son rapport cela donnerait en gros :

31 décembre 2012 9:00:02 Encre d'imprimante 1
31 décembre 2012 9:00:02 Encre d'imprimante 2
31 décembre 2012 9:00:02 Encre d'imprimante 3
31 décembre 2012 9:00:02 Encre d'imprimante 4
31 décembre 2012 9:00:02 Encre d'imprimante 5
31 décembre 2012 9:00:02 Encre d'imprimante 6
31 décembre 2012 9:00:02 Encre d'imprimante 7
31 décembre 2012 9:00:02 Encre d'imprimante 8
31 décembre 2012 9:00:02 Encre d'imprimante 9
31 décembre 2012 9:00:02 Encre d'imprimante 10
1 Janvier 2013 10:30:03 Encre d'imprimante 1
1 Janvier 2013 10:30:03 Encre d'imprimante 2
1 Janvier 2013 10:30:03 Encre d'imprimante 3
1 Janvier 2013 10:30:03 Encre d'imprimante 4
1 Janvier 2013 10:30:03 Encre d'imprimante 5
1 Janvier 2013 10:30:03 Encre d'imprimante 6
1 Janvier 2013 10:30:03 Encre d'imprimante 7
1 Janvier 2013 10:30:03 Encre d'imprimante 8
1 Janvier 2013 10:30:03 Encre d'imprimante 9
1 Janvier 2013 10:30:03 Encre d'imprimante 10

La par contre je suis dépasser..

Mais pour commencer il faut que j'arrive a comprendre comment non pas récupérer les 5 première ligne ( oui il y en a 5)mais que au contraire elle soit les seuls que je ne récupère pas