Bonjour,
J'ai de nombreux classeurs, qui contiennent environ 20 feuilles, pour l'instant j'ouvrais chaque classeur et mettais mon code : je boucle sur les feuilles, je compile les feuilles (elles ont les mêmes colonnes) en créant dans chaque classeur une feuille "Compilation" et en faisant :
et ensuite, je copie colle les valeurs de "compilation" dans un classeur "Synthèse".
En fait, je cherche pour mon classeur "synthèse" : qu'il boucle sur tous les classeurs (contenus dans le même dossier, donc thisworkbook.path), qu'il fasse la macro ci dessus (=boucle sur les feuilles et compilation des données) et colle dans "synthèse".....
Un petite aide ?
En vous remerciant,
J'ai de nombreux classeurs, qui contiennent environ 20 feuilles, pour l'instant j'ouvrais chaque classeur et mettais mon code : je boucle sur les feuilles, je compile les feuilles (elles ont les mêmes colonnes) en créant dans chaque classeur une feuille "Compilation" et en faisant :
Code:
Sub Compilation()
Dim DerligR1 As Long
Dim DerligR2 As Long
Dim MaPlage As Range
Dim DerniereLigne As Integer
Dim nb As Integer
Dim j As Integer
Dim i As Integer
nb = ActiveWorkbook.Worksheets.Count
For j = 1 To nb
ActiveWorkbook.Worksheets(j).Tab.ColorIndex = 1
Next
For j = 1 To nb
If Left(ActiveWorkbook.Worksheets(j).Name, 1) = "P" Then
ActiveWorkbook.Worksheets(j).Select
ActiveWorkbook.Worksheets(j).Tab.ColorIndex = 3
With ActiveWorkbook.Worksheets(j)
DerligR1 = .Range("a" & .Rows.Count).End(xlUp).Row
Rows("2:" & DerligR1).Select
Selection.Copy
End With
ActiveWorkbook.Sheets("Compilation").Select
DerligR2 = Range("A300000").End(xlUp).Row + 1
Range("A" & DerligR2).Select
ActiveWorkbook.ActiveSheet.Paste
End If
Next j
MsgBox ("Fini")
End SubEn fait, je cherche pour mon classeur "synthèse" : qu'il boucle sur tous les classeurs (contenus dans le même dossier, donc thisworkbook.path), qu'il fasse la macro ci dessus (=boucle sur les feuilles et compilation des données) et colle dans "synthèse".....
Un petite aide ?
En vous remerciant,
Dernière édition:
