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 |
Forums