Récupérer informations site internet
Hello !
J'essaye de récupérer des infos sur un site internet via un script VBS (ou du VBA).
J'ai récupéré un bout de code ici, ca récupère bien l'entête de la page, sauf que le tableau central n'est pas récupéré, aucune info n'apparait, alors que ce sont justement ces infos qui m’intéressent. :?
Le code :
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
30
31
32
| Titre = "Extraire les données d'une page web"
Set ie = CreateObject("InternetExplorer.Application")
Set objFSO = CreateObject("Scripting.FileSystemObject")
ie.Navigate ("http://form.greyhounds.betfair.com/racingform")
ie.Visible=false
DO WHILE ie.busy
LOOP
Data = ie.document.documentElement.innertext
DataHTML = ie.document.documentElement.innerHTML
strFileXLS = "export2xl.xls"
strFileHTML = "exportHTML.txt"
Set objTextFile = objFSO.OpenTextFile(strFileXLS,2,True)
Set objHTMLFile = objFSO.OpenTextFile(strFileHTML,2,True)
objTextFile.WriteLine(Data)
objHTMLFile.WriteLine(DataHTML)
objTextFile.Close
objHTMLFile.Close
ie.Quit
Set ie=Nothing
Question = MsgBox ("Voulez-vous Ouvrir le fichier """& strFileXLS &""" ?" ,VBYesNO+VbQuestion,Titre)
If Question = VbYes then
call Explorer(strFileXLS)
wscript.Quit
Else
call Explorer(strFileHTML)
wscript.Quit
end if
Function Explorer(File)
Set ws=CreateObject("wscript.shell")
ws.run "Explorer.exe "& File & "\"
end Function |
Dans l'absolu j'aimerais récupérer toutes les infos du tableau central, et ce pour chaque course de chaque meeting (les 2 ComboBox en haut).
Si vous avez une idée sur comment récupérer ces infos et parcourir les différentes pages, merci d'avance. ;)
