Extraire les données d'uen cellule d'un classeur fermé

[Nicko29]

Bonjour,

J'ai ce code qui marche bien pour lister des fichiers ,

Option Explicit
Public nb As Integer
 
Sub Appel()
Dim chemin As String
    nb = 0
    chemin = ThisWorkbook.Path
    Lister chemin
End Sub

Public Function Lister(chemin As String)
Dim fs, Rep As Variant, NewRep As String, Nomfich As String
    Set fs = CreateObject("Scripting.FileSystemObject")
    Lister = fs.GetFolder(chemin).Files.Count
    Nomfich = Dir(chemin & "\*.xls")
    Do While Nomfich <> ""
        nb = nb + 1
        Cells(nb, 1) = chemin & "\" & Nomfich 'liste dans la feuille de calculs active
        
        Nomfich = Dir()
    Loop
    'Pour chaque sous-répertoire, appel récursif de Lister
    For Each Rep In fs.GetFolder(chemin).SubFolders
        NewRep = Lister(Rep.Path)
    Next Rep
End Function

Mais j'aimerai bien , ajour un ligne du genre :

Cells(nb, 2) = 'Cellule B4 de la feuil1 du fichier

Comment puis-je l'écrire ?

Merci

 

[kiki29]

Re : Extraire les données d'uen cellule d'un classeur fermé

Salut, via une recherche ici

C'est le genre de code récurrent, que j'ai posté x fois, mais je n'ai pas gardé de référence .....

 

[Nicko29]

Re : Extraire les données d'uen cellule d'un classeur fermé

Bonjour kiki29,

Effectivement je suis passé à coté de ton code , il existe tellement de posts, bon afin de reboucler sur une très bonne solution je remet le lien vers ton Lien supprimé et le lien vers le post https://www.excel-downloads.com/threads/recherche-dans-plusieurs-fichiers.72998/

Je l'ai adapté, c'est génial !

Merci Kiki29