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

Résolu
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

3 réponses

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