Bonjour,
j'ai trouvé ce bout de code qui fonctionne trés bien en local dans un répertoire pour fusionner la premiere page de chaque fichier exel rencontré, mais je ne sais pas comment l'adapter pour qu'il scrute EGALEMENT les sous répertoires tout en ne prenant
en compte pour la fusion que les fichiers xls, ayant le nom : user.xls
merci de votre aide
code:
Sub Compilation()
Dim Temp As String
Dim Ligne As Long
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
Ligne = Sheets(1).Range("A65536").End(xlUp).Row + 1
Range("A" & CStr(Ligne)).Select
ActiveSheet.Paste
Workbooks(Temp).Close
End If
Temp = Dir
Loop
Range("A1").Select
Application.DisplayAlerts = True
End Sub
j'ai trouvé ce bout de code qui fonctionne trés bien en local dans un répertoire pour fusionner la premiere page de chaque fichier exel rencontré, mais je ne sais pas comment l'adapter pour qu'il scrute EGALEMENT les sous répertoires tout en ne prenant
en compte pour la fusion que les fichiers xls, ayant le nom : user.xls
merci de votre aide
code:
Sub Compilation()
Dim Temp As String
Dim Ligne As Long
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
Ligne = Sheets(1).Range("A65536").End(xlUp).Row + 1
Range("A" & CStr(Ligne)).Select
ActiveSheet.Paste
Workbooks(Temp).Close
End If
Temp = Dir
Loop
Range("A1").Select
Application.DisplayAlerts = True
End Sub