Forums XLPages

Tous les messages (jc24)

« 1 2 3 4 5 6 »
Re: Recupération d'infos sur ParisTurf
#41
jc24
Régulier XLPages

Inscription: 06/09/2010

Messages: 58

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 07-02-2011 23h25
Bonsoir Didier, bonsoir le forum

J'ai télécharger l'application que tu as créé mais je me trouve confronter à un bug au niveau de :

Set IEDoc = IE.Document
    On Error Resume Next
    With Sheets(1)
        Lign = 5

avec le message suivant du débogeur "mécanisme de bibliothèque d'objets non géré"

pourtant par rapport a ce que tu m'avais déjà concocté je n'ai changé ni de systeme , ni de version d'internet explorer, j'avoue ne pas comprendre d'ou vient ce bug

Quelqu'un a t'il une idée ??

Merci par avance de vos réponses
Cordialement
JC
Hors Ligne
 Rapport   Haut 

Re: Recupération d'infos sur ParisTurf
#42
jc24
Régulier XLPages

Inscription: 06/09/2010

Messages: 58

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 05-02-2011 22h21
Bonsoir à tous et particulièrement à Didier,

je viens de regarder un peu la PJ que tu as joins à ta demande. Eh bé !!!!!!!!!!!!!!!!! ca va pas être simple, mais je pense que le maître de ce forum va tenter de t'aider.
Si j'ai bien compris tu veux récupérer pour chaque cheval prenant par à la course du tiercé les infos suivantes :
les dernières places,
les dernières allocations courues,
le nombre de courses courues dans sa carriere
le nombre de victoires
le nombre de places
le nombre de citations dans la liste type,
le nombre de points dans la Synthèse originale
et la cote probable indiquée dans paris turf

Cela fait beaucoup d'élements à récupérer et je pense que tu devrais détailler beaucoup plus en détails l'ensemble des paramètres, car quelqu'un qui ne connait ni les courses, ni le journal Paris turf va avoir bien du mal à comprendre ta demande, même si ici il y a des cracks au niveau VBA sans explications plus abouties je doute qu'ils arrivent a s'y retrouver.

Pour ma part je serais aussi très intéressé par la récupération de tous ces éléments auxquels tu pourrais ajouter la place dans le classement de Paris turf .

Pour ma part malgré mon très faible niveau en VBA, je vais essayer de voir si je peux programmer quelque chose pour récupérer une partie des éléments, mais ce qui va poser problème c'est de récupérer l'ID de la course qui varie chaque jour

Cordialement
JC
Hors Ligne
 Rapport   Haut 

Re: Récuperation données web
#43
jc24
Régulier XLPages

Inscription: 06/09/2010

Messages: 58

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 10-10-2010 22h31
Bonsoir Didier,

Merci encore une fois d'avoir pris de ton temps pour m'aiguiller sur la résolution de mon problème.

J'ai rencontré une difficulté avec ce que tu m'avais envoyé, car la macro "bloque" sur  Set IEDoc = IE.Document et m'indique Bibliothèque d'objets non gérée alors que la même ligne de code dans les macros pour Zeturf fonctionnait sans problème.

Je me suis qu'a même débrouillé dans ce que j'avais repris sur les macros précédentes que tu m'avais écrit en incrémentant les tables a récupérer de trois en trois, ce qui fait que je récupère l'ensemble des données, par contre la macro récupère l'ensemble des données des jours antérieurs aussi, mais bon c'est pas grave je supprime ce qui m'intéresse pas pour la journée concernée.

Encore une fois tu m'as beaucoup aidé en m'indiquant qu'il fallait incrémenter de 3 en 3 les numeros de tables à récupérer et ca je ne l'aurai certainement pas trouvé tout seul car je ne savais pas que l'on pouvait récupérer X tables sur la même ligne de code.

Je vais mettre à profit tout ce que j'ai appris et découvert grâce à toi pour tenté de récupérer d'autres données sur d'autres sites et cette fois même si j'y arrive pas, promis je t'embêterai plus.

Ah si !!!!!!!!!!!! dès que je suis au point, je ne manquerai pas de t'envoyer le résultat de mes trouvailles au niveau stratégie et de te faire à mon tour bénéficier de mes modestes compétences en matière de turf

Grand merci pour ton aide, ta gentillesse et ta disponibilté

