Lone-wolf
XLDnaute Barbatruc
Bonjour à tous
voici une macro qui permet de lister mes documents Word. J'aimerais récuperer leurs dates de modification, mais avec cette macro je ne sais pas si c'est possible.
A+
voici une macro qui permet de lister mes documents Word. J'aimerais récuperer leurs dates de modification, mais avec cette macro je ne sais pas si c'est possible.
Code:
Sub List_Fichiers()
Dim Fichiers_Repertoire(10000, 1)
Dim Fichier As String
Dim Nb_Fichiers As Long
With Sheets("Feuil1")
.Range("a2:a20000").ClearContents
Fichier = Dir$("E:\MARS\" & "*.doc")
Do While Fichier <> ""
Fichiers_Repertoire(Nb_Fichiers, 0) = Fichier
Fichier = Dir$
Nb_Fichiers = Nb_Fichiers + 1
Loop
Nb_Fichiers = 0
While Fichiers_Repertoire(Nb_Fichiers, 0) <> nom_rep
.Range("a2").Offset(Nb_Fichiers, 0).Value = Fichiers_Repertoire(Nb_Fichiers, 0)
'.Range("c2").Offset(Nb_Fichiers, 0).Value = 'date de modification
Nb_Fichiers = Nb_Fichiers + 1
Wend
.Range("a:c").Columns.AutoFit
End With
End Sub
A+
Dernière édition: