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
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

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

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.