copier/coller une partie d'une page web

[damien]

bonjour le forum,

est'il possible de copier/coller une partie d'une page web (meteo consult) à partir d'un commandbutton ce trouvant sur ma feuil excel.

exempl copier les lignes des marrées


le lien

 

[MichelXld]

bonjour Damien

tu peux tester cette macro : malheureusement la mise en page de cette page Web ne permet pas de récuperer les données de façon optimale dans le classeur


Sub Importer_tableauPageWeb()
'michelxld le 09.06.2005
'
'necessite d'activer la reference Microsoft HTML Objects Library
'necessite d'activer la reference Microsoft Internet Controls
Dim IE As InternetExplorer
Dim maPageHtml As HTMLDocument
Dim Htable As IHTMLElementCollection
Dim maTable As IHTMLTable

Set IE = CreateObject('InternetExplorer.Application')
IE.Visible = False

IE.navigate '
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop

Set maPageHtml = IE.document
Set Htable = maPageHtml.getElementsByTagName('table') 'objet type table
Set maTable = Htable(4) ''5ieme tableau dans la page Web

Cells(1, 1) = _
Application.WorksheetFunction.Substitute(maTable.Rows(0).Cells(2).innerText, _
vbCrLf, Chr(10))

IE.Quit
Set IE = Nothing
End Sub


bonne soiree
MichelXld