Date de dernière modification
Résolu
Bonjour,
Tout d'abord, je souhaite remercier les gens qui prennent le temps de lire et de répondre sur le forum, j'ai pu grâce à vous résoudre quasiment tous mes problèmes sans rien poster :).
Il me reste néanmoins un problème.
Je voudrais récupérer la date de dernière modification d'un fichier que je n'enregistre pas. Je l'ouvre, je le met en forme, j'analyse les courbes et je le referme sans sauvegarder).
La date de dernière modification du fichier correspond a l'extraction des données d'une machine que je souhaite conserver.
Tous les essais que j'ai pu faire avec des fonctions FileDateTime ou .LastModifiedDate me retournent la date du dernier enregistrement du fichier (donc la date ou j'ai reçu les fichiers par mail et que je les ai enregistrés sur mon disque).
A aucun moment je n'ai récupéré la date qui apparait dans les propriétés Windows.
Est ce que quelqu'un saurait comment récupérer la bonne date?
Merci a tous
Matthieu
Tout d'abord, je souhaite remercier les gens qui prennent le temps de lire et de répondre sur le forum, j'ai pu grâce à vous résoudre quasiment tous mes problèmes sans rien poster :).
Il me reste néanmoins un problème.
Je voudrais récupérer la date de dernière modification d'un fichier que je n'enregistre pas. Je l'ouvre, je le met en forme, j'analyse les courbes et je le referme sans sauvegarder).
La date de dernière modification du fichier correspond a l'extraction des données d'une machine que je souhaite conserver.
Tous les essais que j'ai pu faire avec des fonctions FileDateTime ou .LastModifiedDate me retournent la date du dernier enregistrement du fichier (donc la date ou j'ai reçu les fichiers par mail et que je les ai enregistrés sur mon disque).
A aucun moment je n'ai récupéré la date qui apparait dans les propriétés Windows.
Est ce que quelqu'un saurait comment récupérer la bonne date?
Merci a tous
Matthieu
3 réponses
-
-
Merci !
Voici le résultat :
Sub Test()
proprietesFichier_getFile (ActiveWorkbook.FullName)
End Sub
Sub proprietesFichier_getFile(Fichier As String)
'
'Nécessite d'activer la référence Microsoft Scripting Runtime
'
Dim Cible As Scripting.FileSystemObject
Dim Valeur As Scripting.File
Dim Resultat As String
Set Cible = CreateObject("Scripting.fileSystemObject")
Set Valeur = Cible.GetFile(Fichier)
Resultat = "Derniere modification : " & Valeur.DateLastModified
MsgBox Resultat
End Sub -
-
-
Bonjour
« la date qui apparait dans les propriétés Windows » ????
Peut-être avec Now ???-
Bonjour,
Merci pour la réponse mais je n'en comprends pas le sens.
Quand je suis dans mon explorateur Windows, je fais un clic droit sur mon fichier > Proprietés. Il y a une date d'inscrite en face de "Modifié le : ".
C'est cette date que je voudrais récupérer.
Qu'est ce que "Now" ? comment l'utilise t on ?
Merci
-
-
ContributeurBonjour
cas tu
Quand je suis dans mon explorateur Windows, je fais un clic droit sur mon fichier > Proprietés. Il y a une date d'inscrite en face de "Modifié le : ".
c'est la date de la dernière modification enregistrée
or tu as écrit:
Je voudrais récupérer la date de dernière modification d'un fichier que je n'enregistre pas
tu peux résoudre ce problème avec des codes "espions": adresse sur la feuille, date, qui ancien, nouveau....
Fait avec XL<2007; si tu as XL>=2007 et si ca correspond à ta demande, tu dis car il y a des modifs à faire pour mettre au niveau XL>=2007
