Souci erreur de compilation "Date"
JPDELOMMR
Messages postés
1
Statut
Membre
-
JPDELOMMR -
JPDELOMMR -
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
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
A voir également:
- Souci erreur de compilation "Date"
- Airpods 3 date de sortie - Guide
- Samsung a33 date de sortie - Guide
- Erreur t32 ✓ - Forum Livebox
- Nombre de jours entre deux dates excel - Guide
- Erreur 0x80070643 - Accueil - Windows
2 réponses
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
