Sub piloterPageWebV01()'
'activer la reference Microsoft HTML Objects Library
'activer la refenrce Microsoft Internet Controls
'
Dim i, y As Integer
Dim IE As InternetExplorer
Dim maPageHtml As HTMLDocument
Dim Helem As IHTMLElementCollection
Dim x, z As Variant
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "http://www.plexonline.com/modules/systemadministration/login/index.aspx?"
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop 'attendre la fin du chargement
Set maPageHtml = IE.document
Set Helem = maPageHtml.getElementsByTagName("input")
Helem.Item(1).innerText = "NomUtilisateur"
Helem.Item(2).innerText = "MotPasse"
Helem.Item(3).innerText = "Cie"
SendKeys "{ENTER}", True 'simulation clic
End Sub