Discussion :

[anasecu]

Bonjour à tous,

Je cherche à récupérer des informations et entre autre des liens sur une page web,
mais malgré des tests avec pas mal de codes différents, j'ai une page qui est récalcitrante.

Je vous mets un code qui fonctionne pour d'autres pages,
mais qui ne donne pas le résultat souhaité sur la page affichée en commentaire.

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
Option Explicit
Public ReQ As Object, doc As Object, elm As Object, grp As Object, tbl As Object, rng As Range, idx As Long, pos As Long, tmp
Public Sub rep_part() ' site partants web
    Call recup_page(Range("s_part"))    ' http://www.paris-courses.com/courses-hippiques/pid275-les-reunions-du-jour.html?day=tomorrow
    With doc
        .body.innerhtml = ReQ.responseText
        tmp = .ParentWindow.clipboardData.SetData("text", .body.innerhtml)
        With Feuil1
            .Activate
            Set rng = .Cells(1, 1)
            rng.Activate
            .Paste
        End With
    End With
End Sub
Public Sub recup_page(adr)  ' connexion site
    Set ReQ = CreateObject("microsoft.xmlhttp")
    ReQ.Open "POST", adr, False
    ReQ.setRequestHeader "Accept", "text/html, application/xhtml+xml, */*"
    ReQ.setRequestHeader "Accept-Language", "fr-FR"
    ReQ.setRequestHeader "User-Agent", "Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.1; WOW64; Trident/6.0)"
    ReQ.setRequestHeader "Accept-Encoding", "gzip, deflate"
    ReQ.setRequestHeader "Host", "www.geny.com"
    ReQ.setRequestHeader "DNT", 1
    ReQ.setRequestHeader "Connection", "Keep - Alive"
    ReQ.setRequestHeader "Cookie", " JSESSIONID=3E554B80B1ABBC36A2C53EC91C219C77.raoul_1;"
    ReQ.Send
    Set doc = CreateObject("htmlfile")
End Sub

Si un spécialiste peux me donner une façon de résoudre le souci, je l'en remercie par avance.

[Invité]

Bonjour Anasecu,

Je ne suis pas spécialiste, mais si cela peut t'aider, voilà ce que ta requête a donné chez moi avec office 365.

[anasecu]

Bonjour Eric

Merci de ta réponse et effectivement tu as le même résultat que moi, ce qui veux dire qu'il manque beaucoup d'informations qui sont pourtant sur le code source de la page.
J'ai déjà essayé pas mal d'autres techniques comme la connexion web par exemple qui donne les mêmes données alors que si l'on regarde sur un navigateur l'on obtient bien plus d'informations qui me seraient utiles.
Comme je ne suis pas comme toi un spécialiste, je tâtonne pour trouver une autre technique et j'espère qu'un familier de ces procédures va me trouver une manière d'obtenir satisfaction car je pense que cette page doit avoir une construction particulière en raison de l'utilisation du javascript.

Merci d'avoir pris le temps de chercher et à bientôt.

[Invité]

.

Bonjour Anasecu,

Bon courage pour la suite.