extraction de donné a partir de plusieurs XL

[Yakusa]

Bonjour,
je suis nouveau sur le forum et je souhaiterai avoir un peu d'aide pou mon petit programme a réaliser...
alors je relance ma demande :

On envois a nos clients de formulaires format XL et une fois remplit ils nous les renvoient par mail.
De notre côté on les copie dans un dossier et a la fin du mois on les trie (environ 500).
L'objectif est donc de récuperer certaine donné des formulaires (genre NOM, PRENOM....) et les recenser dans une et une seule page excel.
1 ligne = 1 formulaire (plus d'infos sur le schema ci dessous)

ex d'un formulaire du client 1 (est en XLS)
Nom-------Prenom
Adresse---Code Postal

ex d'un formulaire du client 2 (est en XLS)
Nom-------Prenom
Adresse---Code Postal


ex du fichier XLS qui recense les donné trié
----------NOM | Prenom | ADRESSE | CP
Client 1
Client 2

En vous remerciant d'avance.
bonne journée

 

[Yakusa]

J'ai fais quelque recherche sur le forum, et j'ai trouvé ce bout de script mais qui ne répond pas trop a ma demande...
On a un dossier qui regroupe les 2500 fichiers...
comment faire pour récuperer dans chaque fichier uniquement la ligne A3:BU3 et les copier vers une autre page excel dans la ligne A2:BU2
et pour le 2e fichier il se placera dans A3:BU3...ainsi de suite.

Sub Transfert()

Windows('NOM DU CLASSEUR 1.xls').Activate
Sheets('XL001').Select
range('A840:f849').select
Selection.Copy
Windows('NOM DU CLASSEUR QUI RECOIT.xls').Activate
Sheets('XL999').Select
Range('A1').Select
ActiveSheet.Paste


Windows('NOM DU CLASSEUR 2.xls').Activate
Sheets('XL002').Select
range('A840:F849').select
Selection.Copy
Windows('NOM DU CLASSEUR QUI RECOIT.xls').Activate
Sheets('XL999').Select
Range('A10').Select
ActiveSheet.Paste

End Sub