Re à tous,
Je dispose de deux morceaux de code permettant de saisir un identifiant et un mot de passe mais je ne sais pas comment les intégrer à ma macro principale qui m'ouvre une page internet:
Set objPassword = CreateObject("ScriptPW.Password")
WScript.StdOut.Write "entre ton mot de passe:"
strPassword = objPassword.GetPassword()
Wscript.Echo
Wscript.Echo "ton mot de passe est: " & strPassword
et la deuxième, je ne sais pas si elle est complémentaire ou nécessaire...
Private Sub CommandButton1_Click()
Dim strSQL As String
Dim rstConn As ADODB.Recordset
Dim objmyconn As ADODB.Connection
Set objmyconn = OpenSQLServerDB(dominiquegourdy@aol.com, "sandrine")
Set rstConn = CreateObject("ADODB.RecordSet")
strSQL = "SELECT password FROM Users" & _
"WHERE user_login=" & Me.txtLogin.Value & " ;"
rstConn.Open strSQL, objmyconn
If rstConn.EOF = True Then
MsgBox "Login incorrect"
Else
If rstConn.Fields(0) = Me.txtPwd.Value Then
MsgBox "Connexion réussi"
rstConn.Open "UserForm2"
Else
MsgBox "Mot de passe éroné"
End If
End If
rstConn.Close
Set rstConn = Nothing
End Sub
Merci pour toute aide éventuelle