[VBA] copie de données

Bonjour,

J'ai un problème (normal, si je viens vers vous ;-)).
J'ai n fixhiers txt dans un répertoire et je veux récupérer seulement 3 lignes de ces fichiers txt (toujours placer au même endroit).
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Open resultat For Output As #1 Do While Not EOF(1) Line Input #1, laligne position_nom = InStr(1, laligne, "Files: (", vbTextCompare) If position_nom > 0 Then T = Mid(laligne, position_pixel + 2, 14) position_lowerleft = InStr(1, laligne, "Lower Left (", vbTextCompare) T1 = Mid(laligne, position_lowerleft + 30, 31) position_upperright = InStr(1, laligne, "Upper Right (", vbTextCompare) T2 = Mid(laligne, position_upperright + 31, 30) Exit Do End If Loop Close #1
Je sais qu'un code de ce type est capable de récupérer les valeurs d'un fichier, mais comment lui dire d'écrire dans un fichier résultat pour chaque fichier txt rencontré.

d'avance merci, en espérant avoir été clair