Cordialement
JC
Hors Ligne
 Rapport   Haut 

Récuperation données web
#44
jc24
Régulier XLPages

Inscription: 06/09/2010

Messages: 58

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 08-10-2010 19h38

Bonjour Didier, bonjour à tous,

Je sais .......... je suis pénible, mais je cumule les lacunes et la malchance alors que faire si ce n'est en désespoir de cause solliciter à nouveau votre aide.

Didier tu m'avais écrit un petit programme qui me rendait de biens grands services qui me convenait parfaitement (recup données site zeturf), hélas trois fois hélas, le site en question a dû sur injonction d'un autre opérateur cesser de données les cotes PMU. J'ai cherché sur le web, quel site pourrait palier à ce manque qui rend obsolète mon fichier excel. Après avoir trouvé ce site, je m'attèle à essayer de modifier le code pour éviter de revenir à la charge ici et même si j'arrive a me connecter sur ce site après avoir modifier quelques lignes de code, je suis confronté à deux problèmes, le 1er il récupère en plus des données de la date du jour les données de je ne sais combien de jours en arrière, et le 2eme problème c'est qu'il récupère pour toutes les journées que la 3e course, j'ai beau m'acharner dessus rien n'y fait, (ci joint le code modifié). Je vous sollicite donc pour avoir de l'aide pour comprendre le pourquoi du comment.
Grand merci par avance à ceux qui se pencheront sur mon problème
Cordialement

'---------------------------------------------------------------------------------------
' Auteur    : Didier FOURGEOT (myDearFriend!)  -  www.mdf-xlpages.com
' Date      : 14/09/2010
' Sujet     : Récup données Web ZEturf.fr
'---------------------------------------------------------------------------------------
Sub TraitementCotes()
Dim IE As InternetExplorer
Dim IEDoc As HTMLDocument
Dim Col As New Collection
Dim F As Worksheet
Dim T As String
Dim L As Long
Const vURL As String = "http://www.turf-fr.com/cotes-pmu/"
    'Creation nouvelle feuille de stockage
    T = Format(Date, "dd-mm-yyyy")
    On Error Resume Next
    Set F = Sheets(T)
    If F Is Nothing Then
        Set F = Sheets(T & " ®")
    End If
    On Error GoTo 0
    If F Is Nothing Then
        Sheets("Modèle").Copy After:=Sheets(1)
        ActiveSheet.Name = T & " ®"
    Else
        MsgBox "La feuille '" & T & "' existe déjà !" & vbLf & vbLf & "Supprimez l'ancienne feuille (ou renommez-là), puis réessayez...  ", vbOKOnly + vbInformation, "myDearFriend!  -  www.mdf-xlpages.com"
        Exit Sub
    End If
    'TRAITEMENT
    Application.ScreenUpdating = False
    'Crée une instance d'IE invisible
    Set IE = CreateObject("internetExplorer.Application")
    IE.Visible = False
    'Ouvre la page Web
    IE.Navigate vURL
    Do Until IE.readyState = READYSTATE_COMPLETE
        DoEvents
    Loop
    'Récupère la liste de tous les liens intéressants (sans doublon)
    Set IEDoc = IE.Document
    On Error Resume Next
    For L = 0 To IEDoc.Links.Length - 1
        T = IEDoc.Links(L)
        If T Like vURL & "?*" Then
            Col.Add T, T
        End If
    Next L
    On Error GoTo 0
    'MAJ des données
    For L = 1 To Col.Count
        T = Col(L)
        Application.StatusBar = T
        If Len(T) - Len(Replace(T, "/", "")) > 1 Then
            T = Mid(T, Len(vURL) + 1)
            SepareTitre T
            RecupCotes Col(L)
        Else
            T = Mid(T, InStrRev(T, "/") + 1)
            SepareTitre T
        End If
    Next L
    IE.Quit
    'Finition mise en page
    Columns("A:I").EntireColumn.AutoFit
    Range(Cells(4, 3), Cells(DernCell.Row, 9)).HorizontalAlignment = xlRight
    Application.ScreenUpdating = True
    Application.StatusBar = False
    Beep
End Sub

Function DernCell() As Range
    With ActiveSheet
        Set DernCell = .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0)
    End With
End Function

