Menu

Date de dernière modification [Résolu/Fermé]

- - Dernière réponse : michel_m
Messages postés
15879
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 juin 2019
- 8 déc. 2015 à 12:42
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
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
9468
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
14 décembre 2018
962
3
Merci
Bonjour,
Peut la solution dans ce tutoriel .

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 45800 internautes nous ont dit merci ce mois-ci

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
Le Pingou
Messages postés
9468
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
14 décembre 2018
962 -
Merci, content pour vous.
Salutations.
Le Pingou
Messages postés
7769
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
24 juin 2019
1169
0
Merci
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
Messages postés
15879
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 juin 2019
2750
0
Merci
Bonjour

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