Discussion :

[fifi5622]

bonjour a tous

je voudrais faire suite a cette discutions de patricktoulon ,Marc-L ,Sebphyto

http://www.developpez.net/forums/d15...arger-donnees/


déjà je travail sur xp et excel 2007 (oui bah j'aime bien mais bon j'ai un autre pc avec windows 10 et excel 2007 )

ceci explique peut etre que certains codes de patricktoulon ne fonctionne pas chez moi ( erreur automation )
fichier v6 qui extraire les liens json fonntionne bien
pas encore tt lu mais j'ai pas trop compris pourquoi ne pas etre passe par la page > "stats-pmu?id_course=868036"


j'essaye de tt comprendre ( vba) et j'avoue j'ai pas trop le niveau

....
moi ce que je souhaite c'est a partir de cette page /entraineur/sebastien-hardy_e1004963

je souhaite aller sur le lien json << ses pensionnaires >> et extraire vers excel le contenu de celle ci pour utiliser après les données


je vais partir de ce code de PatrickToulon

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
 
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub test()
    Feuil1.Cells.Clear
    Dim IE As Object, doc As Object, URL As String, i As Long
'  hop hop je change la page pour ma page entraineur 
 
    URL = "http://www.geny.com/entraineur/sebastien-hardy_e1004963"
    Set IE = CreateObject("internetexplorer.application")
    IE.navigate URL
    IE.Visible = True
    Do: DoEvents: Loop While IE.busy Or IE.readystate <> 4
    Set doc = IE.document
    With doc
        texte = texte & .getelementsbytagname("table")(2).outerhtml & vbCrLf & "<br>"
        Set onglet = .getelementsbyclassname("yui-nav")(0)
        For i = 1 To onglet.Children.Length - 1
            onglet.Children(i).Children(0).Click
            'Do: DoEvents: Loop While IE.busy Or IE.readystate <> 4
            Sleep 700
            ' Application.Wait (Now + TimeValue("0:00:01"))
            Set matable = .getelementsbytagname("table")(i + 2)
            texte = texte & matable.outerhtml & vbCrLf & "<br>"
        Next
    End With
    IE.Quit
    With CreateObject("HTMLFile")
        If .parentWindow.clipboardData.SetData("Text", texte) Then
            Application.ScreenUpdating = False
            With Feuil1: .Cells.Clear: .Paste .Cells(1): .Hyperlinks.Delete: End With
            .parentWindow.clipboardData.ClearData "Text"
        End If
    End With
End Sub

je comprend le gros du code
j'ai du chercher a quoi correspondait << & vbCrLf >> retour chariot et saut a ligne ( équivalent a la touche retunr ? )

.outerhtm ??, kesako ca ?

j'obitent une erreur sur cette meme ligne erreur 91 varaible objet ou de bloc non defni

[fifi5622]

tout en essayant de trouve une approche , je continue mes lectures de patricktoulon & Sebphyto
et y a de quoi faire ( ) un post de 30 pages ( plus les mails et autres conversation en dehors que l'on devine )

et parfois il manque des pièces ( copie d'ecran je supposse )

j'ai bien essayer de me servir de l'outils Special >get element


et je pense qu'une bonne partie de ma réponse se trouve dans cette page #63 et 64 mais il faut que je les digères avant de les exploiter

http://www.developpez.net/forums/d15...arger-donnees/

[Marc-L]

Bonjour,

oui voir les posts #64 & 87 …

Edit : sinon il y a plus simple pour un débutant car après-tout une structure json n'est que du texte balisé

et donc facilement extractible via les fonctions VBA manipulant du texte comme Split entre autres …

Juste à partir de la requête utilisée par un navigateur : http://www.geny.com/flux-donnees-fic...vaux&type=json
et se trouvant aisément via son outil d'inspection !

_________________________________________________________________________________________________________

Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[fifi5622]

merci pour le l'info je vais regarder cela a tete repose car la je sature un peu des lectures ...
mais une chose m'intrigue

d'ou viens ce début de lien ?
stats-records-hand-flux-donnees .... ( www.geny.com/stats-records-hand-flux-donnees..... )


car moi si je devais importer les statisqtiques
je l'aurai fait de cette page
http://www.geny.com/stats-pmu?id_course (lien statistique dans le menu de gauche )



je pense que dans 1 er tps
je vais essayer d'importer dans excel par exemple le 3 ieme et dernier bouton << evolutions des poids >>
avantage c'est tjs la meme page de demarage

ça ne me sert a rien sinon a comprendre comment faire pour ensuite !

merci pour l'edit je regarderais également

oui manipuler du textes avec des splits & autres instr .... en vba ca me convient

[Marc-L]

Le lien du post #3 vient de l'utilisation de l'outil d'inspection d'un navigateur,
le tien je n'en sais rien car ce n'est pas le même : tu es donc le seul à pouvoir répondre ‼

Avec juste Split & Replace en moins de trente lignes de code pour alimenter une variable tableau des données
et les afficher dans une feuille de calculs, cinq minutes d'observation des données et cinq minutes pour coder.
Multiplier le temps par deux pour un débutant …

[fifi5622]

merci pour la page c'est parfait je n'avais pas regarder mais oui c'est bien ce que j'ai besoin
http://www.geny.com/flux-donnees-fic...vaux&type=json

bon je pourrais faire mon code vba et clore le post mais ( si je veux recommencer ailleurs c'est mieux de comprendre )




je ne trouve pas ce fameux lien (ni aucun n'autres d'ailleurs ) dans l'outils de développement ( on parle bien de f12 ? du navigateur)
ma config sur XP ( avec une version de chrome , une version de IE8 , et une version firefox )
et autre pc sur windows 10 avec edge ou chrome

y a surement un truc qui' m échappe la voici ce que j'obtiens avec chrome et f12

j'ai bien les balises ,ect ... mais point de lien ....

hop hop une image ...