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 - Guide
- Whatsapp date incorrecte ✓ - Forum Mobile
- Cette photo n’a pas été prise cette année. trouvez la date, l'heure et avec quel modèle d'appareil photo elle a été prise. - Forum Graphisme
- Publipostage date en anglais ✓ - Forum Excel
- Publipostage date inversée ✓ - Forum Word
2 réponses
tuxboy
Messages postés
994
Date d'inscription
lundi 23 juillet 2012
Statut
Membre
Dernière intervention
28 mai 2019
189
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