[XL-2010] copier toutes les feuilles d'un ensemble de fichiers Excel [Résolu]

[dimitri.evrard24]

Bonjour,
J'essaie de copier toutes les feuilles d'un ensemble de fichiers Excel se trouvant dans un même répertoire, dans un fichier Excel de compilation contenant le code suivant.
Malheureument il ne fonctionne pas comme prévu.
Quelqu'un pourrait-il m'aider ?
Merci !
Dimitri

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Copier()
 
 Chemin = "C:\...\" 'Répertoire où se trouvent les Excel à compiler
 Fichiersource = Dir(Chemin & "*.xlsx") ' Premier fichier à compiler
 Fichiercible = ThisWorkbook.Name ' Fichier de compilation
 
 Do While Fichiersource <> ""
 
    Workbooks(Fichiersource).Activate
 
    For Each Feuille In Workbooks(Fichiersource).Worksheets
 
        Feuille.Copy After:=Workbooks(Fichiercible).Sheets(1)
 
    Next Feuille
 
    Fichiersource = Dir ' Fichier suivant
 Loop
 
End Sub

[Daniel.C]

Bonjour.

Ton code suppose que tous les fichiers sont ouverts. Est-ce le cas ?

[dimitri.evrard24]

Bonjour,

Non, au départ tous les fichiers à consolider sont fermés. Seul le fichier de consolidation (celui qui contient le code VBA) est ouvert. Je ne savais pas qu'il faut une manip pour les ouvrir car j'avais essayé mon code avec un seul fichier et ça marchait...

Merci.
Dimitri

[Daniel.C]

Non, il faut les ouvrir :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Copier()
 
Chemin = "C:\...\" 'Répertoire où se trouvent les Excel à compiler
Fichiersource = Dir(Chemin & "*.xlsx") ' Premier fichier à compiler
Fichiercible = ThisWorkbook.Name ' Fichier de compilation
 
Do While Fichiersource <> ""
 
Workbooks.Open Chemin & Fichiersource
 
For Each Feuille In Workbooks(Fichiersource).Worksheets
 
Feuille.Copy After:=Workbooks(Fichiercible).Sheets(1)
 
Next Feuille
 
Workbooks(Fichiersource).Close False
Fichiersource = Dir ' Fichier suivant
Loop
 
End Sub

[dimitri.evrard24]

Génial ! Ca marche nickel ! Dire que j'ai passé toute la journée là dessus !
Je ne sais comment te remercier !
Dimitri

[dimitri.evrard24]

Au risque d'abuser de ta gentillesse...

Maintenant, je cherche à compiler sur une feuille les informations en provenance d'autres feuilles (qui dont au départ étaient dans d'autres fichiers).

Chaque feuille a la même structure :
- la cellule B2 contient un nom de client
- la plage A12-N23 contient des noms d'articles et le chiffre d'affaires par mois

J'ai un code trouvé sur un forum qui boucle sur chaque feuille, récupère tout le contenu et colle ces infos à la suite des infos de la feuille précédente :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Lister()
    Dim Fe As Worksheet
    Dim Plage As Range
    For Each Fe In ThisWorkbook.Worksheets
        If Fe.Name <> "Compil" Then        
            With Fe
                Set Plage = .Range(.Cells(2, 1), _
                            .Cells( _
                            .Cells.Find("*", .[A1], -4123, , _
                            1, 2).Row, _
                            .Cells.Find("*", .[A1], -4123, , _
                            2, 2).Column))                            
            End With
            Plage.Copy _
            Worksheets("Compil").Range("A65536").End(xlUp).Offset(1, 0)            
        End If
    Next Fe
End Sub

Par contre je ne sais pas comment je peux coller le nom de mon client sur chaque ligne article dans ma feuille de consolidation. En fait je n'arrive pas à saisir la syntaxe de la définition de la plage et de la fonction de copie

Voici ce que je voudrais obtenir :
+---+---+---+
|Jan|Fév|Mar|...etc
+--------+--------+---+---+---+
|Client 1|Article1| 0| 20|500|...etc
+--------+--------+---+---+---+
|Client 1|Article2| 1|100| 2|...etc
+--------+--------+---+---+---+
|Client 2|Article1| 25| 0|120|...etc
+--------+--------+---+---+---+

Merci de ton aide.
Dimitri

[Daniel.C]

Tout dépend de la disposition de ton tableau initial. Où setrouvent les articles, où se trouvent les mois ?

