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

Signaler
Messages postés
29
Date d'inscription
mercredi 2 avril 2003
Statut
Membre
Dernière intervention
2 février 2007
-
Messages postés
29
Date d'inscription
mercredi 2 avril 2003
Statut
Membre
Dernière intervention
2 février 2007
-
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

3 réponses

Messages postés
402
Date d'inscription
vendredi 6 août 2004
Statut
Membre
Dernière intervention
12 octobre 2008
19
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
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 119 internautes nous ont dit merci ce mois-ci

Messages postés
402
Date d'inscription
vendredi 6 août 2004
Statut
Membre
Dernière intervention
12 octobre 2008
19
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
Messages postés
29
Date d'inscription
mercredi 2 avril 2003
Statut
Membre
Dernière intervention
2 février 2007

merci, c'est parfait !!!!!