Trouver le chemin d'un fichier Excel

[Trulo]

Bonsoir à tous

Je suis à la recherche d'un code me permettant de pouvoir déterminer les chemins d'accès de fichiers Excel se trouvant dans un répertoire bien précis (exemple: D:\Boulot). Les fichiers Excel se trouvent dans des sous dossiers de ce répertoire.
Actuellement je ne sais que trouver le chemin du classeur actif ("ActiveWorkbook.Path") mais pas les autres fichiers.

Quelqu'un aurait il une piste vers laquelle m'orienter?

Merci d'avance

 

[James007]

Re : Trouver le chemin d'un fichier Excel

Bonjour,

Si tu cherches une orientation ...

Application.FileSearch

A +

 

[Trulo]

Re : Trouver le chemin d'un fichier Excel

Si je ne m'abuse, avec cela on renvoie un FoundFiles?
En revanche comment le "configurer"?

 

[Bruce68]

Re : Trouver le chemin d'un fichier Excel

Bonsoir Trulo et le forum

Essai cette formule:=CELLULE("nomfichier")

 

[Trulo]

Re : Trouver le chemin d'un fichier Excel

Cela marche si tu le saisi dans le classeur actif. Pour ma part j'ai écris le nom de mes fichiers dans des cellules et je désirerais avoir ,dans les cellules adjacentes, les chemins d'accès de chacun.

Merci quand même..

 

[James007]

Re : Trouver le chemin d'un fichier Excel

Bonjour,

Dans la mesure où qui peut le plus peu le moins ...
Tu peux tester ce code ...

Sub Liste()
Application.ScreenUpdating = False
Dim mypath As String
Dim i As Integer
mypath = "c:\"
With Application.FileSearch
    .NewSearch
    .LookIn = mypath
    .SearchSubFolders = True
    .Filename = "*.xl*"
    .Execute msoSortByFileName
    For i = 1 To .FoundFiles.Count
        Cells(i, 1) = .FoundFiles(i)
    Next i
End With
Application.ScreenUpdating = True
End Sub

A+

 

[Trulo]

Re : Trouver le chemin d'un fichier Excel

Merci james, c'est exactement ce que je cherchais à faire!