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 : Sélectionner tout - Visualiser dans une fenêtre à part
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!