Import de données web

Version imprimable

Bonjour à tous.
J’essaie d’importé les données du lien https://www.flashscore.fr/match/0fZO...r-statistics;0 en utilisant la méthode avec Internet exp de qwazerty

Cependant le site semble ne plus fonctionner avec IE
Existe-t-il une autre méthode pour importer les données ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Sub importWEB2() 'Déclaration des variables Dim IE As New InternetExplorer Dim IEDoc As HTMLDocument Dim HtmlElementStandard As HTMLGenericElement Dim lien As String Dim coll_class As IHTMLElementCollection Dim li As HTMLGenericElement 'On ouvre la page Web IE.navigate "https://www.flashscore.fr/match/0fZOvsc0/#player-statistics;0" IE.Visible = True WaitIE IE Set IEDoc = IE.document End Sub
Merci pour votre aide

hello,
si tu as edge chromium ou google chrome ou firefox tu peux utiliser selenium basic ( voir ici)

voici par exemple comment charger ta page avec selenium basic en utilisant chrome :
Code:

1 2 3 4 5 6 7 8 9 10 Public Sub RecuperFlashscore() Dim robot As New WebDriver Dim elem As Object robot.Timeouts.ImplicitWait = 8000 ' temps max 8 secondes pour les commandes find avant exception robot.Start "chrome", "https://www.flashscore.fr" robot.Get "/match/0fZOvsc0/#player-statistics;0" robot.Wait (20000) ' temporisation de 20 secondes avant de sortir robot.Quit End Sub
Ami calmant, J.P

Bonjour jurassic pork

Merci beaucoup ça marche super bien

J’essaie de reproduire une macro déjà faite en version IE en version Selenium que tu as fournis afin de comprendre un peu le fonctionnement (pour l’instant j’arrive à prendre les données du tableaux)

Je bloque sur les fameux « .Children » ( avec selenium je ne trouve pas comment faire ) afin de prendre un élément précis

Voici en exemple

Ex : version IE

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
 
Sub testIE()
 
'Déclaration des variables
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim HtmlElementStandard As HTMLGenericElement
Dim coll_class As IHTMLElementCollection
Dim li As HTMLGenericElement
Dim y As Byte
Dim b As Byte
 
 
Sheets("Feuil1").Range("A2:G100").ClearContents
 y = 2
 b = 18
'On ouvre la page Web
   IE.Navigate "https://fr.global.nba.com/boxscore/#!/0041900406"
   IE.Visible = True
   WaitIE IE
   Set IEDoc = IE.Document
   Application.Wait Now + TimeValue("00:00:02")
 
 
'click pour equipe 1
For Each bt In IEDoc.getElementsByClassName("pills-boxscore__container")(0).getElementsByTagName("div")
bt.Children(0).Click
Next
 
Application.Wait Now + TimeValue("00:00:01")
 
'click pour recuperation
For Each li In IEDoc.getElementsByClassName("nba-stat-table__overflow")(0).getElementsByTagName("tr")
On Error Resume Next
   Sheets("Feuil1").Range("a" & y) = li.Children(0).Children(1).Children(0).innerText 'nom
   Sheets("Feuil1").Range("b" & y) = li.Children(0).Children(1).Children(2).innerText ' prenom
   Sheets("Feuil1").Range("d" & y) = li.Children(4).innerText 'point
 y = y + 1
 
Next
 
'click pour equipe 2
For Each bt In IEDoc.getElementsByClassName("pills-boxscore__container")(0).getElementsByTagName("div") 'click pour equipe 2
bt.Children(1).Click
Next
 
Application.Wait Now + TimeValue("00:00:01")
 
For Each li In IEDoc.getElementsByClassName("nba-stat-table__overflow")(0).getElementsByTagName("tr")
On Error Resume Next
 Sheets("Feuil1").Range("a" & b) = li.Children(0).Children(1).Children(0).innerText 'nom
 Sheets("Feuil1").Range("b" & b) = li.Children(0).Children(1).Children(2).innerText ' prenom
  Sheets("Feuil1").Range("d" & b) = li.Children(4).innerText 'point
 b = b + 1
 
Next
 
   'On libère les variables
   IE.Quit
   Set IE = Nothing
   Set IEDoc = Nothing
   Application.ScreenUpdating = True
 
   MsgBox " FIN IMPORT WEB"
End Sub
 
 
Sub WaitIE(IE As InternetExplorer)
   'On boucle tant que la page n'est pas totalement chargée
   Do Until IE.ReadyState = READYSTATE_COMPLETE
      DoEvents
   Loop
End Sub

