Récupérer le contenu d'une cellule de tous les fichiers d'un répertoire

Question

Je souhaite récupérer le nom de tous les fichiers et le contenu de la cellule "O3" de tous les fichiers d'un répertoire pour les enregistrer dans un classeur nommé "note". Dans ce fichier "destination" les noms des fichiers du répertoire seront dans la colonne A et le contenu de la cellule O3 dans la colonne B. Je m'entête depuis trois jours à trouver une solution mais là il me faut de l'aide.... car toutes mes tentatives ont échoué. Voici mon code VBA excel. Il me met bien le premier nom de fichier du répertoire en A1 de la feuille note mais après bug sur Cells(L_Ligne, 2).Select Private Sub recupenote() 'annule alerte écran Application.ScreenUpdating = False Dim wbk2 As Workbook 'pour récupérer valeur cellule O3 Dim valeur As Object Dim Chemin As String Dim Fichier As String Dim wb As Workbook 'fichier qui récupère les données des autres fichiers du dossier Dim L_Ligne As Variant 'pour passer d'une ligne à la suivante L_Ligne = L_Ligne + 1 'wb ouvre fichier note Set wb = Workbooks.Open("C:\Users\Sabine\Documents	est\Note.xlsm") 'Définit le répertoire contenant les fichiers dans lesquelles récupérer la valeur O3 Chemin = "C:\Users\Sabine\Documents	est\fichiers\" Fichier = Dir(Chemin & "*.*") 'Fais le code jusqu'à ce qu'il n'y ai plus de fichier à traiter Do While Len(Fichier) &gt; 0 'ouvre le fichier Set wbk2 = Workbooks.Open(Chemin & Fichier) Windows("Note.xlsm").Activate Sheets("Note").Activate Cells(L_Ligne, 1).Select ActiveCell.FormulaR1C1 = Fichier 'récupère dans valeur le contenu de la cellule O3 Set valeur = wbk2.Sheets("Travail").Cells(3, 15) 'wbk2.Close 'met contenu de valeur dans A2 Windows("Note.xlsm").Activate Sheets("Note").Activate Cells(L_Ligne, 2).Select ActiveCell = valeur L_Ligne = L_Ligne + 1 Loop End Sub Merci d'avance pour votre aide précieuse...

jmd · Answer

Menu Données, obtenir... de classeur (ou de répertoire) sélectionne ton répertoire magie ! tu vois TOUT reste à repérer les lignes des cellules O3 par exemple N3 contient "UNMOT", filtre la colonne N sur UNMOT. Il ne reste que les bonnes lignes. il suffit ensuite de supprimer les colonnes indésirables, "charger" c'est le langage M, qu'on n'écrit presque jamais au clavier car le GUI est très complet par la suite, il suffit de cliquer "actualiser" magique je te dis si besoin, joins des extraits de 3 fichiers, je te le fais amitiés et bonne année...