Date de dernière modification

Résolu
matthieu560 -  
michel_m Messages postés 18903 Statut Contributeur -
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
A voir également:

3 réponses

Réponse 1 / 3
Le Pingou Messages postés 12638 Statut Contributeur 1 461
 
Bonjour,
Peut la solution dans ce tutoriel .

3
matthieu560
 
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
0
Le Pingou Messages postés 12638 Statut Contributeur 1 461
 
Merci, content pour vous.
Salutations.
Le Pingou
0
Réponse 2 / 3
Patrice33740 Messages postés 8930 Statut Membre 1 781
 
Bonjour

« la date qui apparait dans les propriétés Windows » ????
Peut-être avec Now ???
0
matthieu560
 
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
0
Réponse 3 / 3
michel_m Messages postés 18903 Statut Contributeur 3 317
 
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
0

Discussions similaires

Excel formule : savoir si une cellule contient partie texte
plunderer007 -
francois -

14 réponses