VERSION SELENIUM ( en test )

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Sub testselenium()
Dim robot As New WebDriver
Dim elem As Object
cc = 1
robot.Timeouts.ImplicitWait = 8000  ' temps max 8 secondes pour les commandes find avant exception
robot.Start "chrome", "https://fr.global.nba.com"
robot.Get "/boxscore/#!/0041900406"
 
robot.Wait (3000)
For Each li In robot.FindElementByClass("nba-stat-table__overflow").FindElementByTag("table").FindElementsByTag("tbody")
For Each t In li.FindElementsByTag("tr")
 
    For Each h In t.FindElementsByTag("td")
          Sheets("Feuil1").Cells(cc, 1) = h.Text
cc = cc + 1
Next
 
Next t
Next
 
'robot.Wait (20000) ' temporisation de 20 secondes avant de sortir
robot.Quit
End Sub

merci encore pour votre aide et conseil

ps : Selenium doit être installer sur chaque poste qui utilise la macro ?

hello,

Citation:

Envoyé par vad92

Je bloque sur les fameux « .Children » ( avec selenium je ne trouve pas comment faire ) afin de prendre un élément précis
ps : Selenium doit être installer sur chaque poste qui utilise la macro ?

il y a la recherche par XPath qui permet de faire des recherches ciblées
exemple pour ton cas pour récupérer tous les éléments du tableau :
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 Public Sub RecupTableauFlashscore() Dim robot As New WebDriver Dim elem, maTable, colonnes, colonne, lignes, ligne As Object Dim x, y As Integer robot.Timeouts.ImplicitWait = 8000 ' temps max 8 secondes pour les commandes find avant exception robot.Start "chrome", "https://www.flashscore.fr" robot.Get "/match/0fZOvsc0/#player-statistics;0" Set maTable = robot.FindElementById("player-statistics-basketball") Set colonnes = maTable.FindElementsByClass("txt") x = 1 y = 1 For Each colonne In colonnes 'Debug.Print colonne.Attribute("textContent") Cells(x, y).Value = colonne.Attribute("textContent") y = y + 1 Next x = 2 Set lignes = maTable.FindElementsByXPath(".//tbody/tr") 'Debug.Print lignes.Count For Each ligne In lignes y = 1 Set colonnes = ligne.FindElementsByXPath(".//td") For Each colonne In colonnes 'Debug.Print colonne.Attribute("textContent") Cells(x, y).Value = colonne.Attribute("textContent") y = y + 1 Next x = x + 1 Next robot.Wait (1000) ' temporisation de 1 seconde avant de sortir robot.Quit End Sub
L'execution est assez lente car on fait les recherches sur chaque élément.
J'ai trouvé une méthode beaucoup plus rapide :
Le copier / coller du tableau en utilisant le presse papier. Pour pouvoir utiliser les fonctions du presse-papier il faut qu'il y ait une userform (même sans rien) sinon la référence Microsoft Forms 2 qu'il faut utiliser n'existe pas dans les références.
Voici le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Public Sub RecupTableauFlashscore2() Dim robot As New WebDriver Dim maTable As Object Dim clipboard As MSForms.DataObject robot.Timeouts.ImplicitWait = 8000 ' temps max 8 secondes pour les commandes find avant exception robot.Start "chrome", "https://www.flashscore.fr" robot.Get "/match/0fZOvsc0/#player-statistics;0" Set maTable = robot.FindElementById("player-statistics-basketball") Set clipboard = New MSForms.DataObject clipboard.SetText maTable.Attribute("outerHTML") clipboard.PutInClipboard Range("A1").Select ActiveSheet.Paste robot.Wait (1000) ' temporisation de 1 seconde avant de sortir robot.Quit End Sub
ce code est peut-être faisable avec IE sans selenium.

Oui il faut installer selenium, là où la macro doit fonctionner. On ne peut pas "embarquer" selenium.

Ami calmant, J.P

14/11/2020, 19h27
vad92

Fantastique !!!!
la deuxième soluce whoua 8O
Merci beaucoup
17/12/2020, 14h32
vad92

Bonjour,

Je réouvre le sujet pour une petite question.

Les méthodes du dessus marche super bien , mais je suis bloquer sur le click d'un bouton

exemple sur le site "https://fr.global.nba.com/boxscore/#!/0012000028"

je n'arrive pas à sélectionner les boutons "CLE" ou "NYK" ce qui permet de sélectionner l'équipe pour les stats

j'essaye ca

Code:

robot.FindElementByXPath("/html/body/div[2]/div[2]/div[3]/div/div[2]/div[2]/section/div/div/div/div[2]/div/div/div[1]/div/a[2]").Click

mais ca ne marche pas :(

Merci pour votre aide