Discussion :

[Daniel MERCIER]

Bonjour à tous, en Excel 2003 et XP, ce code tourne bien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.geny.com/partants-pmu/2017-06-26-saint-cloud-pmu-prix-mordant_c904229", _
Destination:=Range("a1"))
.BackgroundQuery = True
.Refresh BackgroundQuery:=False
End With

Mais avec Excel 2003 et Windows 10 erreur a la ligne suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
.Refresh BackgroundQuery:=False

Malgré beaucoup de recherches, je n'ai pas trouvé de solution.

J'espère que vous pourez m'aider !

[Daniel MERCIER]

Personne n'a de solution ?

[patricktoulon]

bonsoir
et allez encore un turfiste

je te propose cette autre solution qui te livre seulement la table au propre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub tesreq()
Dim  url
url = "http://www.geny.com/partants-pmu/2017-06-26-saint-cloud-pmu-prix-mordant_c904229"
With CreateObject("microsoft.xmlhttp"): .Open "post", url, False: .send: code = .responsetext: End With
With CreateObject("htmlfile")
.body.innerhtml = code
Set matable = .getelementbyid("tableau_partants")
memo = .parentwindow.clipboardData.setData("Text", matable.outerhtml)
With ActiveSheet: .Cells(1, 1).Select: .Paste: End With
End With
End Sub