Sub SepareTitre(T As String)
Dim Plage As Range
    Set Plage = DernCell.Resize(5, 9)
    Plage.ClearContents
    Set Plage = Plage.Resize(1, 9)
    With DernCell.Resize(1, 9)
        With .Interior
            .ColorIndex = 15
            .Pattern = xlSolid
        End With
        .HorizontalAlignment = xlHAlignLeft
        .VerticalAlignment = xlVAlignCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
        With .Font
            .Bold = Not InStr(1, T, "/") > 5
            .Name = "Arial Unicode MS"
            .Size = IIf(InStr(1, T, "/"), 9, 12)
            .Strikethrough = False
            .Superscript = False
            .Subscript = False
            .OutlineFont = False
            .Shadow = False
            .Underline = xlUnderlineStyleNone
            .ColorIndex = xlAutomatic
        End With
        .Range("B1").Value = T
    End With
End Sub

Sub RecupCotes(vURL As String)
Dim R As Range
    Set R = DernCell.Offset(1, 0)
    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 = "10"
        .WebFormatting = xlWebFormattingRTF
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = True
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
        .Delete
    End With
    'Efface l'entête
   
End Sub
 

Hors Ligne
 Rapport   Haut 

Re: Regrouper les données Zeturf
#45
jc24
Régulier XLPages

Inscription: 06/09/2010

Messages: 58

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 29-09-2010 10h06
Bonjour Didier,

Encore une fois mille merci pour ton aide et ta disponibilité, une fois de plus les nouvelles macros correspondent exactement à ce que je voulais.
Concernant la chronologie des éléments, peut importe que je récupère les infos une fois l'arrivée connue, ces fichiers me servent à me constituer une solide base de données. Comme je travaille je ne peux récupérer les infos que le soir. Mais quand je serais prêt à me lancer, ce problème ne se posera pas puisque j'aurai la possibilité de voir en direct les infos dont j'ai besoin sur le site et je pourrai ainsi appliquer ma stratégie sur la base des infos que j'aurais collecté ultérieurement.
De plus je pense avoir trouvé une parade (je vais programmer ca ce soir) pour tout récupérer le jour même (côtes, arrivées, rapports et pronos).
Si mes modestes capacités en VBA me permettent de résoudre ce problème de posteriori je ne manquerai pas d'indiquer sur le forum la nouvelle macro, afin que tous ceux qui sont intéressés puissent en profiter.

Grand merci pour ton aide et grâce à toi, j'ai plus progressé en VBA en 3 semaines qu'en 2 ans, tant les macros que tu as réalisées sont didactiques et facilement compréhensibles

Cordialement
JC


(et je n'oublie pas tes 5% lol)
Hors Ligne
 Rapport   Haut 

Regrouper les données Zeturf
#46
jc24
Régulier XLPages

Inscription: 06/09/2010

Messages: 58

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 28-09-2010 13h26
Bonjour Didier, bonjour à tous,

J'ai mis mon silence à profit pour potasser et j'espère progresser dans la programmation VBA, je suis pas trop mécontent e moi puisque grâce à toi, Didier, j'ai réussi en prenant exemple sur ton code a récupérer d'autres données sur le site Zeturf, mais j'arrive pas à faire figurer toutes les données sur la même page, en effet je récupére les cotes et les rapports sur un fichier (celui que tu m'as créé, que j'appelle fichier 1) et je récupére les autres données sur un autre fichier, le problème se situe dans la mise en forme de ce dernier fichier puisque si il me récupére bien les données voulues  la mise en page ne correspond pas a celle du 1er fichier (voir PJ1). L'idéal serait qu'un même fichier récupère les 3 données (côtes, rapports et pronostic). Je joins le code du 2e fichier.
Sub TraitementProno()
Dim IE As InternetExplorer
Dim IEDoc As HTMLDocument
Dim Col As New Collection
Dim F As Worksheet
Dim T As String
Dim L As Long
Const vURL As String = "http://www.zeturf.fr/fr/programme/"
    'Creation nouvelle feuille de stockage
    T = Format(Date, "dd-mm-yyyy")
    On Error Resume Next
    Set F = Sheets(T)
    If F Is Nothing Then
        Set F = Sheets(T & " ®")
    End If
    On Error GoTo 0
    If F Is Nothing Then
        Sheets("Modèle").Copy After:=Sheets(1)
        ActiveSheet.Name = T & " ®"
    Else
        MsgBox "La feuille '" & T & "' existe déjà !" & vbLf & vbLf & "Supprimez l'ancienne feuille (ou renommez-là), puis réessayez...  ", vbOKOnly + vbInformation, "myDearFriend!  -  www.mdf-xlpages.com"
        Exit Sub
    End If
    'TRAITEMENT
    Application.ScreenUpdating = False
    'Crée une instance d'IE invisible
    Set IE = CreateObject("internetExplorer.Application")
    IE.Visible = False
    'Ouvre la page Web
    IE.Navigate vURL
    Do Until IE.readyState = READYSTATE_COMPLETE
        DoEvents
    Loop
    'Récupère la liste de tous les liens intéressants (sans doublon)
    Set IEDoc = IE.Document
    On Error Resume Next
    For L = 0 To IEDoc.Links.Length - 1
        T = IEDoc.Links(L)
        If T Like vURL & "?*" Then
            Col.Add T, T
        End If
    Next L
    On Error GoTo 0
    'MAJ des données
    For L = 1 To Col.Count
        T = Col(L)
        Application.StatusBar = T
        If Len(T) - Len(Replace(T, "/", "")) > 5 Then
            T = Mid(T, Len(vURL) + 1)
            SepareTitre T
            RecupProno Col(L)
        Else
            T = Mid(T, InStrRev(T, "/") + 1)
            SepareTitre T
        End If
    Next L
    IE.Quit
    'Finition mise en page
    Columns("A:I").EntireColumn.AutoFit
    Range(Cells(1, 3), Cells(DernCell.Row, 9)).HorizontalAlignment = xlRight
    Application.ScreenUpdating = True
    Application.StatusBar = False
    Beep
End Sub

Function DernCell() As Range
    With ActiveSheet
        Set DernCell = .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0)
    End With
