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

Question

Bonjour,
Je voudrais r&#233;cup&#233;rer la date de cr&#233;ation du fichier Excel (que je viens d'ouvrir) en VBA. Malheureusement, je n'y arrive pas. J'ai essay&#233; "FileDateTime" mais il me renvoit la date d'acc&#232;s (donc la date actuelle car je viens juste de l'ouvrir).
Je pense que ce n'est pas compliqu&#233; mais je ne trouve pas (m&#234;me dans les propri&#233;t&#233;s de ActiveWorkBook).
D'avance merci

michelxld · Answer

bonjour

tu peux tester

Sub Propri&#233;t&#233;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

michelxld · Answer

oouuppss...
mille excuses , une petite erreur lors du copier/coller ...

Sub Propri&#233;t&#233;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

306xshdi · Answer

merci, c'est parfait !!!!!