Récupération archives sur le site zeturf.fr
#1
Régulier XLPages

Inscription: 06/09/2010

Messages: 58

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 12-09-2010 23h49
Bonsoir Didier, bonsoir à tous,

J'ai encore une fois besoin de l'aide et des lumières de tous afin de récupérer les données archivés du sites zeturf.fr , plutôt qu'un long discours et afin de ne pas refaire les mêmes erreurs que dans mon post précédent en étant brouillon et peu cohérent, j'ai expliqué (copies d'écran à l'appui) les manipulations manuelles que je fais pour récupérer les données. C'est vrai que ce rajout aurait dû être inclus dans ma première demande mais je pensais tellement que ma première demande n'aboutirait pas que je n'avais pas osé en rajouter.

Je soumets donc a votre sagacité et à vos lumières en VBA ce nouveau problème qui représente pour moi l'inaccessible en matière de programmation VBA. Sachant que je voudrais récupérer les infos pour toutes les courses des  3eres réunion du jour sélectionné

Les PJ (1, 1bis, 2 et 3) représentent étape par étape mon cheminement en quête d'archives dignes de ce nom.

Vous remerciant à nouveau de vous pencher sur ce problème .

Cordialement




Pièce jointe:
zip 1.zip   [ Taille: 48.55 Ko - Téléchargements: 1293 ]
zip 1bis.zip   [ Taille: 27.37 Ko - Téléchargements: 897 ]
zip 2.zip   [ Taille: 63.42 Ko - Téléchargements: 870 ]
zip 3.zip   [ Taille: 75.89 Ko - Téléchargements: 1245 ]
Hors Ligne
Rapport   Haut 

Re: Récupération archives sur le site zeturf.fr
#2
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 14-09-2010 01h02
Bonsoir jc24, le Forum,

Un peu de patience, le temps de 2 ou 3 jours afin que je puisse récupérer de la matière suffisante sur ZEturf.fr pour mes tests et je te proposerai peut-être une solution...

Cordialement,

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Récupération archives sur le site zeturf.fr
#3
Régulier XLPages

Inscription: 06/09/2010

Messages: 58

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 14-09-2010 07h32
Bonjour Didier,

C'est déjà beaucoup de prendre le temps de m'aider, donc ca serait un comble que je manifeste un soupçon d'impatience. Moi de mon coté j'essaye à partir de ce que tu m'as déjà écrit comme macro et je pourrais comparer et comprendre pourquoi ca ne marche pas.

Cordialement
Hors Ligne
Rapport   Haut 

Re: Récupération archives sur le site zeturf.fr
#4
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 15-09-2010 20h28
Bonsoir jc24,

Eh bien, je pense avoir terminé mes tests et te livre les résultats de ma réflexion sur ton problème...

Mais AVANT DE TESTER le classeur en pièce jointe, et pour une bonne compréhension du fonctionnement, je te prie de lire les quelques lignes qui suivent :

J'ai tout d'abord travaillé à partir du classeur que je t'avais proposé dans ton fil précédent, classeur récupérant les cotes de chaque course hippique.

Je résume un peu la situation :
Dans un premier temps : le classeur récupère les données issues du site ZEturf.fr et stocke de façon journalière (un jour = un onglet) les côtes de chaque participant et pour chaque course.

