Date de création d'un fichier

[Claude5]

Bonjour,

j'ai déjà lu sur le forum des macro pouvant récupérer la date de création d'un fichier mais existe t-il une formule plus simple?

Voici un fichier Test.

Merci/Claude

 

[Yaloo]

Re : Date de création d'un fichier

Bonjour Claude,

Voici un fichier, de tête il doit s'agir d'un code de JB (si ce n'est pas le cas, que l'auteur m'en excuse) permettant de récupérer la date de création, modification et dernier accès.

A+

Martial

 

[Efgé]

Re : Date de création d'un fichier

Bonjour à tous
On peux, également, voir le très bon fichier de BrunoM45
Cordialement

 

[Modeste geedee]

Re : Date de création d'un fichier

Bonsour® Claude

voici une macro issue de l'aide en ligne ,
ms-help://MS.EXCEL.DEV.12.1036/EXCEL.DEV/content/HV10034874.htm

permettant de récupérer toutes les propriétés de document prédéfinies du classeur spécifié

Sub AfficheInfoFichier()
    Dim ligne As Integer
    Dim prop As Variant
    On Error Resume Next
    ligne = 1
Worksheets.Add
For Each prop In ActiveWorkbook.BuiltinDocumentProperties
    Cells(ligne, 1).Value = prop.Name
    Cells(ligne, 2).Value = prop.Value
    ligne = ligne + 1
Next
End Sub

 

[MJ13]

Re : Date de création d'un fichier

Bonjour à tous

Tu peux aussi tester ce fichier avec un code assez simple 🙂.

 

[JCGL]

Re : Date de création d'un fichier

Bonjour à tous,

Un essai avec un code de Philippe, je crois...
Liste un répertoire et renvoie quelques informations.

A+ à tous

 

[Staple1600]

Re : Date de création d'un fichier

Bonsoir à tous

On peut aussi utiliser ceci:
[h=2]FileDateTime, fonction, exemple[/h] Cet exemple utilise la fonction FileDateTime pour déterminer la date et l'heure de création ou de dernière modification d'un fichier. Le format de date et d'heure affiché est fonction des paramètres régionaux de votre système.

Dim MyStamp ' Suppose que la dernière modification du fichier FICHTEST a ' eu lieu le 12 février 1993 à 4:35:47. Suppose que les ' paramètres régionaux correspondent à Français (standard). MyStamp = FileDateTime("FICHTEST") ' Renvoie "12/2/93 4:35:47".

PS: N'ayant pas consulté les pièces jointes, désolé si FileDateTime a déjà été proposé.

 

[Claude5]

Re : Date de création d'un fichier

Merci à tous de vos réponses.

Claude