Bonjour
J'ai le code suivant dans une macro, établit à partir d'un code existant puis modifé selon les besoins, j'aurai besoin, dans le début du code de pouvoir récupérer indifféremment les fichiers xls ou xlsx, comment modifier cela ?
Merci
J'ai le code suivant dans une macro, établit à partir d'un code existant puis modifé selon les besoins, j'aurai besoin, dans le début du code de pouvoir récupérer indifféremment les fichiers xls ou xlsx, comment modifier cela ?
Merci
Code:
Sub Compilation()
Dim fileName As String
Dim wb As Workbook
Application.DisplayAlerts = False
ThisWorkbook.Worksheets(1).Range("A2:Z" & ThisWorkbook.Worksheets(1).Range("A2").CurrentRegion.Rows.Count).EntireRow.Delete
fileName = Dir(ActiveWorkbook.Path & "\*.xlsx")
Application.ScreenUpdating = False
Do While fileName <> ""
If fileName <> ThisWorkbook.Name Then
Set wb = Workbooks.Open(ActiveWorkbook.Path & "\" & fileName)
wb.Worksheets(1).Range("D2:AE" & wb.Worksheets(1).Range("D2").CurrentRegion.Rows.Count).Copy
ThisWorkbook.Worksheets(1).Activate
Range("A" & Worksheets(1).Range("A1").CurrentRegion.Rows.Count + 1).Select
ActiveSheet.Paste
wb.Close False
End If
fileName = Dir
Loop
Set wb = Nothing
[A1].Select
Application.ScreenUpdating = True
End Sub