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 : Sélectionner tout - Visualiser dans une fenêtre à part
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