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

Messages postés
29
Date d'inscription
mercredi 2 avril 2003
Dernière intervention
2 février 2007
- 4 avril 2005 à 16:45 - Dernière réponse :
Messages postés
29
Date d'inscription
mercredi 2 avril 2003
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
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
402
Date d'inscription
vendredi 6 août 2004
Dernière intervention
12 octobre 2008
- 4 avril 2005 à 17:36
1
Merci
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

Merci michelxld 1

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 90 internautes ce mois-ci

Messages postés
402
Date d'inscription
vendredi 6 août 2004
Dernière intervention
12 octobre 2008
- 4 avril 2005 à 17:35
0
Merci
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
Dernière intervention
2 février 2007
- 4 avril 2005 à 20:20
0
Merci
merci, c'est parfait !!!!!

Vous n'êtes pas encore membre ?

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

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.