Trouver le chemin d'un fichier Excel

James007

XLDnaute Barbatruc

• 18 Mars 2009

• #2

Re : Trouver le chemin d'un fichier Excel

Bonjour,

Si tu cherches une orientation ...

Code:

Application.FileSearch

A +

 

Vote positif 0 Vote négatif

T

Trulo

XLDnaute Nouveau

• 18 Mars 2009

• #3

Re : Trouver le chemin d'un fichier Excel

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

 

Vote positif 0 Vote négatif

B

Bruce68

XLDnaute Impliqué

• 18 Mars 2009

• #4

Re : Trouver le chemin d'un fichier Excel

Bonsoir Trulo et le forum

Essai cette formule:=CELLULE("nomfichier")

 

Vote positif 0 Vote négatif

T

Trulo

XLDnaute Nouveau

• 18 Mars 2009

• #5

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..

 

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 19 Mars 2009

• #6

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 ...

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+

 

Vote positif 0 Vote négatif

T

Trulo

XLDnaute Nouveau

• 19 Mars 2009

• #7

Re : Trouver le chemin d'un fichier Excel

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

 

Vote positif 0 Vote négatif