VBA Excel Requète WEB

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

Code:

---

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:

---

1 2	.Refresh BackgroundQuery:=False

---

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

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

Personne n'a de solution ?

bonsoir
et allez encore un turfiste;)

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

Code:

---

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

---