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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.