Sub piloterPageWeb()
'activer la refernce Microsoft HTML Objects Library
'activer la reference Microsoft Internet Controls
Dim i As Integer
Dim IE As InternetExplorer
Dim maPageHtml As HTMLDocument
Dim Helem As IHTMLElementCollection
Set IE = CreateObject('InternetExplorer.Application')
IE.Visible = True
IE.navigate '[B]Lien supprimé[/B]
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop
Set maPageHtml = IE.document
Set Helem = maPageHtml.getElementsByTagName('input')
For i = 0 To Helem.Length - 1
MsgBox i & Helem(i).getAttribute('name') & ' / ' & Helem(i).getAttribute('value')
Next i
End Sub