Office 365 Fonction DateValue(FileDateTime)

Egruat

XLDnaute Occasionnel
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

XLDnaute Impliqué
Bonjour,

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

Cordialement.

Daniel
 

Egruat

XLDnaute Occasionnel
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

XLDnaute Impliqué
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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas