Discussion :

[Skooma]

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!

[Invité]

Bonjour et bienvenue sur le forum Office de DVP.

Regardes si cet article ne pourrait pas t'apporter des solutions : Lire et modifier les propriétés des classeurs et autres fichiers

Philippe

[Skooma]

Merci beaucoup!

Après avoir lu cet article, bidouillé mon programme et téléchargé la référence "DSO oleDocument Properties Reader 2.1" de Microsoft, tout va pour le mieux dans le meilleur des mondes et mon fichier Excel m'affiche tout ce que je souhaite voir

Merci encore.