Bonjour,
Je m'initie en VBA et je rencontre un problème, je n'arrive plus a avancer.
Ce que je veux c'est une macro qui récupère la même feuille sur plusieurs classeurs de ma liste et colle dans une même feuille. J'ai trouvé un code que j'ai changer donc ce code ouvre chaque classeurs mais ne me copie rien. Si quelqu'un peut m'éclairer ce sera super.
Je vous remercie d'avance

Voici le code:

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Sub Lili()
Dim ListP As Variant
Dim CL1 As Workbook, i As Byte
Dim FL1 As Worksheet
    Set CL1 = ThisWorkbook
 
    CL1.Sheets.Add
    CL1.ActiveSheet.Name = "Feuilyoyo"
    Set FL1 = CL1.ActiveSheet
 
 
    ListP = Array("S:\COMPTABILITE\moi\Yep\Ht2\Rt.xlsx")
 
    For i = 0 To UBound(ListP)
        Copie FL1, ListP(i)
    Next
End Sub
Sub Copie(FL1 As Worksheet, Fichier)
Dim CL2 As Workbook
Dim FL2 As Worksheet
Dim i As Byte, Rep$, NoLigne As Long
 
     Set CL2 = Workbooks.Open(Fichier)
 
 
        For Each FL2 In CL2.Worksheets
        If FL2.Name = PAD Then
        If IsEmpty("FL2") = False Then
 
            NoLigne = FL1.Range("A1").SpecialCells(xlCellTypeLastCell).Row + 1
 
           FL2.Cells.Copy = FL1.Range("A" & NoLigne)
 
            DoEvents
            Set FL2 = Nothing
        End If
        End If
        Next
 
 
        CL2.Close False
        DoEvents
        Set CL2 = Nothing
End Sub