Souci erreur de compilation "Date"
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
--
Ne désespères pas, persévères
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
--
Ne désespères pas, persévères
2 réponses
-
Bonjour,
Date est un mot-clé réservé. Déclare une autre variable. ;) -
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
