Différence entre "Récupérer et transformer" et QueryTable (page web)

Bonjour,

Je constate quelque chose de bizarre (ou c'est dû à mon inexpérience). Je cherche à récupérer les données de :

http://www.tennisexplorer.com/matche...0&timezone=+12

Bien sûr la date évolue et, par moments, le site affiche deux journées (par exemple, les matches veille non encore terminés. Dans ce cas, avec "Récupérer et transformer" (ex Power Query), je récupère les matches veille dans la table 0 et les matches du jour dans la table 1.

Avec "QueryTables", je récupère la totalité des matches (veille et jour) avec le paramètre :

Code:

---

.WebTables = "2"

---

Ce que je cherche à faire est de récupérer séparément les matches veille et ceux du jour.

Toute idée sera la bienvenue.

Je viens de réaliser qu'on pouvait piloter Power Query via VBA. Donc, si mon utilisateur dispose d'une version compatible, je peux m'en sortir.
Ce qui n'empêche que la question demeure.

Daniel

bonsoir
quand tu le fait manuellement dans ton explorateur a tu eu un moment la curiosité de regarder la barre d'adresse quand tu clique sur "today" ou " previus day" ou "nextday"

alors voila ce que donne l'url pour la veille
url="http://www.tennisexplorer.com/results/?type=wta-single&year=2016&month=12&day=20"

voila ce que donne l'url pour le jour même

Code:

---

url="http://www.tennisexplorer.com/matches/?type=wta-single"

---

et voila ce que donne lurl pour le lendemain

Code:

---

url="http://www.tennisexplorer.com/next/?type=wta-single&year=2016&month=12&day=22"

---

j'ajouterais que tu peux tres bien te servir des formules demain ou hier pour le jour même en mettant le jour (day=XX)

j'ai regarder aussi l'inspecteur on peut le faire avec un requête par l'object "Microsoft.xmlhttp"

autrement dit tu peut gérer ta demande dynamiquemt en créant l'url comme ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

myDate = Date '' pour aujourd'hui   'ou' myDate = Date - 1 '' pour hier 'ou myDate = Date + 1 '' pour demain   URL = "http://www.tennisexplorer.com/results/?type=wta-single&year=2016&month=" & Month(myDate) & "&day=" & Day(myDate)   'reste de ton code ici en utilisant l'url ainsi rédigée

---

voila potasse sur ces points et reviens si tu comprends pas quelque chose

Bonjour Patrick,

Merci de te pencher sur mon problème. Oui, l'URL est générée dynamiquement. Le problème se produit quand il y a deux journées sur la page. Comme c'est difficile à expliquer, je posterai des captures d'écran pour mieux expliquer mon cas.

J'espère être plus clair avec les pièces jointes :

URL : http://www.tennisexplorer.com/result...1&timezone=+12

Images de la page

Pièce jointe 229697Pièce jointe 229712

Avec Power Query, j'obtiens pour le 20/12 (table 0) et pour le 21 (table 1) :

Pièce jointe 229703Pièce jointe 229714

Avec QueryTable, j'obtiens :

Table 0 : rien

Table 1 :
Pièce jointe 229709

Table 2 :
Pièce jointe 229696

Autrement dit, je ne récupère pas les données du 20/12 les tables 3, 4 etc. ne les récupèrent pas.

Merci d'avance.

Bonjour Daniel

oui effectivement je viens d'essayer et pour aujourd'hui jle 21/12/2016 dans la la table on a

Code:

---

1 2 3 4 5 6 7 8 9

Ankara ITFS12345HA 00:20Celik S. (6)2166 1.452.53info Melnikova M.1642 01:10Sabalenka A. (1)266 1.0111.52info Ovunc S.022 01:40Jorovic I. (4)266 1.203.93info Frech M.033 20:10Marfutina M.266 1.067.59info Oz I.023

---

alors que c'était pour le 20
et que aujourd'hui ca commence par Annia

pourtant ces dernier ne s'affiche pas sur la table dans IE d'où ton incompréhension

c'est assez difficile car on a aucune indication sur la question dans la page

il va peut etre te falloir comparer les deux pages galère en perspective
ps: j'ai essaye une requête et walouh!! il y a une protection anti rebot

Ne cherche pas trop, Patrick, mes connaissances HTML sont plus que basiques. Il ne faudrait pas que la solution dépasse ma compréhension !

re
oui je viens d'essayer plusieurs choses et ils ont vraiment une bonne protestion anti robots, j'aurais pas cru ;vu le style de code html de la page
cela dit j'ai vu pire y a toujours un moyen

re
bon comme je te l'ai dis avec les protections anti rebots on a des résultats surprenant ca prends bien la tete

depuis le temps j'ai bien appris que les protections anti robots n'était pas fiable a 100%

en biaisant un peu on arriver a un résultat

en fait si tu n'affiche pas la page dans un explorateur ca te met le bordel dans la page mais les données reste les mêmes

il suffit de savoir quoi chercher et comment

dans ce cas ca a été facile il faut pas chercher les tables il faut chercher les TR(enfant de la table)

par leur classname "one","one bott","one fRow bott" ,"two",two bott" etc....

et reconstruire ton listing avec les valeurs (innertext) des éléments

c'est un peu brouillon mais ca matche

regarde dans la fenêtre d'exécution c'est dans l'ordre

je te laisse le soin d'organiser le rapatriement des données dans le sheets a ta guise

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub test() Dim IE As Object, url As String Set IE = CreateObject("internetexplorer.application") myDate = Date '' pour aujourd'hui 'ou' 'myDate = Date - 1 '' pour hier 'ou 'myDate = Date + 1 '' pour demain   url = "http://www.tennisexplorer.com/results/?type=wta-single&year=2016&month=" & Month(myDate) & "&day=" & Day(myDate) & "&timezone=+12" 'url = " http://www.tennisexplorer.com/matches/?type=wta-single" IE.Visible = False IE.navigate url Do: DoEvents: Loop Until IE.readystate = 4 For Each elem In IE.document.all If elem.innertext Like "*info*" And elem.classname = "one fRow bott" Or elem.classname = "one bott" Or elem.classname = "two fRow bott" Or elem.classname = "two bott" Then Debug.Print elem.innertext & vbCrLf If elem.classname = "one" Or elem.classname = "two" Then Debug.Print elem.innertext & vbCrLf & "==========" Next IE.Quit End Sub

---

Voila