Bonjour à tous,
Voici une macro, récupérée sur ce site, qui permet de récupérer dans le fichier la contenant, des données de x fichiers excel présents dans le même répertoire.
Je souhaiterais la compléter pour lui dire de récupérér non seulement les données de A2 à F2 de la feuille 1, mais également les données de la feuille 6 de C5 à C15. La difficulté est que je veux que ces données (C5 à C15)présentées à l'origine verticalement, soit collées horizontalement à la suite des données copiées en A2 et F2.
Je souhaite donc que la macro fasse:
1-une copie de A2:F2 dans chacun des fichiers présents dans le répertoire
2- une copie de C5:C15 dans chacun des fichiers présents dans le répertoire
3- crée une nouvelle ligne pour chacun de ces fichiers et y colle A2:F2 puis, transposés, C5:C15
Voici en noir la macro qui fonctionne et en rouge la partie que je ne sais écrire et qui indiquerait de faire le collage transposé des données. Je l'ai indiqué ici pour expliquer mon besoin.
En vous remerciant pour vos réponses:
Sub consolide()
ChDir ActiveWorkbook.Path
Set recap = ThisWorkbook
recap.Sheets(1).Range("A2:X5000").Clear
compteur = 1
nf = Dir("*.xls")
Do While nf <> ""
If nf <> recap.Name Then
Workbooks.Open Filename:=nf
Workbooks(nf).Sheets(1).Range("A2:F2").Copy _
Destination:=recap.Sheets(1).Range("A" & recap.Sheets(1).[A1000].End(xlUp).Row + 1)
Workbooks(nf).Sheets(6).Range("C5:C15").Copy _
Transpose = True Destination:=recap.Sheets(1).Range("G" & recap.Sheets(1).[G1000].End(xlUp).Row + 1)
Workbooks(nf).Close False
End If
nf = Dir
Loop
End Sub
Voici une macro, récupérée sur ce site, qui permet de récupérer dans le fichier la contenant, des données de x fichiers excel présents dans le même répertoire.
Je souhaiterais la compléter pour lui dire de récupérér non seulement les données de A2 à F2 de la feuille 1, mais également les données de la feuille 6 de C5 à C15. La difficulté est que je veux que ces données (C5 à C15)présentées à l'origine verticalement, soit collées horizontalement à la suite des données copiées en A2 et F2.
Je souhaite donc que la macro fasse:
1-une copie de A2:F2 dans chacun des fichiers présents dans le répertoire
2- une copie de C5:C15 dans chacun des fichiers présents dans le répertoire
3- crée une nouvelle ligne pour chacun de ces fichiers et y colle A2:F2 puis, transposés, C5:C15
Voici en noir la macro qui fonctionne et en rouge la partie que je ne sais écrire et qui indiquerait de faire le collage transposé des données. Je l'ai indiqué ici pour expliquer mon besoin.
En vous remerciant pour vos réponses:
Sub consolide()
ChDir ActiveWorkbook.Path
Set recap = ThisWorkbook
recap.Sheets(1).Range("A2:X5000").Clear
compteur = 1
nf = Dir("*.xls")
Do While nf <> ""
If nf <> recap.Name Then
Workbooks.Open Filename:=nf
Workbooks(nf).Sheets(1).Range("A2:F2").Copy _
Destination:=recap.Sheets(1).Range("A" & recap.Sheets(1).[A1000].End(xlUp).Row + 1)
Workbooks(nf).Sheets(6).Range("C5:C15").Copy _
Transpose = True Destination:=recap.Sheets(1).Range("G" & recap.Sheets(1).[G1000].End(xlUp).Row + 1)
Workbooks(nf).Close False
End If
nf = Dir
Loop
End Sub