Re : Extraire des données a partir d'une liste de chemins
J'ai un peut avancé, mais je n'arrive pas a concrétisé, j'ai remplacé le chemin du fichier par une variable.
Normalement elle me permet de parcourir la colonne D pour y trouver les chemins&fichiers et en extraire les cellules qui m’intéressent.
Cependant, ça ne marche pas et je ne sais pas pour quoi et je n'ais aucune idée si je chauffe ou si je suis totalement à coté de la plaque.
Sub recup()
ActiveWorkbook.Range("I7").Select
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
Set FL1 = Worksheets("Feuil1")
NoCol = 4
For NoLig = 1 To Split(FL1.Range("D7
6500").Address, "$")(4)
Var = FL1.Cells(NoLig, NoCol)
Range("I7").Select
Workbooks.Open Filename:=Dir(FL1)
Set Feuille = ActiveWorkbook.Sheets("MAQUETTE DEVIS")
ThisWorkbook.Activate
ActiveCell.Value = Feuille.Range("C3").Value
ActiveCell.Offset(0, 1).Value = Feuille.Range("A16").Value
ActiveCell.Offset(0, 2).Value = Feuille.Range("A19").Value
ActiveCell.Offset(0, 3).Value = Feuille.Range("E23").Value
ActiveCell.Offset(0, 4).Value = Feuille.Range("E24").Value
ActiveCell.Offset(0, 5).Value = Feuille.Range("E25").Value
Windows(Fichier).Close savechanges:=False
ThisWorkbook.Activate
Range("I65536").End(xlUp).Offset(1, 0).Select
Fichier = Dir ' Fichier suivant
Next
End Sub