[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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas