XL 2010 Reperer nom fichier et tableau de plusieurs excel

[auverland]

Bonjour,

Je cherche a récupérer des données de plusieurs excel
J'ai trouver le code pour récupérer cellule par cellules mais comment puis-je l'adapter pour récupérer un tableau par exemple le tableau B3:H23 de tout mes excel
et incorporer le nom du fichier


Merci d'avance

Sub Récap()
Dim Temp$, Nom$, l&
Application.ScreenUpdating = 0
Temp = Dir(ThisWorkbook.Path & "\*.xlsx")
l = 2
'Pour tous les classeurs
Do While Temp <> ""
'Sauf Resultat.xlsx
  If Temp <> "Base de données(1).xlsm" And Right(Temp, 5) = ".xlsx" Then
    Nom = Left(Temp, Len(Temp) - 5)
    'Ouverture du classeur
    Workbooks.Open ThisWorkbook.Path & "\" & Temp
    With ThisWorkbook.Sheets(1)
      .Cells(l, 1) = [B1]
      .Cells(l, 2) = [B2]
      .Cells(l, 3) = [B3]
      .Cells(l, 4) = [B4]
      l = l + 1
    End With
    Workbooks(Temp).Close

  End If
  Temp = Dir
Loop

 

[Staple1600]

Bonsoir le fil, auverland

Il y a moult exemples dans les archives du forum qui traitent de ce sujet.
Et pour ceux qui ont PowerQuery, il aussi des exemples pour ce faire
(avec l'avantage que cela se fait sans VBA)