[dimitri.evrard24]

Daniel,

Les articles sont colonne A; j'ai une catégorie d'articles colonne B puis les mois de janvier à décembre dans les colonnes C à N.

Le 1er article commence ligne 12 et le dernier ligne 23 (sauf que j'ai des cellules A entre 12 et 23 qui sont vides) si il y a moins de 12 articles pour un client donné.

Donc en gros je voudrais coller les plages non vides A12 à N23 entre mes colonnes B et M sur les premières lignes non vides du fichier de compilation et le nom du client sur les mêmes lignes, dans la colonne A.

J'ai beaucoup de mal à comprendre comment manipuler tout ça ...

[Daniel.C]

Essaie (non testée) :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Lister()
    Dim Fe As Worksheet
    Dim Plage As Range
    Dim Ligne As Long
    For Each Fe In ThisWorkbook.Worksheets
    If Fe.Name <> "Compil" Then
    With Fe
        Set Plage = .Range(.[N12], .Cells(.Rows.Count, 1).End(xlUp))
        Ligne = .Range("A65536").End(xlUp).Offset(1)
        Plage.Copy Worksheets("Compil").Cells(Ligne, 2)
        Worksheets("Compil").Cells(Ligne, 1).Resize(12).Value = .[B2]
    End With
    With Sheets("Compil")
        Ligne = .Range("B65536").End(xlUp).Offset(1)
        Plage.Copy .Cells(Ligne, 2)
        .Cells(Ligne, 1).Resize(Plage.Rows.Count).Value = .[B2]
    End With
    End If
    Next Fe
End Sub

[dimitri.evrard24]

Bonjour Daniel et merci de ton aide.

J'ai copié ton code et en fait il s'arrête à la ligne

Code :

1
2
 
Plage.Copy Worksheets("Compil").Cells(Ligne, 2)

Erreur d'exécution 1004: erreur définie par l'application ou par l'objet

A ce moment, "Ligne" est égal à zéro. Peut-être parce que j'ai quelques cellules vides avant mon tableau avec les clients/mois (?).

Donc comment prendre en compte les lignes articles seulement à partir de la ligne 12 ?

Merci

[Daniel.C]

Bonjour,
Au temps pour moi (je n'ai pas testé le code). Mets :

Code :

Ligne = Range("B65536").End(xlUp).Offset(1).Row

[dimitri.evrard24]

Excellent, ça fonctionne !
Au final j'ai donc ce code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub Lister()
    Dim Fe As Worksheet
    Dim Plage As Range
    Dim Ligne As Long
    For Each Fe In ThisWorkbook.Worksheets
    If Fe.Name <> "Compil" Then
    With Fe
        Set Plage = .Range(.[N12], .Cells(.Rows.Count, 1).End(xlUp))
        Ligne = Range("B65536").End(xlUp).Offset(1).Row
        Plage.Copy Worksheets("Compil").Cells(Ligne, 2)
        Worksheets("Compil").Cells(Ligne, 1).Resize(12).Value = .[B2]
    End With
    End If
    Next Fe
End Sub

Par contre, y aurait-il la possibilité de ne pas coller les lignes articles vides, c'est à dire que j'ai des articles entre les lignes 12 et 23 mais s'il y en a moins, ça peut s'arrêter avant la ligne 23, donc pour les lignes vides, la colonne A est vide...
Merci.
Dimitri

[Daniel.C]

Pourquoi as-tu modifié mon code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Lister()
    Dim Fe As Worksheet
    Dim Plage As Range
    Dim Ligne As Long
    Dim Nom As String
    For Each Fe In ThisWorkbook.Worksheets
    If Fe.Name <> "Compil" Then
    With Fe
        Nom = .[B2]
        Set Plage = .Range(.[N12], .Cells(.Rows.Count, 1).End(xlUp))
    End With
    With Worksheets("Compil")
        Ligne = .Range("B65536").End(xlUp).Offset(1).Row
        Plage.Copy .Cells(Ligne, 2)
        .Cells(Ligne, 1).Resize(Plage.Rows.Count).Value = Nom
    End With
    End If
    Next Fe
End Sub

[dimitri.evrard24]

Ah désolé, je pensis que comme il y avait une erreur sur une ligne similaire, c'était un doublon... désolé je ne connais pas grand chose à la programmation
Merci encore pour ton aide si efficace.

[Daniel.C]

désolé je ne connais pas grand chose à la programmation

Si tu le souhaites, je peux expliquer le code.