Bonjour, j'ai une liste de log et je souhaite testé une colonne de login.
Login est le même que le mot de passe, comment puis-je tester en boucle ses login ?
Voici le code utilisé et sa marche, sauf que sa bug je ne sait pas pourquoi, je ne comprend pas beaucoup en VBA.
Sub PROBAOLA()
Const URL$ = "EXEMPLE_URL"
Dim UserName As String, Password As String, LoginData As Worksheet
Dim x As Integer
For x = 1 To 13501
Set LoginData = ThisWorkbook.Worksheets("DATA")
UserName = LoginData.Cells(x, "A").Value
Password = LoginData.Cells(x, "A").Value
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
With ie
.Navigate URL
ieBusy ie
.Visible = True
While .ReadyState <> 4
DoEvents
Wend
Dim oLogin As Object, oPassword As Object
Set oLogin = .document.getElementsByName("id_username")(0)
Set oPassword = .document.getElementsByName("id_password")(0)
oLogin.Value = UserName
oPassword.Value = Password
.document.forms(0).submit
End With
Next
End Sub
Sub ieBusy(ie As Object)
Do While ie.Busy Or ie.ReadyState < 1
DoEvents
Loop
End Sub
Merci Beaucoup,