[Résolu par Dranreb] Récupérer la date de modification de plusieurs fichiers Word

[Lone-wolf]

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.

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+

 

[Dranreb]

Re : Récupérer la date de modification de plusieurs fichiers Word

Bonjour.
Voir du coté de :

FileDateTime(ByVal PathName As String) As Date

 

[Lone-wolf]

Re : Récupérer la date de modification de plusieurs fichiers Word

Bonjour Dranreb

Bonjour.
Voir du coté de : FileDateTime(ByVal PathName As String) As Date

Et c'est qui celle-là??? J'en ai jamais entendu parler.

Et si c'est en Amérique qui faut que j'aille la voir, j'en ai pas les moyens.



A+

 

[Dranreb]

Re : Récupérer la date de modification de plusieurs fichiers Word

Et ben maintenant si !
C'est une fonction VBA.

 

[Lone-wolf]

Re : Récupérer la date de modification de plusieurs fichiers Word

Re Dranreb,

malheureusement les valeurs sont fausses, elle met tous au 14.03.2016; alors que j'en ai 5 pour cette date et 5 en date du 24.03.2016.

Il faudrait, si c'est possible, utiliser LastDateModified mais je ne sais pas comment.

EDIT: IM SORRY. ErrorHandler de ma part , jai mis

FileDateTime(Chemin & .Range("a2").Offset(0, 0).Value)

au lieu de

FileDateTime(Chemin & .Range("a2").Offset(Nb_Fichiers, 0).Value)





Dans tous les cas merci pour le coup de pouce.




A+

 

[Dranreb]

Re : Récupérer la date de modification de plusieurs fichiers Word

Jamais constaté ça, personnellement.
La valeur renvoyée correspond à la dernière date de modification conformément à la description Ce lien n'existe plus