Macro: modification d'un code

[sr94]

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

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

 

[Iznogood1]

Re : Macro: modification d'un code

fileName = Dir(ActiveWorkbook.Path & "\*.xls*")

devrait fonctionner

 

[sr94]

Re : Macro: modification d'un code

C'est bon, merci beaucoup !