Rapport de message :*
 

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