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

Question

Posez votre question Signaler Répondre au sujet

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

306xshdi 29 Messages postés mercredi 2 avril 2003Date d'inscription 2 février 2007 Dernière intervention - 4 avril 2005 à 16:45 - Dernière réponse : 306xshdi 29 Messages postés mercredi 2 avril 2003Date d'inscription 2 février 2007 Dernière intervention

- 4 avril 2005 à 20:20

Visual Basic Posez votre question Signaler Répondre au sujet

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

Afficher la suite

3 réponses

Signaler Commenter la réponse de michelxld

michelxld 402 Messages postés vendredi 6 août 2004Date d'inscription 12 octobre 2008 Dernière intervention - 4 avril 2005 à 17:35

0

Utile

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

Signaler Commenter la réponse de 306xshdi

306xshdi 29 Messages postés mercredi 2 avril 2003Date d'inscription 2 février 2007 Dernière intervention - 4 avril 2005 à 20:20

0

Utile

merci, c'est parfait !!!!!

Accepted Answer

+1

Utile

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

Cette réponse vous a-t-elle aidé ? Oui Non

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

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !