Bonjour;

J'utilise actuellement une macro dans Excel pour charger une liste des fichiers dans un Dossier (et sous dossiers Aussi) dans une feuille. La macro récupère le non du dans une colonne et génère le lien hypertexte vers ce fichier dans la deuxième colonne.

Je cherche à ajouter une troisième colonne qui récupère la taille du fichier et une quatrième qui récupère sa date de modification.

Voici le code que j'utilise dans un module

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
 
Public nb As Long
Sub Bouton1_Cliquer()
Dim chemin As String
    nb = 0
    chemin = "C:\Bibliotheque\Modèles\"
    Lister chemin
End Sub
 
Public Function Lister(chemin As String)
Dim fs, Rep As Variant, NewRep As String, Nomfich As String
    Set fs = CreateObject("Scripting.FileSystemObject")
    Lister = fs.GetFolder(chemin).Files.Count
    Nomfich = Dir(chemin & "\*.*")
 
    Do While Nomfich <> ""
        nb = nb + 1
        Cells(nb, 1) = Nomfich 'liste dans la feuille de calculs active
        Cells(nb, 2).Hyperlinks.Add Cells(nb, 2), chemin & "\" & Nomfich
        Nomfich = Dir()
    Loop
    'Pour chaque sous-répertoire, appel récursif de Lister
    For Each Rep In fs.GetFolder(chemin).SubFolders
        NewRep = Lister(Rep.Path)
    Next Rep
End Function
Merci d'avance de votre aide