Dans un deuxième temps, le lendemain (ou n'importe quel jour suivant), tu souhaites récupérer des données de Résultats et Rapports concernant ces mêmes courses. Sur le site de Turf, l'accès à ces données de rapports se fait via un calendrier dans lequel il convient de choisir la date souhaitée, puis la ou les courses cibles.

Après une courte analyse, il paraît évident que le cheminement via "Archives/Calendrier/Choix de la réunion/Choix de la course" pour récupération des données est plus que tortueux et favorise peu une procédure VBA adaptée en conséquence...

J'ai toutefois remarqué une chose intéressante :
Pour consulter (et récupérer !) les cotes d'une course sur le site Web, l'URL est sous cette forme :
http://www.zeturf.fr/fr/cotes/ suivi de 17780-SAINT-CLOUD/88430-Prix-de-Saint-Pair-du-Mont
Pour consulter ensuite les Résultats et Rapports correspondant, l'URL est cette fois la suivante :
http://www.zeturf.fr/fr/resultats/ suivi de 17780-SAINT-CLOUD/88430-Prix-de-Saint-Pair-du-Mont

... voilà une chose intéressante !

Ainsi, quand on possède l'URL qui a fourni les cotes, on en déduit très facilement l'URL qui servira à récupérer les Rapports !
Plus besoin de parcourir le calendrier, il suffit de stocker les URL visitées lors de la première étape pour pouvoir reconstituer les URL utiles pour la 2ème étape.

Dans le classeur joint :
La procédure de récupération des cotes est donc légèrement modifiée pour stocker également dans le tableau les URL en question (cf les zones de titre séparant les courses). On la lance toujours via le bouton BLEU dans l'onglet « Menu ».

Un autre module VBA est construit pour parcourir - quand il le faut - les dites URL reconstituées et récupérer les données de Rapports souhaitées. La procédure correspondante se lance via le bouton VERT du « Menu ».

A la première ouverture,
quand tu cliqueras sur le bouton VERT, les données de Rapports de l'onglet « 14-09-2010 ® » seront récupérées. Bien évidemment, celles de l'onglet « 15-09-2010 ® » ne seront dispos qu'à partir de demain.

Fonctionnement :

Lors de la création automatique d'un onglet, il est nommé avec la date du jour suivi du tag "®" (signifiant : Résultats ou Rapport à Récupérer).
La procécure TraitementRapports() va parcourir les noms d'onglets et vérifier la présence de ce tag pour s'arrêter à chaque fois que nécessaire pour compléter les données de Rapports manquantes.

Le code utilisé pour ce nouveau traitement est le suivant :
Option Explicit
' myDearFriend!  -  www.mdf-xlpages.com

Sub TraitementRapports()
Dim F As Worksheet
Dim Plage As Range, R As Range
Dim Lien As String, D As String
Const vURL As String = "http://www.zeturf.fr/fr/resultats/"
    For Each F In Worksheets
        With F
           If Right(F.Name, 2) = " ®" Then
                'Si onglet <> aujourd'hui
                D = Replace(.Name, " ®", "")
                If DateValue(D) <> Date Then
                    'Préparer la feuille cible
                     .Activate
                    .Columns("K:T").Delete Shift:=xlToLeft
                    Application.ScreenUpdating = False
                    'Récup des données web
                    Set Plage = .Range(.Cells(4, 1), DernCell.Offset(-1, 0)).SpecialCells(xlCellTypeBlanks)
                    For Each R In Plage
                        Lien = R.Offset(0, 1).Text
                        If InStr(1, Lien, "/") > 0 Then
                            Application.StatusBar = Lien
                            Lien = vURL & Lien
                            RecupRapports Lien, R.Offset(-2, 10)
                        End If
                    Next R
                    'mise en forme
                    .Range("K:N,Q:Q,S:S").Delete Shift:=xlToLeft
                    .Columns("K:M").EntireColumn.AutoFit
                    .Range("A1").Select
                    'Renommer l'onglet (supprimer le tag '®')
                    .Name = D
                    Application.ScreenUpdating = True
               End If
           End If
        End With
    Next F
    Application.StatusBar = False
    Beep
End Sub

Sub RecupRapports(vURL As String, R As Range)
    With ActiveSheet.QueryTables.Add(Connection:="URL;" & vURL, Destination:=R)
        .Name = "LaRequete"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebTables = "4"
        .WebFormatting = xlWebFormattingRTF
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
        .Delete
    End With
    'Efface l'entête
    R.Resize(3, 9).ClearContents
End Sub

En espérant que ce processus convienne et réponde à tes attentes...

ATTENTION toutefois
: j'ai laissé l'onglet « 13-09-2010 » pour l'exemple, mais j'ai du supprimer une bonne partie de ces données d'origine pour pouvoir faire perdre un peu de poids au fichier et le poster en pièce jointe ici.

Cordialement,


Pièce jointe:
zip mDF_RecupWebZEturf v2.zip   [ Taille: 76.50 Ko - Téléchargements: 1695 ]

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Récupération archives sur le site zeturf.fr
#5
Régulier XLPages

Inscription: 06/09/2010

Messages: 58

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 15-09-2010 23h08
Bonsoir Didier,

Que te dire si ce n'est un énorme bravo pour ton sens de l'analyse et de programmation, je me suis empressé une fois lu ton message de tester tes nouvelles procédures et la miracle tout fonctionne à merveille, et cela va me faciliter grandement le travail et surtout me faire gagner beaucoup beaucoup de temps.
J'avais moi essayé à partir de la mouture précédente de bidouiller quelque chose mais il y a tellement de chose qui m'échappe que j'ai subi échec sur échec.

J'ai voulu faire un test sur la rubrique programme et pronostic du même site et j'ai été incapable de comprendre (c'est dire si je suis nul) pourquoi je n'arrivais pas à copier toutes les données mais seulement une partie, donc je crois qu'il faut vraiment que je me documente sérieusement et prendre des leçons de gens tel que toi.

Encore une fois ENORME merci pour ton aide et félicitions pour ton site.

Mais une promesse étant une promesse, je te tiens au courant de mes cogitations et espère bien te faire partager le plaisir de gagner quelques euros aux courses

Cordialement
JC
Hors Ligne
Rapport   Haut 

Re: Récupération archives sur le site zeturf.fr
#6
Débutant XLPages

Inscription: 19/01/2011

Messages: 4

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 19-01-2011 21h25
 bonsoir à tous,
je suis moi aussi intéressée pour récupérer la base de données ZETURF c'est pourquoi je suis arrivé sur votre page (prono cote resultat)
j' ai testée votre macro sous 2007 malheureusement  je ne parvient pas à récupérer les données souhaitées voici ce que j'obtiens
                           Les cotes ZEturf Les cotes PMU Simple gagnant Simple placé       N° Chevaux (sexe/âge) écurie Matin En direct   Matin 10 minutes Finales   18410-MARSEILLE-VIVAUX/92951-Prix-des-Roches                              dans la colonne B seul le non de la dernire course remonte pouvez vous m'aider s'il vousplaît
l'intérêt pour moi est de tester la fiabilité des pronos de zeturf afin de mettre en place une méthode en jeux simple placé
merci de votre support


Hors Ligne
Rapport   Haut 

Re: Récupération archives sur le site zeturf.fr
#7
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 19-01-2011 22h34
Bonsoir catfi, bienvenue sur XLpages.com
Bonsoir le Forum,

Le site Zeturf.fr a évolué depuis et il y a d'ailleurs une suite au présent fil de discussions :
- Regrouper les données Zeturf
- Récupération données Web

Cela dit, à toutes fins utiles, tu trouveras ci-joint le fichier d'origine rectifié pour récupérer les données « cotes » (mais uniquement celles du site Zeturf puisque les cotes PMU ont disparues de la page web).

Pour rétablir le fonctionnement du fichier, j'ai simplement modifié une ligne de code de la procédure RecupCotes() :

J'ai remplacé la ligne :
.WebTables = "3"

par :
.WebTables = "2"

En espérant que ça puisse te dépanner...

Cordialement,

Pièce jointe:
zip mDF_RecupWebZEturf v4.zip   [ Taille: 78.68 Ko - Téléchargements: 1599 ]

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Récupération archives sur le site zeturf.fr
#8
Débutant XLPages

Inscription: 19/01/2011

Messages: 4

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 21-01-2011 19h15
Bonsoir,
Merci pour le fichier, je regarde ce week end et vous tiens informé
Bonne soirée 
Hors Ligne
Rapport   Haut 

Re: Récupération archives sur le site zeturf.fr
#9
Débutant XLPages

Inscription: 19/01/2011

Messages: 4

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 23-01-2011 22h32
 hello,
comme promis j'ai regardé votre fichier ce week end il marchait superbement samedi matin mais ce soir je ne parviens pas à récupérer les données ??
j'ai l'impression que zeturf à modifier son site quand pensez vous ?
bonne semaine à tous
Hors Ligne
Rapport   Haut 

Re: Récupération archives sur le site zeturf.fr
#10
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 23-01-2011 22h55
Bonsoir catfi,

Je n'en pense pas grand chose... je viens de faire l'essai, je ne vois aucune différence de fonctionnement avec mon test de mercredi et je récupère les données "cotes" du site Zeturf sans problème pour la journée d'aujourd'hui (23/11/2011).

Comme il m'est déjà arrivé de le dire, je ne suis ni un fondu de tiercé, ni un spécialiste du site Zeturf... Si dysfonctionnement il y a, ce n'est pas moi le spécialiste c'est vous, et c'est à vous d'analyser la situation et voir ce qui ne va pas.

Par ailleurs, si notre ami jc24 (qui est à l'origine du présent fil de discussions) a changé son fusil d'épaule et adopté un autre site de turf pour ces travaux (voir les liens que j'indique plus haut), ce n'est peut-être pas un hasard...

Cordialement,

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes