Condition VBA en fonction de la date du fichier

Bonjour,

J'ai découvert que l'on pouvait récupérer la date d'un fichier dans une macro. (DateCreated)

Savez-vous comment les utiliser dans une condition ?

Le but serait d'autoriser ou non l'actualisation d'un document en fonction de la date du fichier source.

Si la date de création = date du jour alors execution de la macro. Sinon message d'erreur.

If Datecréation = Date Then
   'Execution de la macro'
Else
MsgBox "Attention, l'exportation du fichier source n'a pas été faite aujourd'hui !"
End If

Le souci c'est que je n'ai jamais utilisé les conditions sur VBA ni les propriétés du coup je suis perdu

Toute aide est la bienvenue

Bonjour,

Tu places avant ton if

Datecréation =CDate(Format(ActiveWorkbook.BuiltinDocumentProperties("creation date"), "dd/mm/yy"))

Merci mais j'ai oublié de préciser que c'était la date de création d'un autre fichier.

J'ai fait comme celaa mais ca ne marche pas, j'ai toujours le message "OK" que la date de création soit celle du jour ou une autre date.

Sub Test()

  Dim dt As Date

  dt = FileDateTime(ThisWorkbook.Path & "\AnalyseOccupation.xlsx")
  dt = Format(Date)

If dt = Date Then
MsgBox "OK"
Else
MsgBox "Attention, l'exportation du fichier source n'a pas été faite aujourd'hui !"
End If
End Sub

Bonjour,

remplacer

dt=format(Date)

par

 dt = DateSerial(Year(dt), Month(dt), Day(dt))

Merci Thev ! Ca fonctionne