Microsoft 365 Fonction DateValue(FileDateTime)

Bonjour,

Dans un fichier J:\Test.xlsm, j'ai créé une petite macro qui lit la date d'un fichier d'une base de données:

Sub Test()
dt = DateValue(FileDateTime("J:\Databases.xlsx"))
If dt < Date Then
MsgBox ("Please update the database")
Exit Sub
End Sub

Lorsque je mets à jour le fichier J:\Databases.xlsx, il arrive parfois que la macro m'indique qu'il n'est pas à jour.

Pourriez-vous m'aider ?

Bonne journée