Comment obtenir la date de création actuelle du fichier de classeur à l'aide de VBA dans Excel 2010? J'ai parcouru toutes les propriétés de ThisWorkBook et je ne semble pas y trouver quelque chose.
Réponses:
9 pour la réponse № 1MsgBox ActiveWorkbook.BuiltinDocumentProperties("Creation Date")
"Output: 25.07.2011 14:51:11
Cela fonctionne pour Excel 2003, n’avez pas 2010 pour le tester. Lié à MSDN Doc pour Office 2010, il existe également une liste des autres propriétés disponibles.
2 pour la réponse № 2
Utilisation
ActiveWorkbook.BuiltinDocumentProperties.Item("Creation date").Value
Pour répertorier toutes les propriétés, exécutez cette macro
Public Sub listProperties()
rw = 1
Worksheets(1).Activate
For Each p In ActiveWorkbook.BuiltinDocumentProperties
Cells(rw, 1).Value = p.Name
On Error Resume Next
Cells(rw, 2).Value = p.Value
rw = rw + 1
Next
End Sub
2 pour la réponse № 3
Utilisation Scripting.FileSystemObject
Dim oFS As Object
Dim creationDate As String
Set oFS = CreateObject("Scripting.FileSystemObject")
creationDate = oFS.GetFile(ThisWorkbook.FullName).DateCreated
0 pour la réponse № 4
J'ai trouvé que FileDateTime fonctionne mieux.
FileDateTime (application.activeworkbook.path)
Tech sur le net dit qu'il s'applique à Excel 2016, 2013, 2011 pour Mac, 2010, 2007, 2003, XP et 2000