Discussion :

[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 :

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
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 :

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
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 :

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
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 ?