Bonjour,
Je dispose d'un code me permettant d'extraire des donnés de fichiers fermés en renseignant manuellement dans le code la racine d’accès du dossier et onglet du fichier.
Dans la feuille de calcul, je dispose d'une liste de racines d’accès des fichiers .xls
Tous les fichiers dans lesquels je veut extraire des valeurs sont tramés de la même façon.
J'aimerais que mon code associe la liste de racines d'acces et m'extrait les information en fonction de cellei-ci.
Sub recup()
Range("E7").Select 'sélectionner la cellule de début
Chemin = "D:\AJOURDAN\Mes Documents\ECOTEC 3eme ANNEE\PROJET\VBA FM\Sondages\Sondage001"
fichier = Dir(Chemin & "*.xls")
Do While fichier <> ""
Workbooks.Open Filename:=Chemin & fichier
Set feuille = ActiveWorkbook.Sheets("MAQUETTE")
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("A65536").End(xlUp).Offset(1, 0).Select
fichier = Dir ' Fichier suivant
Loop
End Sub
Merci d'avance