Souci erreur de compilation "Date"
Fermé
JPDELOMMR
Messages postés
1
Date d'inscription
samedi 18 août 2018
Statut
Membre
Dernière intervention
18 août 2018
-
18 août 2018 à 09:16
JPDELOMMR - 19 août 2018 à 15:49
JPDELOMMR - 19 août 2018 à 15:49
A voir également:
- Souci erreur de compilation "Date"
- Erreur 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Erreur 1001 outlook - Accueil - Bureautique
- Airpods 3 date de sortie - Guide
2 réponses
tuxboy
Messages postés
995
Date d'inscription
lundi 23 juillet 2012
Statut
Membre
Dernière intervention
28 mai 2019
190
18 août 2018 à 10:31
18 août 2018 à 10:31
Bonjour,
Date est un mot-clé réservé. Déclare une autre variable. ;)
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
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