[Toutes versions] importation internet en VBA

Extraire pronostic en VBA sur internet

Bonjour,

Je m'excuse d'être répétitif sur le sujet demandé par Cecile 64 concernant l'extraction de données sur Internet mais malgré une petite expérience des macros VBA, je n'arrive pas à comprendre les différentes étapes des procédures !

Ma demande concerne l'extraction ( je ne peux ni copier ni coller ) de pronostics turf sur internet à l'aide de VBA sur Excel 2007 !

Voici le site concerné :

http://www.pronostics-turf.info/fg-p...ics-presse.php

En vous remerciant à l'avance !

1 pièce(s) jointe(s)

importation internet en VBA

Bonjour,

J'ai un fichier téléchargeant des données sur Internet qui n'a pu être résolu sur un autre forum !

Hors je ne peux importer les partants dans ce fichier !

Merci pour votre réponse !

Bonjour,

et quelle est la question posée stp ?

J'ai laissé ma boule de cristal sur la plage, merci d'être plus précis dans la demande :)

Lorsque je clic sur le bouton " Import Détails Partants " et après avoir modifié la date d'aujourd'hui ainsi que d'avoir cliqué sur MAJ liste ( jusqu'ici tout va bien) afin d'avoir les courses prévues, la feuille " Partants " devrait se remplir !

Hors elle est seulement effacée des courses précédentes !

Je voudrais savoir où se trouve le problème dans la macro pour ce téléchargement des courses sur le site PMU.FR !

Merci beaucoup à ceux qui peuvent m'aider et cela aidera des parieurs ou non sur ce forum à utiliser Excel pour importer de données Web !

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
64
65
66
67
68
69
70
71
72
73
74
75
76
 
Sub ListeCourses()
Dim IE As InternetExplorer, IEP As InternetExplorer
Dim IEdoc As HTMLDocument
Dim O As Object, OI As Object
Dim ColReunions As New Collection, ColCourses As New Collection
Dim V As Variant
Dim vURL As String, vID As String, vReunion As String, vc As String
Dim L As Byte
 
    'URL de départ
    vURL = "http://www.pmu.fr/turf/" & Sheets("Accueil").Range("E2").Text & "/index.html"
    'Ouvre la page web dans IE de façon invisible
    Set IE = CreateObject("internetExplorer.Application")
    Set IEP = CreateObject("internetExplorer.Application")
    IE.Visible = False
    Application.ScreenUpdating = False
    'Ouvrir la page Web
    IE.Navigate vURL
    Do Until IE.ReadyState = READYSTATE_COMPLETE
        DoEvents
    Loop
    Set IEdoc = IE.Document
    'Mémoriser les liens des pages de Réunion
    For Each O In IEdoc.links
        If O.onclick Like "*afficheReunionCalendrier(*" Then
            ColReunions.Add O.href & "|" & O.innerText
        End If
    Next O
    'Pour chaque Réunion
    For L = 1 To ColReunions.Count
        'Ouvrir la page web
        IEP.Visible = False
        IEP.Navigate Split(ColReunions(L), "|")(0)
        Do Until IEP.ReadyState = READYSTATE_COMPLETE
           DoEvents
        Loop
        'Récupérer les numéros ID et nom de chaque course
        'Set IEdoc = IE.Document
        vReunion = Split(ColReunions(L), "|")(1)
        On Error Resume Next
        For Each OI In IEP.Document.links
            vID = OI.onclick
            If vID Like "*_chevaux.choix_*" Then  '"*" & vReunion & "/course*" Then
                vc = "C" & Replace(OI.innerText, " ", "")
                vID = OI.href
                'vID = Replace(vID, "/page-1-index.html", "")
                vID = vID & "|" & vReunion & "|" & vc  'CStr(Val(vID))
                ColCourses.Add vID, vID
            End If
        Next OI
    Next L
    'Quitter IE
    Set IEdoc = Nothing
    Set IE = Nothing
    Set IEP = Nothing
    IE.Quit
    IEP.Quit
 
    Application.ScreenUpdating = True
 
    'Alimenter la liste ComboBox des éléments récoltés
    With Sheets("Accueil").ComboBox1
        .Clear
        .ColumnCount = 3
        .BoundValue = 3
        .Text = "< choisir une course >"
        For L = 1 To ColCourses.Count
            V = Split(ColCourses(L), "|")
            .AddItem V(0)
            .List(.ListCount - 1, 1) = V(1)
            .List(.ListCount - 1, 2) = V(2)
        Next L
    End With
    MsgBox "Liste mise à jour !  ", vbInformation + vbOKOnly, "myDearFriend!"
End Sub

1 pièce(s) jointe(s)

Bonjour probleme avec mon fichier turf

Bonjour a tous

je ne suis pas fort en vba

dans mon fichier je voudrais importer les courses de geny course dedans

et que dans mon fichier j'ai les cote puis le placé et les allocations se met automatique

si une personnes peut m'aider merci a vous