Macro - extraire des données dans plusieurs pages vers une feuille excel

Bonjour,

J'ai une macro qui permet, quand j'ouvre plusieurs fichiers excel d'extraire des données qui sont toujours placées au même endroit (colonne ligne) pour les disposer dans une autre feuille excel.

Mon problème : je voudrais faire cette opération pour plusieurs centaines de fichiers. Et mon ordinateur ne supporte pas que j'ouvre plus de 20 fichiers à la fois...

Est-il possible de faire ouvrir, par la macro, automatiquement chaque fichier, d'extraire la donnée et de le refermer ?

Ci-dessous la macro actuelle.

Merci pour votre aide


Sub Code()

Dim fichier_recap As Workbook, wb As Workbook, Ligne As Long

Set fichier_recap = Workbooks.Add
fichier_recap.SaveAs ("Récapitulatif.xls")
With fichier_recap
.Sheets(1).Range("A1").Value = "Fichier"
.Sheets(1).Range("B1").Value = "NOM Prénom"
.Sheets(1).Range("C1").Value = "DDN"
.Sheets(1).Range("D1").Value = "Sexe"
.Sheets(1).Range("E1").Value = "Poids"
.Sheets(1).Range("F1").Value = "Taille (cm)"
.Sheets(1).Range("G1").Value = "SC"
.Sheets(1).Range("H1").Value = "Clairance"
.Sheets(1).Range("I1").Value = "Clairance / Inuline"
.Sheets(1).Range("J1").Value = "Clairance normalisée"
.Sheets(1).Range("K1").Value = "Date de l'examen"
End With

Ligne = 1

For Each wb In Workbooks
If wb.Name <> "Récapitulatif.xls" Then
Ligne = Ligne + 1
With fichier_recap.Sheets(1)
.Cells(Ligne, 1).Value = wb.Name
.Cells(Ligne, 2).Value = wb.Sheets(1).Range("B10").Value
.Cells(Ligne, 3).Value = wb.Sheets(1).Range("D10").Value
.Cells(Ligne, 4).Value = wb.Sheets(1).Range("F10").Value
.Cells(Ligne, 5).Value = wb.Sheets(1).Range("B12").Value
.Cells(Ligne, 6).Value = wb.Sheets(1).Range("D12").Value
.Cells(Ligne, 7).Value = wb.Sheets(1).Range("F12").Value
.Cells(Ligne, 8).Value = wb.Sheets(1).Range("B41").Value
.Cells(Ligne, 9).Value = wb.Sheets(1).Range("C43").Value
.Cells(Ligne, 10).Value = wb.Sheets(1).Range("C45").Value
.Cells(Ligne, 11).Value = wb.Sheets(1).Range("E3").Value
End With
End If
Next wb

End Sub