Rassembler plusieurs fichiers excel

Bonjour,

Sous un même répertoire, j'ai 10 fichiers avec plusieurs onglets chacun. Dans chaque fichier se trouve un onglet nommé P2.

Je veux créer un nouveau fichier avec toutes les données P2 des 10 fichiers . Les cellules se retrouvent dans le range A1 - O54 (il se peut que le nombre de ligne soit éventuellement variable).

J’ai essayé ce codage, mais je ne réussit pas à sélectionner un onglet en particulier dans mes fichiers (soit la feuille P2)…

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub bachfile() Set fs = Application.FileSearch With fs .LookIn = "C:\…" .Filename = "*.xls" .Execute For i = 1 To .FoundFiles.Count ' MsgBox.FoundFiles (i) If .FoundFiles(i) <> "C:\…" Then Workbooks.Open Filename:=.FoundFiles(i) x = Workbooks("testing.xls").Sheets("Download").Range("A65536").End(xlUp).Row + 1 Range("A1:O54").Copy Workbooks("testing").Sheets("Download").Range("A" & x) ActiveWorkbook.Close SaveChanges:=False End If Next i If .FoundFiles.Count = 0 Then MsgBox "Aucun fichier n'a été trouvé" End If End With

---

Avez-vous une solution…

Merci beaucoup

SAlut et bienvenu
Etant nouveau tu n'as surement pas du voir la fonction recherche du forum, en l'utilisant ou en regardant les dernier sujet posté tu aurais pu trouver ceci (un peu de pub pour Ouskel'n'ord :D) qui je pense repondra a ta question ou du moins te donnera suffisement d'information pour nous proposer une macro que nous t'aideront a debugger si besoin.

Juste une petite parenthésé, je trouve que c'est dernier jour il a a vraiment beaucoup d'inscription... et les sujets sont très souvent identiques, vous suivez tous la même formation ? :lol: ou c'est juste une coïncidence?:aie:

A++
Qwaz