Mon ficher de récup infos ne marche plus

Version imprimable

Voir 40 message(s) de cette discussion en une page

26/07/2016, 11h59
patricktoulon

re

Ok on c'est croisé

bon !!!!on en est a 4 pages pour ce post et l'on a juste les liens des pages on est bien d'accords que ce sont bien les pages que tu veux
tu n'a qu'a copier une ligne et la coller dans la barre d'adresse de ton navigateur pour t'en assurer
26/07/2016, 12h01
speedturf

ce que je voudrais c'est importer le tableaux de partants dans excel et après les résultats dans excel

comment faire maintenant, je suis dispo tous l'après midi si tu veut
26/07/2016, 12h03
patricktoulon

re

et oui mais moi non je suis la jusqu'à 13.30 apres je parts en inter boulot boulot faut bien gagner des sous vu que je ne joue pas ;)
je reviens patiente un moment
26/07/2016, 12h09
davido84

Citation:

Envoyé par speedturf

Pièce jointe 216362

Tes pièces jointes sont illisibles : je te demande juste de me donner la teneur du message affiché par cette macro...
A+
26/07/2016, 12h12
speedturf

1 pièce(s) jointe(s)

Pièce jointe 216399
26/07/2016, 12h21
davido84

Citation:

Envoyé par speedturf

32 bits

Donc contrairement à ce que tu as dit ta version d'Excel est une version en 64 bits et non en 32 bits.
Ceci implique que tu ne peux pas utiliser certains ocx tels que la listview, le dtpicker, etc. et ce quel que soit le fichier que tu pourrais télécharger.
Donc soit tu réinstalles une version en 32 bits soit tu cherches un autre moyen en te passant de ces contrôles.
A+
26/07/2016, 12h26
unparia

Ouais ...
C'est une partie de poker javanais, là ...
Et dire que sa réponse antérieure (en 32 bits) nous a alors conduits à faire des installations et enregistrements d'ocx dans syswow64 !
Ouais, ouais ...

Bonjour unparia

ouis mais se control est obsolete un peu malgré qu'il fonctionne encore sur cetaines pages mais pas sur d'autres

bon le turfiste fait moi plaisir prends un fichier virege et colle lui ca dans un module standart et la ce la sub test
attend.... et regarde ta feuille(1) du classeur

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
Dim liste
Function datahtml(url)
    Dim ReQ
    Set ReQ = CreateObject("microsoft.xmlhttp")
    With ReQ
        .Open "GET", url, False
        .setrequestheader "Accept", "text/html, application/xhtml+xml, */*"
        .setrequestheader "Accept-Language", "fr-FR"
        .setrequestheader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko"
        .setrequestheader "Accept-Encoding", "gzip, deflate"
        .setrequestheader "Host", "www.geny.com"
        .setrequestheader "Connection", "Keep - Alive"
        .setrequestheader "cache-Control", "  no-cache"
        .send
        'Debug.Print .responsetext
        datahtml = .responsetext
    End With
End Function
'http://www.geny.com/reunions-courses-pmu/_d2016-07-26?
'exemple de lien page prono='http://www.geny.com/partants-pmu/2016-07-26-vichy-pmu-prix-du-golf-du-sporting-de-vichy_c824673
Public Function liste_page_stat(madate As String) As Variant
    Dim doc As Object, i As Long, meselem As Object, url As String, list(900)
    Set doc = CreateObject("htmlfile")    'on créé un document html en memoire ( pas d'interface(fenetre))
    url = "http://www.geny.com/reunions-courses-pmu/_d" & Format(madate, "yyyy-mm-dd") & "?"
    With doc
        .body.innerhtml = datahtml(url)    'on met dans son body le resultat de la fonction datahtml
        'on va rechercher les bouton coursepartantsstat
        Set meselem = .getelementsbytagname("a")    ' on collectionne toutes  les balises"<a></a>"
        For i = 0 To meselem.Length - 1
            If meselem(i).href Like "*partants-pmu/" & Year(madate) & "*" Then
                texte = texte & vbCrLf & "http://www.geny.com" & Replace(meselem(i).href, "about:", "")
            End If
        Next
    End With
    liste_page_stat = texte
