Menu

Récupérer des données sur plusieurs classeurs

- - Dernière réponse :  Apprendre - 12 avril 2019 à 13:11
Bonjour,

Je cherche à récupérer les données de plusieurs classeurs regroupé dans un fichier afin de les mettre sur un tableau.

J'ai réussi à obtenir ce code grâce à mes recherches sur les forums, mais il ne fonctionne pas parfaitement.

Sub Recap_Eval_Info()
' Recupérer les données Eval_info

Dim wb As Workbook, wb2 As Workbook
Dim sPath As String, sFilename As String
Dim L As Long
Set wb = ThisWorkbook

Application.ScreenUpdating = False
L = Range("A1").End(xlDown).Row + 1 'dernière ligne de la colonne à non vide +1
sPath = Sheets("Paramètres").Range("B5").Value 'Répertoire
sFilename = Dir(sPath & "*.xls*") 'ouvre tous les fichiers .xls*

Do While Len(sFilename) > 0
Set wb2 = Workbooks.Open(sPath & sFilename) 'Ouvre le fichier
'
' Code pour récupérer les informations
wb.Sheets("Recup_Eval_Info").Range("A" & L) = wb2.Sheets("Eval_Info").Range("B10").Value



wb2.Close False 'Fermer le fichier
sFilename = Dir

Loop
Application.ScreenUpdating = True

End Sub


Le code ne récupéré et inscrit sur le tableau que la donnée de 1 seul classeur, le but est qu'il inscrive à la suite la donnée présente dans tous les classeurs du dossier.

D'avance je vous remercie pour votre aide!
Afficher la suite 

Votre réponse

1 réponse

0
Merci
      • Ou plutôt j'ai l'impression que les données du classeur source 1 sont écrasés par celle du classeur source 2 au lieu de se mettre dans la ligne du dessous
Commenter la réponse de Apprendre