Ne pas afficher chemin des fichiers

[agfo]

Bonjour le Forum

J'ai longement lu le fil 'ne pas afficher le chemin des fichier dans une listbox' mais je n'ai pas réussi à adapter les solutions à mon problème. (ça vole trop haut pour moi

Je m'explique, c'est très simple.
La macro suivante me permet d'afficher la liste des fichiers du répertoire D:\\Janvier\\ dans la colonne A une feuille Excel. Le problème est qu'elle affiche aussi le chemin alors que je ne souhaite voir s'afficher que le nom du fichier.

Sub ListeDesFichiers()
Dim i As Long
With Application.FileSearch
.NewSearch
.FileType = msoFileTypeAllFiles
.LookIn = 'D:\\JANVIER\\'
.SearchSubFolders = True
.Execute
With .FoundFiles
For i = 1 To .Count
Range('A1').Offset(i, 0) = .Item(i)
Next i
End With
End With


End Sub


Merci d'avance pour vos retours.
Guillaume

 

[Hervé]

Bonjour agfo

peut etre comme ceci :

Sub ListeDesFichiers()
Dim i As Long
Dim tablo As Variant

With Application.FileSearch
.NewSearch
.FileType = msoFileTypeAllFiles
.LookIn = 'D:\\\\\\\\JANVIER'
.SearchSubFolders = True
.Execute
With .FoundFiles
For i = 1 To .Count
tablo = Split(.Item(i), '\\\\\\\\')
Range('A1').Offset(i, 0) = tablo(UBound(tablo))
Next i
End With
End With
End Sub

salut

edition : si tu copies colles le code, fait attention au antislash.

Message édité par: hervé, à: 15/03/2006 15:48

 

[agfo]

Merci Hervé. C'est ce que je cherchais.

ça fait 3h que je galère à copier des bouts de macros récupérées aux 4 coins du Forum. A force, ça va finir par rentrer. (Merci pour la remarque du copier coller. J'y veillerai pour la prochaine fois)
A+

Guillaume