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
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
VB:
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