Liste de fichiers dans Excel : comment récupérer la description du fichier en vba?
Bonjour tout le monde!
Voilà, je cherche à faire une liste des fichiers présents dans un répertoire et ses sous répertoires de manière à ce que cette liste aparaisse dans mon fichier excel.
Voici le code que j'utilise pour que les fichiers s'inscrivent dans ma page Excel :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
Public row As Integer
Sub CréerListeFichier()
'déclaration des variables
Dim monFSO, monDossier
Dim repertoireGED As String
'initialisation
repertoireGED = "D:\My Documents\GED"
row = 2
Set monFSO = CreateObject("Scripting.FileSystemObject")
Set monDossier = monFSO.GetFolder(repertoireGED)
ListerFichiers monDossier
Set monDossier = Nothing
Set monFSO = Nothing
End Sub
Private Sub ListerFichiers(ByVal dossier)
For Each fichier In dossier.Files
Cells(row, 2).Select
Selection.Value = fichier.Name
Cells(row, 3).Select
Selection.Value = fichier.Path
Cells(row, 4).Select
Selection.Value = ?????
row = row + 1
Next
For Each sousdossier In dossier.SubFolders
ListerFichiers sousdossier
Next
End Sub |
Donc comme vous le voyez j'ai un problème (en rouge gras): Dans ma 4e colonne, je voudrait que les "descriptions" des fichiers apparaissent. Il s'agit en fait du commentaire que l'on peut écrire dans les propriétés des fichiers.
fichier.Name me donne bien le nom du fichier ...
fichier.Path me donne bien le chemin d'accès...
Mais comment récupérer la description reprise dans le commentaire dans les propriétés d'un fichier?
Merci d'avance!
