Macro excel transfert de plusieur fichier en un seul

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
@+

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