Extraction de la colonne "cote" site pmu |
Titre du sujet : Extraction de la colonne "cote" site pmu par corinnette le 02/08/2012 09:53:12 Bonjour, J'ai trouvé le fichier Turf.xls très intéressan: http://www.mdf-xlpages.com/modules/ne ... ost_id=5975#forumpost5975 Je m'intéresse à ce fichier pour tenter d'extraire la partie "cotes simples", la dernière colonne Je tente de modifier le code, mais là j'ai un problème 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 le nom de la colonne donc l'heure de la cote prise. Cet heure change tout le temps. Que faire? (ATTENTION, JE SUIS NULLE ET C'EST PAR DEDUCTION QUE JE DIS QU'IL FAUT EXTRAIRE LE NOM DE LA COLONNE!!!) ----------------------------- '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 ------------------------------------------------------------------------------ Je encore essayer de chercher. Mon but final c'est ultra-simple. Extraire uniquement pour toutes les courses, le Numéro du cheval et sa cote associé !!! Merci, Corinne |
Forums