Discussion :

[GESCOM2000]

Bonjour
J'aimerai recuper le presse papier (.parentwindow.clipboardData.setData("Text", matable.outerhtml) dans un tablo avant de le transposer dans la feuille mais je sais pas faire ?

Code vba :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub tesreq()
Dim url
url = "http://www.geny.com/partants-pmu/2017-08-25-cabourg-pmu-prix-de-cherbourg_c922077"
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

[patricktoulon]

Bonsoir
je reconnais bien mes codes

pour mémoriser dans une variable tableau il te faut examiner ta table ligne par ligne colonne par colonne

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
Sub tesreq()
    Dim url$,lig#,col#,tablo,matable,mestr,mestd
    url = "http://www.geny.com/partants-pmu/2017-08-25-cabourg-pmu-prix-de-cherbourg_c922077"
    With CreateObject("microsoft.xmlhttp"): .Open "post", url, False: .send: code = .responsetext: End With
    With CreateObject("htmlfile")
        .body.innerhtml = code
        Set matable = .getelementbyid("tableau_partants")
        Set mestr = matable.getelementsbytagname("TR")
        ReDim tablo(mestr.Length, mestr(1).Children.Length)
        For lig = 0 To mestr.Length - 1
            Set mestd = mestr(lig).getelementsbytagname("TD")
            For col = 0 To mestd.Length - 1
                tablo(lig, col) = mestd(col).innertext
            Next
        Next
    End With
    Cells(1, 1).Resize(mestr.Length, mestr(0).Children.Length).Value = (tablo)
End Sub

[GESCOM2000]

Merci ca parait si simple apres avoir vue la solution.
Je suis tout tes poste le roi du coupe coupe (Moi aussi j'adore le split...)
Autre question
Comment faire la meme chaose avec Mozila car je suis tjrs en XP et le site du P.. ne prend plus IE8
Pour info je déteste de passer par IE.navigate prefere "CreateObject("microsoft.xmlhttp"): .Open "post", url,..........."
merci d'avancepour ton aide le roi du coupe coupe.