Provence Vintage
XLDnaute Occasionnel
Salut le forum,
J'ai le code suivant:
Sub MOTDEPASSE()
Debut: 'retour mot de passe incorrect
A$ = InputBox("Mot de passe", "fonctions avancées")
If UCase(A$) = "" Then
Sheets("ADMINISTRATEUR").Activate: Range("D2").Select
Application.Run "'Logiciel Fournisseurs v8.xlsm'!ouvriradministrateur"
ElseIf A$ > "" Then
MsgBox "Mot de passe incorrect !": GoTo Debut 'retour Debut
Else: Exit Sub 'si "" quitte
End If
End Sub
Qui peux me déboguer le code, j'ai le message suivant:
Erreur de compilation
"Le caractère de déclaration de type ne correspond pas aux types de données déclarées"??????
Merci😕
J'ai le code suivant:
Sub MOTDEPASSE()
Debut: 'retour mot de passe incorrect
A$ = InputBox("Mot de passe", "fonctions avancées")
If UCase(A$) = "" Then
Sheets("ADMINISTRATEUR").Activate: Range("D2").Select
Application.Run "'Logiciel Fournisseurs v8.xlsm'!ouvriradministrateur"
ElseIf A$ > "" Then
MsgBox "Mot de passe incorrect !": GoTo Debut 'retour Debut
Else: Exit Sub 'si "" quitte
End If
End Sub
Qui peux me déboguer le code, j'ai le message suivant:
Erreur de compilation
"Le caractère de déclaration de type ne correspond pas aux types de données déclarées"??????
Merci😕