Discussion :

[ancel17]

Bonjour !

j'ai un fichier Excel avec plusieurs feuilles (sommaire, sous-rubrique1,...sous-rubriquen).
Dans toutes mes feuilles "sous-rubrique", j'ai un tableau dont la structure ne varie pas.

je voudrais savoir comment récupérer automatiquement les lignes des tableaux de toutes les feuilles "sous-rubrique" et les insérer au tableau de la feuille "sommaire".

Merci de vos réponses !

[ouskel'n'or]

Tu as deux solutions, ou tu copies 'plage de données' par 'plage de données' dans ta feuille sommaire.
Ou tu copies tes plages ligne par ligne
Pour la solution par plage, tu peux tester ça

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
Sub RassemblerLesFeuillesDunClasseurDansUneSeule()
Dim CL1 As Workbook
Dim FL1 As Worksheet, LaFeuille as Worksheet
    Set CL1 = Workbooks("Liste pour fusion.xls")
    Set FL1 = CL1.Worksheets("Sommaire")
    For Each LaFeuille In CL1.Worksheets
        If Not LaFeuille.Name = FL1.Name Then _
            LaFeuille.Range("A2:" & LaFeuille.Range("A1"). _
            SpecialCells(xlCellTypeLastCell).Address).Copy _
            Destination:=FL1.Range("A" & FL1.Range("A1"). _
            SpecialCells(xlCellTypeLastCell).Row + 1)
    Next
    Set FL1 = Nothing
    Set CL1 = Nothing
End Sub

A+

Edit
Je fais commencer la copie en A2 (LaFeuille.Range("A2:"...) afin de ne pas copier l'entête éventuelle des feuilles copiées
Si pas d'entête -> LaFeuille.Range("A1:" ...

NB - Avant copie, ton fichier doit être enregistré pour que
Range("A1").SpecialCells(xlCellTypeLastCell)
donne l'exact N° de dernière cellule de la plage de données à copier
ou le N° de la première cellule vide où coller

[ancel17]

Merci pour ton aide !

voici le code actuel :

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
Private Sub Worksheet_Activate()
Dim CL1 As Workbook
Dim FL1 As Worksheet, LaFeuille As Worksheet
    Set CL1 = Workbooks("Air.xls")
    Set FL1 = CL1.Worksheets("Sommaire")
    With FL1.Rows("15:65536")
        .ClearContents
        .Delete
    End With
    For Each LaFeuille In CL1.Worksheets
        If Not LaFeuille.Name = FL1.Name Then _
            LaFeuille.Range("A15:" & LaFeuille.Range("A1"). _
            SpecialCells(xlCellTypeLastCell).Address).Copy _
            Destination:=FL1.Range("A" & FL1.Range("A1"). _
            SpecialCells(xlCellTypeLastCell).Row + 1)
        Next
    Set FL1 = Nothing
    Set CL1 = Nothing
End Sub

j'ai inséré un bloc with car je souhaite que mon tableau de la feuille "sommaire" soit recalculé à chaque fois que la feuille est affichée. J'ai donc essayé .ClearContents, puis .Delete, puis les deux pour essayer de résoudre mon problème qui est le suivant :

les données importées des autres feuilles du classeur sont copiées à la suite du tableau précédent (bien que les lignes du tableau soient préalablement supprimées)

j'obtiens donc un tableau avec n lignes vides correspondant aux lignes des données précédentes et m lignes correctement remplies correspondant aux lignes des nouvelles données.

Vois-tu où est le problème ?

[ancel17]

Désolé pour le dérangement, j'ai trouvé la solution que j'avais déjà dans ta première réponse...
j'ai juste un peu zappé ton NB et du coup, je n'enregistrais pas mon fichier avant de copier mes données.

Voici le code qui fonctionne :

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
Private Sub Worksheet_Activate()
Dim CL1 As Workbook
Dim FL1 As Worksheet, LaFeuille As Worksheet
    Set CL1 = Workbooks("Air.xls")
    Set FL1 = CL1.Worksheets("Sommaire")
    FL1.Rows("15:65536").Delete
    CL1.Save
    For Each LaFeuille In CL1.Worksheets
        If Not LaFeuille.Name = FL1.Name Then _
            LaFeuille.Range("A15:" & LaFeuille.Range("A1"). _
            SpecialCells(xlCellTypeLastCell).Address).Copy _
            Destination:=FL1.Range("A" & FL1.Range("A1"). _
            SpecialCells(xlCellTypeLastCell).Row + 1)
        Next
    Set FL1 = Nothing
    Set CL1 = Nothing
End Sub

Toujours dans le meme style mais en un peu plus compliqué, je voudrais maintenant importer les données de mes tableaux "sommaire" (j'ai plusieurs fichiers .xls différents) dans un tableau situé dans un autre classeur.

Comment faire ?

[ouskel'n'or]

Ou tu veux lister les fichiers d'un répertoire particulier, ou tu connais les noms et chemins des fichiers à "agglutiner", auquel cas tu en fais un tableau.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
LeTableau = Array("D:\xls\Sommaire1.xls", "D:\xls\Sommaire2.xls", "D:\xls\Sommaire3.xls", "D:\xls\Sommaire4.xls")
 
'le classeur contenant la macro et dans lequel tu colles les feuilles sommaire
Set Fl1 = ThisWorkbook
 
'La boucle
For i = 1 to Ubound(LeTableau)
     Set FL2 = Workbooks.open LeTableau(i)
     'Copie de la feuille
     FL1. 'collage
     DoEvents
     FL2.close false
Next

et là tu dois pouvoir adapter à ton nouveau fichier le code qui t'a servi pour créer le sommaire.
A+

[ancel17]

Tout d'abord merci pour tes réponses !

Voici le code que j'ai inséré dans le classeur qui reçoit les données :

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
Private Sub Worksheet_Activate()
 
Dim fso As New FileSystemObject
Dim fich As file
Dim Rep As Folder
Dim Wk As Variant
Dim TabFich() As String
    Set Rep = fso.GetFolder(Application.ThisWorkbook.Path & "\Thèmes")
    For Each fich In Rep.Files
        Wk = Chemin & fich.Name
         'Renseigne une listbox
        If fso.GetExtensionName(Wk) = "xls" Then _
           listbox1.AddItem Wk
        End If
    Next
    Set Rep = Nothing
 
Dim CL1 As Workbook, CL2 As Workbook
Dim FL1 As Worksheet, FL2 As Worksheet
    Set CL1 = ThisWorkbook
    Set FL1 = CL1.Worksheets("Sommaire")
    FL1.Rows("74:65536").Delete
    CL1.Save
    For i = 1 To UBound(listbox1)
        Set CL2 = Workbooks.Open(listbox1(i))
        Set FL2 = CL2.Worksheets("sommaire")
        FL2.Range("A15:" & FL2.Range("A1"). _
        SpecialCells(xlCellTypeLastCell).Address).Copy _
        Destination:=FL1.Range("A" & FL1.Range("A1"). _
        SpecialCells(xlCellTypeLastCell).Row + 1)
    Next i
 
    Set FL1 = Nothing
    Set CL1 = Nothing
    Set FL2 = Nothing
    Set CL2 = Nothing
 
End Sub

Je ne sais pas si cela peut fonctionner étant donné que j'ai une erreur dès la première ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim fso As New FileSystemObject

L'erreur est la suivante :

Erreur de compilation :
Type défini par l'utilisateur non défini

Qu'en penses-tu ?