Bonjour à tous,
je voudrais regrouper 2 fichiers excel en un seul. j'ai essayé avec ce code :
Sauf que cela me donne pas le résultat escompté. Mon souhait c'est de copier le contenu des fichiers sans les entêtes vers le fichier recap en gardant la même structure.
Merci de votre aide précieuse.
je voudrais regrouper 2 fichiers excel en un seul. j'ai essayé avec ce code :
Sub Compilation()
Dim Temp As String
Temp = Dir(ActiveWorkbook.Path & "\*.xls")
Application.DisplayAlerts = False
Do While Temp <> ""
If Temp <> "Recap.xls" Then
Workbooks.Open ActiveWorkbook.Path & "\" & Temp
Workbooks(Temp).Sheets(1).Range("A1").CurrentRegion.Copy
Workbooks("Recap.xls").Sheets(1).Activate
If Cells(1, 1) = "" Then col = 1 Else col = Cells(1, 1).End(xlToRight).Column + 1
Cells(1, col).Select
ActiveSheet.Paste
Workbooks(Temp).Close
End If
Temp = Dir
Loop
Range("A1").Select
Application.DisplayAlerts = True
End Sub
Sauf que cela me donne pas le résultat escompté. Mon souhait c'est de copier le contenu des fichiers sans les entêtes vers le fichier recap en gardant la même structure.
Merci de votre aide précieuse.