Souci erreur de compilation "Date" Fermé

Question

Bonjour à vous

Dans Private Sub Workbook_Open(), j'ai un souci avec la macro suivante :
If Date > "17/08/2018" Then Do
nom = InputBox("Votre Mot de Passe ?")
Loop While nom = ""
If nom <> "xxxxx" Then
ThisWorkbook.Close SaveChanges:=False
End If
End If
End Sub
 J'ai une erreur de compilation avec la date et rien dans l'aide.
Merci de votre aide

tuxboy · Answer

Bonjour,

  Date est un mot-clé réservé. Déclare une autre variable. ;)

JPDELOMMR · Answer

Bonjour et merci
J'ai créé  le module suivant :
Sub variables()
Dim ma_variable As Date
ma_variable = "Jour"
End Sub

Puis :
Private Sub Workbook_Open()
If "Jour" > "17/08/2018" Then Do
nom = InputBox("Votre Mot de Passe ?")
Loop While nom = ""
If nom <> "DESCARTES" Then
ThisWorkbook.Close SaveChanges:=False
End If
End If
End Sub

J'ai le message End If sans bloc if
Merci de ton aide
JPDELOMME

Souci erreur de compilation "Date"

2 réponses

Discussions similaires