Lister tous les classeurs Excel

[daniel]

Bonjour le forum !

Je dois me débrouiller comme un manche avec la recherche sur le forum...Je crois me souvenir qu'il existe déjà une réponse à ma question, mais je n'ai pas pu la retrouver...

Bref...Je voudrais pouvoir récupérer dans une feuille de calcul le nom de tous les fichiers Excel contenus dans un répertoire et, idéalement, qu'un lien soit créé entre chaque cellule contenant le nom d'un fichier et le dit-fichier...

Merci de votre aide et bon dimanche !

Daniel

 

[CBernardT]

Bonjour Daniel et le forum,

Une solution consiste à faire Démarrer/Recherche puis tous les fichiers et tous les dossiers enfin une partie ou l'ensemble du nom du fichier, saisir *xls et tu auras tous les fichiers Excel.

Cordialement

CBernardT

 

[Temjeh]

Bonjour daniel

En voici un début pris ici de Thierry je crois qui fait une liste de tous les classeurs sans hyperlien dans un dossier(à adapter)...c'est au moins un début!!

Sub TheFileLister()
Dim TheFileSearcher As FileSearch
Dim I As Integer
Dim ThePath
'ici met ton chemin
ThePath = 'C:\\Program Files\\Territoire 2004\\Territoires\\DeMaisonneuve\\'
On Error Resume Next
Set TheFileSearcher = Application.FileSearch
With TheFileSearcher
.NewSearch
.Filename = '*.xls*'
.LookIn = ThePath
.SearchSubFolders = False
.Execute msoSortByFileName, msoSortOrderAscending
If .Execute > 0 Then
With .FoundFiles
For I = 1 To .Count
Cells(I, 1).Value = ThePath & Dir(.Item(I))
Next I
End With
Else
MsgBox 'Pas de Fichier trouvéé dans ' & ThePath
End If
End With
Set TheFileSearcher = Nothing
End Sub


À plus

Temjeh

 

[daniel]

Merci Bernard et Temjeh pour vos réponses

La macro marche bien, elle me récupère les noms des fichiers, c'est un bon début ! Par contre, si j'ai des sous-répertoires, elle ne va pas ' chercher' dedans...

Quant à la récupération des fichiers sous forme de lien, si quelqu'un a une idée...je suis preneur

Merci pour votre aide

Daniel

 

[galopin01]

Bonjour,
Une petite adaptation avec lien...

Sub TheFileLister()
Dim TheFileSearcher As FileSearch
Dim i%, ThePath$, Z$
'ici met ton chemin sans \\ à la fin
ThePath = 'C:XXXXXXXXXXXXXXXXXXX'
On Error Resume Next
Set TheFileSearcher = Application.FileSearch
With TheFileSearcher
.NewSearch
.Filename = '*.xls*'
.LookIn = ThePath
.SearchSubFolders = False
.Execute msoSortByFileName, msoSortOrderAscending
If .Execute > 0 Then
With .FoundFiles
For i = 1 To .Count
Z = Dir(.Item(i))
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:=ThePath & '\\' & Z, _
TextToDisplay:=Z
Next i
End With
Else
MsgBox 'Pas de Fichier trouvéé dans ' & ThePath
End If
End With
Set TheFileSearcher = Nothing
End Sub

A+

 

[daniel]

Bonjour le Forum, Galopin,

Ton code marche parfaitement, tous les liens vers mes classeurs ont été créés!

Merci beaucoup pour ton aide,

Daniel