Récuperer données page web
Bonjour,
Voici ce que je cherche à faire :
Avec cette url : https://www.cortalconsors.fr/Infos-M...ITY-EUROPE--C-
Je cherche à récupérer la date ainsi que le cours.
Pour cela j'ai regarder les différents tuto :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
Sub Importer_tableauPageWeb()
'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 j As Integer, i As Integer
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.navigate "https://www.cortalconsors.fr/Infos-Marches/Sicav-FCP/snapshot/id20344758-FIDELITY-EUROPE--C-"
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop
Set maPageHtml = IE.document
'objet type table
Set Htable = maPageHtml.getElementsByTagName("table")
'premier tableau dans la page Web
Set maTable = Htable(0)
End Sub |
J'arrive à ouvrir la page, mais pour récuperer les info je ne comprends pas trop l'histoire des tables...
Merci d'avance pour votre aide..