End Function

Sub SepareTitre(T As String)
Dim Plage As Range
    Set Plage = DernCell.Resize(1, 9)
    Plage.ClearContents
    Set Plage = Plage.Resize(1, 9)
    With DernCell.Resize(1, 9)
        With .Interior
            .ColorIndex = 15
            .Pattern = xlSolid
        End With
        .HorizontalAlignment = xlHAlignLeft
        .VerticalAlignment = xlVAlignCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
        With .Font
            .Bold = Not InStr(1, T, "/") > 0
            .Name = "Arial Unicode MS"
            .Size = IIf(InStr(1, T, "/"), 9, 12)
            .Strikethrough = False
            .Superscript = False
            .Subscript = False
            .OutlineFont = False
            .Shadow = False
            .Underline = xlUnderlineStyleNone
            .ColorIndex = xlAutomatic
        End With
        .Range("B1").Value = T
    End With
End Sub

Sub RecupProno(vURL As String)
Dim R As Range
    Set R = DernCell.Offset(1, 0)
    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 = "5"
        .WebFormatting = xlWebFormattingRTF
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = True
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
        .Delete
    End With
   
End Sub
 
J'ai beau bidouillé je n'arrive pas à faire correspondre les données en copiant les données du fichier 2 sur le fichier 1

Merci de votre aide
Cordialement
Pièce jointe:
zip Classeur1.zip   [ Taille: 12.43 Ko - Téléchargements: 604 ]
Hors Ligne
 Rapport   Haut 

Re: Récupération archives sur le site zeturf.fr
#47
jc24
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: calcul trés lent
#48
jc24
Régulier XLPages

Inscription: 06/09/2010

Messages: 58

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

Peux tu nous donner plus de précisions, car difficile de te conseiller ou de t'aider en ayant que le poids de ton classeur et ta version excel.

Qui y a t'il dedans ? des formules, des références à d'autres classeurs ? des mises en formes conditionnelles ?

A te lire

Cordialement
Hors Ligne
 Rapport   Haut 

Re: Récupération archives sur le site zeturf.fr
#49
jc24
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 

Récupération archives sur le site zeturf.fr
#50
jc24
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: 1295 ]
zip 1bis.zip   [ Taille: 27.37 Ko - Téléchargements: 899 ]
zip 2.zip   [ Taille: 63.42 Ko - Téléchargements: 872 ]
zip 3.zip   [ Taille: 75.89 Ko - Téléchargements: 1248 ]
Hors Ligne
 Rapport   Haut 

« 1 2 3 4 5 6 »