Macro excel transfert de plusieur fichier en un seul

[falete]

Bonjour,

Je cherche à fusionner un nombre x de fichiers excel ne comportant chacun qu'une feuille en un seul fichier excel.
Tous les fichiers sont sur le même modèle: un tableau type (2 lignes dont entête et un nombre de colones y)
Le but est de récupérer automatiquement la deuxième ligne de chaque fichiers et de les mettre les unes en dessous des autres dans un seul fichier.

Merci d'avance

 

[Pierrot93]

Re : Macro excel transfert de plusieur fichier en un seul

Bonjour,

une petite recherche sur le forum devrait t'apporter la solution, sujet abordé à maintes reprises ici...
bonne journée
@+

 

[falete]

Re : Macro excel transfert de plusieur fichier en un seul

Ba la recherche ne donne rien :s

sinon mon code c'est ça


Sub CommandButton1_Click()

Dim Wbk As Workbook
Dim Fich As String
Dim j As Long

Fich = Dir("C:\Documents and Settings\CHATELAINCL\Bureau\excel\*.xls")
Application.ScreenUpdating = False
Do While Fich <> ""
Set Wbk = Workbooks.Open("C:\Documents and Settings\CHATELAINCL\Bureau\excel" & Fich)
ThisWorkbook.Sheets("Feuil1").Range("B" & 2 + j & ":O" & 2 + j).Value = Wbk.Sheets(1).Range("B2:O2").Value 'Adapte le nom Feuil1 à ta feuille destination
j = j + 1
Wbk.Close
Set Wbk = Nothing
Fich = Dir
Loop
End Sub