Bonjour à tous.
je ne sais plus quel syntaxe essayer, j'ai besoin d'un petit coup de main.
Après avoir décortiqué plusieurs projets sur le forum et le net qui traite des mots de passe et des noms d'utilisateur je suis arrivé à ceci.
Dans la feuille ADMIN, à la colonne A j'ai mis les noms d'utilisateurs et dans la colonne B les MDP.
Il n'y a que 5 lignes.
Le code doit vérifié que les éléments entré dans deux textBox (MDP et Nom) d'un useform sont présent dans la feuille admin et par la suite ouvrir le classeur de l'utilisateur.
Le problème c'est que la condition if est tjs fausse car le else s'exécute toujours. J'ai du mal à comprendre. Pouvez vous jeter un oeuil au code et me dire ce qui cloche s'il vous plait.
MERCI d'avance.
je ne sais plus quel syntaxe essayer, j'ai besoin d'un petit coup de main.
Après avoir décortiqué plusieurs projets sur le forum et le net qui traite des mots de passe et des noms d'utilisateur je suis arrivé à ceci.
Dans la feuille ADMIN, à la colonne A j'ai mis les noms d'utilisateurs et dans la colonne B les MDP.
Il n'y a que 5 lignes.
Le code doit vérifié que les éléments entré dans deux textBox (MDP et Nom) d'un useform sont présent dans la feuille admin et par la suite ouvrir le classeur de l'utilisateur.
Le problème c'est que la condition if est tjs fausse car le else s'exécute toujours. J'ai du mal à comprendre. Pouvez vous jeter un oeuil au code et me dire ce qui cloche s'il vous plait.
MERCI d'avance.
Code:
Dim i As Integer
For i = 1 To 5
If MDP = Worksheets("ADMIN").Range(("B" & (i))) And Nom = Worksheets("ADMIN").Range(("A" & (i))) Then
Dim strFichier As String
Const strRepertoire = "c:\mondossier"
strFichier = Nom
Workbooks.Open (strRepertoire & "\" & strFichier & ".xls")
Else
MsgBox ("Nom d'utilisateur ou Mot de passe Incorect"), vbCritical
End If
Next i
End Sub