A
agfo
Guest
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
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