End Function
Sub test()
    Sheets(1).Cells.Clear
    Dim madate As String
    madate = "26/07/2016"
    liste = Split(liste_page_stat(madate), vbCrLf)
    For i = 0 To UBound(liste)
        If liste(i) <> "" Then
            'dt_partants
            With CreateObject("htmlfile")
                .body.innerhtml = datahtml(liste(i))
                .body.innerhtml = .getelementbyid("dt_partants").getelementsbytagname("table")(0).outerhtml
                If .parentWindow.clipboardData.setData("Text", .body.innerhtml) Then
                    Application.ScreenUpdating = False
                    With Sheets(1)
                        .Activate
                        With .Cells(Rows.Count, 1).End(xlUp).Offset(2, 0)
                            .Value = liste(i)
                            .Offset(1, 0).Select
                        End With
                        .Paste
                    End With
                    .parentWindow.clipboardData.clearData "Text"
                End If
            End With
        End If
    Next
End Sub

j'utilise mon astuce préférée le copier coller en plaçant le outerhtml de la table des pages dans le clipboard du document html virtuel je t'expliquerais un peu plus tard cela

26/07/2016, 13h42
Sebphyto

Re à tous,

J'adore te lire Patrick, c comme une mélodie tes codes maintenant.....

SpeedTurf:
Suis bien ce que Patrick te dis, et n'hésites pas à lui poser des questions, car s'il croit que tu as compris, il va aller très vite....crois-en mon expérience ;)

Bonne journée à vous tous
Seb

3 pièce(s) jointe(s)

Citation:

Envoyé par patricktoulon

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
Dim liste
Function datahtml(url)
    Dim ReQ
    Set ReQ = CreateObject("microsoft.xmlhttp")
    With ReQ
        .Open "GET", url, False
        .setrequestheader "Accept", "text/html, application/xhtml+xml, */*"
        .setrequestheader "Accept-Language", "fr-FR"
        .setrequestheader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko"
        .setrequestheader "Accept-Encoding", "gzip, deflate"
        .setrequestheader "Host", "www.geny.com"
        .setrequestheader "Connection", "Keep - Alive"
        .setrequestheader "cache-Control", "  no-cache"
        .send
        'Debug.Print .responsetext
        datahtml = .responsetext
    End With
End Function
'http://www.geny.com/reunions-courses-pmu/_d2016-07-26?
'exemple de lien page prono='http://www.geny.com/partants-pmu/2016-07-26-vichy-pmu-prix-du-golf-du-sporting-de-vichy_c824673
Public Function liste_page_stat(madate As String) As Variant
    Dim doc As Object, i As Long, meselem As Object, url As String, list(900)
    Set doc = CreateObject("htmlfile")    'on créé un document html en memoire ( pas d'interface(fenetre))
    url = "http://www.geny.com/reunions-courses-pmu/_d" & Format(madate, "yyyy-mm-dd") & "?"
    With doc
        .body.innerhtml = datahtml(url)    'on met dans son body le resultat de la fonction datahtml
        'on va rechercher les bouton coursepartantsstat
        Set meselem = .getelementsbytagname("a")    ' on collectionne toutes  les balises"<a></a>"
        For i = 0 To meselem.Length - 1
            If meselem(i).href Like "*partants-pmu/" & Year(madate) & "*" Then
                texte = texte & vbCrLf & "http://www.geny.com" & Replace(meselem(i).href, "about:", "")
            End If
        Next
    End With
    liste_page_stat = texte
End Function
Sub test()
    Sheets(1).Cells.Clear
    Dim madate As String
    madate = "26/07/2016"
    liste = Split(liste_page_stat(madate), vbCrLf)
    For i = 0 To UBound(liste)
        If liste(i) <> "" Then
            'dt_partants
            With CreateObject("htmlfile")
                .body.innerhtml = datahtml(liste(i))
                .body.innerhtml = .getelementbyid("dt_partants").getelementsbytagname("table")(0).outerhtml
                If .parentWindow.clipboardData.setData("Text", .body.innerhtml) Then
                    Application.ScreenUpdating = False
                    With Sheets(1)
                        .Activate
                        With .Cells(Rows.Count, 1).End(xlUp).Offset(2, 0)
                            .Value = liste(i)
                            .Offset(1, 0).Select
                        End With
                        .Paste
                    End With
                    .parentWindow.clipboardData.clearData "Text"
                End If
            End With
        End If
    Next
End Sub

j'utilise mon astuce préférée le copier coller en plaçant le outerhtml de la table des pages dans le clipboard du document html virtuel je t'expliquerais un peu plus tard cela

Pièce jointe 216411

super cette astuce

j'aimerais la même chose avec les arrivées mais sur les arrivées, je voudrais ensuite récupérer les infos comme ceci dans l'ordre des colonnes les autres sont cacher pour les calculs

