Sujet Précédent Sujet Suivant

Date de dernière modification

Résolu/Fermé
matthieu560 - 7 déc. 2015 à 22:22
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 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
A voir également:

3 réponses

Réponse 1 / 3
Le Pingou Messages postés 12229 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 9 janvier 2025 1 454
7 déc. 2015 à 23:47
Bonjour,
Peut la solution dans ce tutoriel .

3
matthieu560
8 déc. 2015 à 00:20
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 12229 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 9 janvier 2025 1 454
8 déc. 2015 à 11:01
Merci, content pour vous.
Salutations.
Le Pingou
0

Discussions similaires

Impossible de modifier mon profil Instagram
Lolabn_ -
julienicoli2b@gmail.com -

87 réponses
Souci avec Chronopost
Albertfr -
contrariness -

39 réponses
Modifier la date de création d'un fichier PDF
madamelareinedesradis -
de passage egalement -

12 réponses
insérer la date de modif d'une cellule Excel
diwix -
Isa -

7 réponses
affichage date modification de cellule excel
nicosyl -
OMER -

14 réponses
Connaitre la date de création d'une page web
Illitch -
Some1 -

16 réponses