Microsoft 365 Fonction DateValue(FileDateTime)

[Egruat]

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

 

[danielco]

Bonjour,

"J" est-il un disque réseau ? Avec quelle date compares-tu le résultat de la macro ?

Cordialement.

Daniel

 

[Egruat]

Oui c'et un disque réseau.

Je teste pour savoir si la date du fichier de base de données est postérieur à aujourd’hui.

 

[danielco]

De mémoire, j'avais lu qu'il pouvait y avoir un risque d'erreur. Est-ce que tu as la possibilité de vérifier qu'il y a bien une différence avec la date récupérée ?

Daniel