Récupération date de création d'un fichier Excel [Résolu]

Question

Sujet Précédent Sujet Suivant

Récupération date de création d'un fichier Excel [Résolu]

Signaler

306xshdi

Messages postés: 29
Date d'inscription: mercredi 2 avril 2003
Statut: Membre
Dernière intervention: 2 février 2007

- 4 avril 2005 à 16:45
306xshdi

Messages postés: 29
Date d'inscription: mercredi 2 avril 2003
Statut: Membre
Dernière intervention: 2 février 2007

- 4 avril 2005 à 20:20

Bonjour,
Je voudrais récupérer la date de création du fichier Excel (que je viens d'ouvrir) en VBA. Malheureusement, je n'y arrive pas. J'ai essayé "FileDateTime" mais il me renvoit la date d'accès (donc la date actuelle car je viens juste de l'ouvrir).
Je pense que ce n'est pas compliqué mais je ne trouve pas (même dans les propriétés de ActiveWorkBook).
D'avance merci

A voir également:

Vblf vba
Vba vblf - Meilleures réponses
Vba date création fichier - Meilleures réponses
Retrouve la date de création d'un fichier - api - Codes sources - Visual Basic / VB.NET (API)
ASP / ASP.NET : Création d'un fichier excel en utilisant openxml - CodeS SourceS - Guide
Création d'un fichier excel 2007 en utilisant openxml est xsl - Codes sources - ASP / ASP.NET (ASP.Net)
C / C++ / C++.NET : Changer la date de création/modification de fichiers avec un équi - Guide
Sauvegarder la date de creation d'un fichier - Codes sources - Visual Basic / VB.NET (Fichier / Disque)

3 réponses

Réponse 2 / 3

michelxld

Messages postés: 402
Date d'inscription: vendredi 6 août 2004
Statut: Membre
Dernière intervention: 12 octobre 2008

28
4 avril 2005 à 17:35

bonjour

tu peux tester

Sub PropriétésClasseurActif()
Dim Cible As Object, Valeur As Object
Dim Resultat As String

Set Cible = CreateObject("Scripting.FileSystemObject")
Set Valeur = Cible.GetFile(ActiveWorkbook.FullName)

Resultat = "Chemin : " & Valeur.ParentFolder & vbLf & vbLf & _
"Nom fichier : " & ThisWorkbook.Name & vbLf & vbLf & _
"Date creation : " & Valeur.DateCreated & vbLf & vbLf & _
"Derniere sauvegarde : " & Valeur.DateLastModified & vbLf & vbLf & _
"Taille classeur : " & Valeur.Size & " octets"

MsgBox Resultat
End Sub

bonne soiree
michel

Réponse 3 / 3

306xshdi

Messages postés: 29
Date d'inscription: mercredi 2 avril 2003
Statut: Membre
Dernière intervention: 2 février 2007

4 avril 2005 à 20:20

merci, c'est parfait !!!!!

Posez votre question

michelxld · Accepted Answer · 2005-04-04T17:36:37+0200

Réponse 1 / 3

michelxld

Messages postés: 402
Date d'inscription: vendredi 6 août 2004
Statut: Membre
Dernière intervention: 12 octobre 2008

28
4 avril 2005 à 17:36

oouuppss...
mille excuses , une petite erreur lors du copier/coller ...

Sub PropriétésClasseurActif()
Dim Cible As Object, Valeur As Object
Dim Resultat As String

Set Cible = CreateObject("Scripting.FileSystemObject")
Set Valeur = Cible.GetFile(ActiveWorkbook.FullName)

Resultat = "Chemin : " & Valeur.ParentFolder & vbLf & vbLf & _
"Nom fichier : " & ActiveWorkbook.Name & vbLf & vbLf & _
"Date creation : " & Valeur.DateCreated & vbLf & vbLf & _
"Derniere sauvegarde : " & Valeur.DateLastModified & vbLf & vbLf & _
"Taille classeur : " & Valeur.Size & " octets"

MsgBox Resultat

End Sub

Votre réponse