yann lucien
XLDnaute Nouveau
Bonjour,
Je souhait ajouter du utilisateur ( 20 personnes ) avec utilisateur et mot de passe. Mais impossible j(ai un message d’erreurs.
Le 1er utilisateur ( Admin) fonctionnent mais pas le 2eme (yann)
Ci-joint le code
Private Sub CommandButton1_Click()
Dim action As String
action = "Connexion au classeur"
If Me.TextBox1 = "Admin" And Me.TextBox2 = "12345" Then
If Me.TextBox1 = "Yann" And Me.TextBox2 = "12345" Then
MsgBox "Connexion réussie"
End If
Call HistoriqueConnexion(action, Me.TextBox1)
End If
End Sub
Sub HistoriqueConnexion(action As String, Utilisateur As String)
Dim f As Worksheet
Dim Lr As Long
Dim Mois As String
Dim IndexMois As Integer
Set f = ThisWorkbook.Sheets("Hist Con")
Lr = f.Range("A" & Rows.Count).End(xlUp).Row + 1
IndexMois = Month(Date)
Select Case IndexMois
Case 1
Mois = "Janvier"
Case 2
Mois = "Février"
Case 3
Mois = "Mars"
Case 4
Mois = "Avril"
Case 5
Mois = "Mai"
Case 6
Mois = "Juin"
Case 7
Mois = "Juillet"
Case 8
Mois = "Aout"
Case 9
Mois = "Septembre"
Case 10
Mois = "Octobre"
Case 11
Mois = "Npvembre"
Case 12
Mois = "Decembre"
End Select
With f
.Range("A" & Lr).Value = Utilisateur
.Range("B" & Lr).Value = Now
.Range("C" & Lr).Value = action
.Range("D" & Lr).Value = Mois
.Range("e" & Lr).Value = Year(Date)
End With
Set f = Nothing
End Sub
Je souhait ajouter du utilisateur ( 20 personnes ) avec utilisateur et mot de passe. Mais impossible j(ai un message d’erreurs.
Le 1er utilisateur ( Admin) fonctionnent mais pas le 2eme (yann)
Ci-joint le code
Private Sub CommandButton1_Click()
Dim action As String
action = "Connexion au classeur"
If Me.TextBox1 = "Admin" And Me.TextBox2 = "12345" Then
If Me.TextBox1 = "Yann" And Me.TextBox2 = "12345" Then
MsgBox "Connexion réussie"
End If
Call HistoriqueConnexion(action, Me.TextBox1)
End If
End Sub
Sub HistoriqueConnexion(action As String, Utilisateur As String)
Dim f As Worksheet
Dim Lr As Long
Dim Mois As String
Dim IndexMois As Integer
Set f = ThisWorkbook.Sheets("Hist Con")
Lr = f.Range("A" & Rows.Count).End(xlUp).Row + 1
IndexMois = Month(Date)
Select Case IndexMois
Case 1
Mois = "Janvier"
Case 2
Mois = "Février"
Case 3
Mois = "Mars"
Case 4
Mois = "Avril"
Case 5
Mois = "Mai"
Case 6
Mois = "Juin"
Case 7
Mois = "Juillet"
Case 8
Mois = "Aout"
Case 9
Mois = "Septembre"
Case 10
Mois = "Octobre"
Case 11
Mois = "Npvembre"
Case 12
Mois = "Decembre"
End Select
With f
.Range("A" & Lr).Value = Utilisateur
.Range("B" & Lr).Value = Now
.Range("C" & Lr).Value = action
.Range("D" & Lr).Value = Mois
.Range("e" & Lr).Value = Year(Date)
End With
Set f = Nothing
End Sub
Dernière édition: