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

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.


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+ :cool:
 
Dernière édition:

Dranreb

XLDnaute Barbatruc
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

XLDnaute Barbatruc
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. :confused: ;) :D

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



A+ :cool:
 

Dranreb

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

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

Lone-wolf

XLDnaute Barbatruc
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 :eek: , 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+ :cool:
 
Dernière édition:

Dranreb

XLDnaute Barbatruc
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 msdn.microsoft.com/fr
 
Haut Bas