Sub connexion()
For Each X In Sheets("Feuil1").Range("b2:" & Sheets("feuil1").Range("b6").End(xlUp).Address)
Sheets("Feuil2").Cells.Clear
login = X.Value
Pass = X.Offset(0, 1).Value
Dim IE As InternetExplorer
Dim IEdoc As Object
Dim DOCelement As Object
Set IE = New InternetExplorer
IE.Visible = True
IE.navigate ("http:url/")
' attente de fin de chargement
Do Until IE.readyState = 4
DoEvents
Loop
Set IEdoc = IE.document
Sheets("Feuil2").Cells.Clear
'login
Set DOCelement = IEdoc.getElementsByName("usr").Item
DOCelement.Value = login
'password
Set DOCelement = IEdoc.getElementsByName("passrd").Item
DOCelement.Value = Pass
DOCelement.Select
'connexion
Set DOCelement = IEdoc.forms(0)
DOCelement.submit
Fenetres_IE
Set Result = Sheets("Feuil3").Range("c1")
If Result <> Sheets("Feuil3").Range("a1") Then
X.Offset(0, 2) = "LOGIN KO"
Else
X.Offset(0, 2) = "LOGIN OK"
End If
IE.Quit 'option pour les fermer
Next
End Sub
Sub Fenetres_IE()
'Nécessite d'activer la référence
'"Microsoft Internet Controls"
'et
'"Microsotf HTML Object Library"
Dim IE As New InternetExplorer
Dim winShell As New ShellWindows
Dim maPageHtml As HTMLDocument
On Error Resume Next
For Each IE In winShell
If IE.LocationURL <> "" Then
Set maPageHtml = IE.document
Sheets("feuil2").Range("a1") = maPageHtml.DocumentElement.innerText
Set maPageHtml = Nothing
End If
Next IE
End Sub