no me da la fecha correcta de creación del documento

hola, 'anonimo/a' !

Al utilizar esta sentencia no me da la fecha correcta de creacion del documento
ActiveWorkbook.BuiltinDocumentProperties("Creation Date")
Que puede ser? Hay otra manera de hallarla?

1) 'otra' manera pudiera ser utilizando un objeto 'FileSystemObject' [del shell de windows]
-> te da la fecha de 'creacion' correspondiente a la primera 'aparicion' de tu archivo en el sistema
OJO: lo anteror tampoco es 'garantia' de que la fecha mostrada sea la 'correcta'... por que ???

2) si 'afirmas' que la fecha devuelta NO es la fecha 'correcta' [asumiendo que conoces la fecha exacta] -?-
es probable que tu archivo 'venga' de otra pc donde se hubiera creado 'originalmente' [copia de algun 'respaldo' ?]

3) prueba con una macro +/- como la siguiente [p.e. desde un modulo de codigo estandar/normal/general/...]:
Sub Fechas_de_creacion()
With CreateObject("Scripting.FileSystemObject")
With .GetFile(ActiveWorkbook.FullName)
MsgBox .DateCreated & vbCr & _
ActiveWorkbook.BuiltinDocumentProperties("creation date")
End With
End With
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Funciona bien!
Gracias!

"Héctor Miguel" wrote:

hola, 'anonimo/a' !

> Al utilizar esta sentencia no me da la fecha correcta de creacion del documento
> ActiveWorkbook.BuiltinDocumentProperties("Creation Date")
> Que puede ser? Hay otra manera de hallarla?

1) 'otra' manera pudiera ser utilizando un objeto 'FileSystemObject' [del shell de windows]
-> te da la fecha de 'creacion' correspondiente a la primera 'aparicion' de tu archivo en el sistema
OJO: lo anteror tampoco es 'garantia' de que la fecha mostrada sea la 'correcta'... por que ???

2) si 'afirmas' que la fecha devuelta NO es la fecha 'correcta' [asumiendo que conoces la fecha exacta] -?-
es probable que tu archivo 'venga' de otra pc donde se hubiera creado 'originalmente' [copia de algun 'respaldo' ?]

3) prueba con una macro +/- como la siguiente [p.e. desde un modulo de codigo estandar/normal/general/...]:
Sub Fechas_de_creacion()
With CreateObject("Scripting.FileSystemObject")
With .GetFile(ActiveWorkbook.FullName)
MsgBox .DateCreated & vbCr & _
ActiveWorkbook.BuiltinDocumentProperties("creation date")
End With
End With
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.