Rapport de message :*
 

Re: Récupération données PMU

Titre du sujet : Re: Récupération données PMU
par corinnette le 02/08/2012 09:45:39

 Bonjour,
Le fichier est très intéressant. 
Seulement, je voudrais extraire, les cotes simples gagnant (dernière colonne)
Et là j'ai un problème pour modifier le code pour arriver à extraire cette colonne. 
Le code modifier ci joint. 
Les modifications en rouge.
----------------------------
Mon problème est dans la partie 
 If OIP.outerHTML Like "*>9:33*" Then GoTo sautgain ou, je dois indiquer, l'heure de la cote prise. Cet heure change tout le temps. Que faire?
-----------------------------
'place le gain total
                  np = 0
                  Set IEdoc = IEP.Document
                  Set OP = IEdoc.getElementsByTagName("span")
                  
                  For Each OIP In OP
                    If OIP.outerHTML Like "*class=LpaddingXL*" Then
                     If OIP.outerHTML Like "*>9:33*" Then GoTo sautgain
                     np = np + 1
                     If np <> N Then GoTo sautgain
                      L = L + 1
                     With Cells(L, 1)
                        .Value = "Dernière Côte"
                     End With
                     With Cells(L, 2)
                        .Value = OIP.innerText
                        .Font.Bold = True
                        Exit For
                        'Application.StatusBar = .Value
                     End With
                    End If
------------------------------------------------------------------------------Merci, Corinne