Sub internetFF()
'Nécessite d 'activer les references
'Microsoft HTML Objects Library
'et
'Microsoft Internet Controls
Dim IE As InternetExplorer
Dim maPageHtml As HTMLDocument
Dim Htable As IHTMLElementCollection
Dim maTable As IHTMLTable
Dim i As Integer
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = False
IE.navigate "http://www.x-rates.com/index.html"
'la ligne IE.readyState = READYSTATE_COMPLETE
'permet d'atendre la fin du chargement de la page
'avant de continuer la procédure.
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop
Set maPageHtml = IE.document
'objet type table
Set Htable = maPageHtml.getElementsByTagName("table")
'Compte le nombre de pages
'MsgBox "il y a " & Htable.Length & " tables dans cette page html"
'Boucle sur les tables
'For i = 0 To Htable.Length - 1
' Set maTable = Htable(i)
'Renvoie la premiere donnée de chaque table
' MsgBox "Table N°" & i + 1 & vbCrLf & _
' maTable.Rows(0).Cells(0).innerText
'Next i
Set maTable = Htable(17)
For i = 1 To maTable.Rows.Length
'boucle sur les cellules dans chaque ligne
For j = 1 To maTable.Rows(i - 1).Cells.Length
Cells(i, j) = maTable.Rows(i - 1).Cells(j - 1).innerText
Next j
Next i
End Sub