Extraction de la colonne "cote" site pmu | ||
---|---|---|
Inscription: 02/08/2012
Messages:
2
Version Excel utilisée: 97, 2003, xp, 2007, 2010 |
Posté le : 02-08-2012 09h53
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 |
|
|
Re: Récupération données PMU | ||
---|---|---|
Inscription: 02/08/2012
Messages:
2
Version Excel utilisée: 97, 2003, xp, 2007, 2010 |
Posté le : 02-08-2012 09h45
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 |
|
|