Discussion :

[jbonneval]

Bonjour,

Je tourne en rond pour obtenir le chargement de la table « Managerial Changes » de la page Web suivante https://en.wikipedia.org/wiki/2016%E2%80%9317_Ligue_1 dans une feuille excel.

J’arrive a faire le chargement de la page entière mais je souhaite savoir comment identifier et charger seulement ce tableau de changement de coach.

Je me perd avec les <tr> et <td> :-s

Merci d’avance pour votre retour

Cdt
jerome

[patricktoulon]

re
Bonjour
montre ce que tu a essayé comme code et on t'aidera

[jbonneval]

Bonjour

Merci pour ton attention
J'en ai trouvé plusieurs et le plus simple me semble être celui-ci mais j'ai une erreur.

En espérant trouver une solution
Cdt
Jerome

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
Sub Sample2()
    Dim objIe As Object, xobj As HTMLDivElement
 
    Set objIe = CreateObject("InternetExplorer.Application")
    objIe.Visible = True
 
    objIe.navigate "https://en.wikipedia.org/wiki/2016%E2%80%9317_Ligue_1"
 
    While (objIe.Busy Or objIe.readyState <> 4): DoEvents: Wend
 
    Set xobj = objIe.document.getElementById("Managerial_changes")
    Set xobj = xobj.getElementsByClassName("wikitable sortable jquery-tablesorter").Item(0)
    Set xobj = xobj.getElementsByClassName("td")(0)
 
    Debug.Print xobj.innerText
 
    Set xobj = Nothing
 
    objIe.Quit
    Set objIe = Nothing
End Sub

[patricktoulon]

re
bon c'est plutôt un bon debut
il te reste la retranscription sur le sheets

voila 2 solution parmi plein d'autre

la 1ere avec internet explorer

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
Sub test()
    Dim IE, URL, code, elem
    URL = "https://en.wikipedia.org/wiki/2016%E2%80%9317_Ligue_1"
    Set IE = CreateObject("internetexplorer.application")
    IE.navigate URL: IE.Visible = True
    Do: DoEvents: Loop While IE.readystate <> 4
    With IE.document
        code = .getelementsbyclassname("wikitable sortable jquery-tablesorter")(0).outerhtml
       End With
    IE.Quit
    With CreateObject("htmlfile")
        .body.innerhtml = code
        For Each elem In .all
            If elem.tagname = "TD" Then elem.innerhtml = elem.innertext
        Next
        If .ParentWindow.clipboardData.SetData("text", .body.innerhtml) Then
            With Sheets(1): Cells.Clear: .Cells(1, 1).Select: .Paste: End With
            .ParentWindow.clipboardData.ClearData ("text")
        End If
    End With
End Sub

maintenant la 2d avec une requete
c'est plus rapide!!!!!!!

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
Sub test2()
Dim ReQ, URL, code, elem
URL = "https://en.wikipedia.org/wiki/2016%E2%80%9317_Ligue_1"
   Set ReQ = CreateObject("microsoft.xmlhttp")
 ReQ.Open "POST", URL, False
ReQ.send
With CreateObject("htmlfile")
        .body.innerhtml = ReQ.responsetext
         code = .getelementsbytagname("table")(4).outerhtml
         .body.innerhtml = code
        For Each elem In .all
            If elem.tagname = "TD" Then elem.innerhtml = elem.innertext
        Next
        If .ParentWindow.clipboardData.SetData("text", .body.innerhtml) Then
            With Sheets(1): Cells.Clear: .Cells(1, 1).Select: .Paste: End With
            .ParentWindow.clipboardData.ClearData ("text")
        End If
    End With
End Sub

voila

[jbonneval]

Bonsoir,

Milles merci pour ton code.
Il fonctionne parfaitement bien, même quand je change de championnat eg. https://en.wikipedia.org/wiki/2016%E...Premier_League, il me suffit simplement de changer le numero de la table ici avec le (3). C'est hyper rapide le TOP!!

Code :

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

1
2
3
With CreateObject("htmlfile")
        .body.innerhtml = ReQ.responsetext
         code = .getelementsbytagname("table")(3).outerhtml

En revanche, vous me rendez fou de de maitriser à ce point le code .
J'aimerai le maitriser aussi bien que toi mais je pars de tellement loin que je ne connais meme pas la technologie utilisé (xml, html etc...).

Peut etre tu serais me donner de la lecture pour les Débutants comme moi dans le cadre de progresser sur des solutions d'interface entre WEB/Excel ?

PS pour un premier départ, le top ce serait que tu me donnes de la lecture qui me permettent de déchiffrer ton code :-p.

Encore Merci et bonne soirée
Jerome

[patricktoulon]

re
OK pour commencer voila le tutoriel de qwazerty qui te donne une idée des possibité

c'est le B A BA POUR le web/vba
http://qwazerty.developpez.com/tutor...-et-vba-excel/

pour la partie xmlhttp et"htmlfile" je te donnerais moi même quelques explication (car mes codes sont assez perso
qui sont le fruit d'année d'expérience ) afin que tu puisse par toi même faire quelques essais

déjà buche avec le tuto qwazerty quand tu aura tout compris tu saura faire pas mal de trucs

A+