Pièce jointe 216415

ne pas tenir compte le la dernière colonnes

voila le fichier que je veut faire

Pièce jointe 216417

26/07/2016, 18h31
patricktoulon

re

bon me voila de retour

alors a tu essayé mon dernier model

les pages sont elles bien retournée

ensuite ou on trouve la page arrivée
26/07/2016, 18h40
speedturf

oui, elle fonctionne bien
dans geny, on clic sur arrivée et rapport
26/07/2016, 18h56
patricktoulon

re

ok et don tu veux le tableau ou les gains
26/07/2016, 19h18
speedturf

2 pièce(s) jointe(s)

non, juste le tableaux tel quel sur geny et après les arrivée comme les image
Pièce jointe 216445
Pièce jointe 216446
26/07/2016, 19h56
patricktoulon

re

re
bon les pages des courses passées ont donc une arrivée mais la structures des pages n'est pas identique pour toutes je pense qu'il y a les réunions ou je ne sais quoi qui paramètre cela

je vais fouiller sinon le code c'est le même a 2 ou 3 choses prêt mais d'abords miammiam
a toute!!
27/07/2016, 16h54
speedturf

j'installe visual studio 2015

Citation:

Envoyé par patricktoulon

Pièce jointe 216395

patrick, le code que tu as fait sert à faire une requête sur le site de geny.com pour rechercher toutes les courses du jour en adresse web
es-ce bien celà ?

Ensuite le code suivant permet d'afficher la listes des partants de toutes les réunions en forme de tableau dans la feuille1
27/07/2016, 16h57
patricktoulon

re

Bonjour speddturf
oui bon ca on le savait mais mon dernier code ne fait pas que ca
non seulement je récupère les adresses des pages mais en même temps je visites les dites pages pour en récupérer les tableaux statistiques

ce que je voudrais c'st savoir comment j'ai fait pour voir si tu a compris
27/07/2016, 17h23
speedturf

le code à servie à récupérer des infos entre les balise, non ?

on à éviter de prendre les images, les pub, et autre bouton qui ne me servent pas

tu as créé un document html en mémoire pour pouvoir récupérer plus facilement les infos entre les balises <a></a>

je vois plus, dis mois si j'ai bon

bon ben je retourne à mes copier coller
tans pis , je commencer à aimer mais je dois avoir mal compris.

je ne veut pas un code tous fait mais des exemple pas à pas comme les codes avant, mais tant pis.

merci quand même, je ne coderais jamais.
27/07/2016, 18h01
patricktoulon

1 pièce(s) jointe(s)

re
re pour ta réponse précédente oui c'est cela

je créé bien un document html en mémoire pour le manipuler comme dans IE

ce que j'aurais aimé c'est de savoir si tu a compris par quel moyen je fait

entre nous c'est beaucoup plus simple que tes codes initial ce dont je doute que ce soit toi qui les ai fait car ils sont déjà d'un niveau conséquent bien que trop complexe

du au fait que le principe et de travailler sur le string du code source (on le fait quand on est obligé et que l'on peut pas faire autrement)

tandis que moi je fait

recupere la liste des liens
visites des lien (page)
analyse de la page et recherche de la (TABLE)
recuperation du code source de la table uniquement dans une variable texte
quand j'ai toute mes tables de toutes mes page je remet mon!!!! code source que j'ai créé avec uniquement le code source de mes tables dans le document html

met le code de mon document html dans le clipboard (ca reviendrait a faire pareil un copier coller dans IE/Excel)

voila c'est pas compliqué c'est un apprentissage des outils qUI SONT A TA DISPOSITION ET QUI LARGEMENT PLUS EFFICACE

j'ai modifié mon dernier exemple que j'avais fait et ajouter l'arrivéee

tu a 3 modules
1 fonctions communes (qui servent au 2 autres
modules stat
module arrivé

je pourrais encore reduire par exemple a 1 seul fonction liste qui engloberait les argument pronostat et arrivé mais je laisser les deux version dans leur module respectif pour que tu puisse analyser leur légère différence peut être quand tu aura compris tu pourras le faire toi même

allez fichier en pièce jointe
27/07/2016, 18h05
speedturf

j'ai pas voulus te froisser, je sais c'est tes codes, pas de problème
en ce qui concerne les codes sur mon fichier initial, c'est une personne qui me la fait qui maintenant n'est plus disponible

j'aimerais apprendre, à toi de me le dire si on continue

Voir 40 message(s) de cette discussion en une page