Microsoft 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
 

Discussions similaires

Réponses
27
Affichages
1 K

Statistiques des forums

Discussions
311 724
Messages
2 081 938
Membres
101 844
dernier inscrit
pktla