Taille du fichier en exponentiel suite requete puis optimisation

**patricktoulon** · 23/06/2015, 14h30

dans ce cas la il va te falloir remanier ton fichier de départ par rapport a tout ce que tu demande

en effet pour placer le nom des courses sans parler des z234 et z345 etc..... la grille ne correspond plus a ta demande initiale

sinon pour moi avant de mettre en pratique ma stratégie de code pour la MFC externe au sheets j'ai bien réussi a mettre tout dans le fichier tel quel mais pour la MFC il faut revoir la disposition des cellules

enfin je vois quand même que je n'arriverais pas a avoir ton secret de pronostique tant pis

**Sebphyto** · 23/06/2015, 20h15

pour placer le nom des courses sans parler des z234 et z345 etc

Pourquoi parles-tu du noms de courses?
Moi c'était juste le nom de hippodrome

mais pour la MFC il faut revoir la disposition des cellules

Pourquoi?

enfin je vois quand même que je n'arriverais pas a avoir ton secret de pronostique tant pis

, bientôt ils seront dispo sur mon blog, et pour toi ils seront gratuit, vu l'énergie que tu dépenses pour moi...

Re,

Bon j'avance de mon côté, pas grand chose mais bon

Le calendrier c'est bon plus de date en dur

et pour le saut de ligne entre chaque récup, c'est bon également....

Bon il me reste pour remplacer le point par la virgule dans les récup sans qu'il m'insère des nouvelles colonnes

Bonne soirée

Seb

**patricktoulon** · 23/06/2015, 20h52

mai non je t'ai dis que j'ai changé de stratégie en terme de code j'ai revu la fonction
maintenant ce sont bien des numérique qui son retournés
la strategie pour le saut de par une autre méthode aussi
il y a les partants et les courses aussi ainsi que le z234
mais la ligne est fausse quand il n'y a pas de couple ordre un petit detail réglé sous peu

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
Function recup_donnéees(reunion)
    Dim arrivée As String, cel As Range
 Set cel = Sheets("Réunion" & reunion + 1).Range("o" & Rows.Count).End(xlUp).Offset(2, -14)
  cel.Value = madate
 For col = 2 To 15
 
      simple = "": couplé = "": code = "": arrive = "": Z_234 = "": co = ""
        If tablo_lien(reunion, col) <> "" Then
              cel.Offset(col - 1, 3) = tabP(col - 1, 0)
    With CreateObject("htmlfile")
                .write recupe_html(tablo_lien(reunion, col))
                '*************************************************************************************************************************
                ' récupération de l'arrivéee et transformation en code html (table)
                Set debut = .getElementsByTagName("p")
                For e = 1 To debut.Length - 1
                    arrive = ""
                    If debut(e).className = "paragraph" Then
                        p = p + 1
                        tabarr = Split(debut(e).Children(1).innertext, "-")
                        For Z = 0 To 4    'ubound(tabarr)
                            arrive = Trim(arrive) & " " & tabarr(Z)
                        Next
                        arrive = "<TD class= arrivée>" & Replace(arrive, "  ", "</TD><TD class= arrivée>") & "</TD>"
                        Exit For
                    End If
                Next
                'Debug.Print arrive
                'récupération de la dicipline
                Set element = .getElementsByTagName("p")
                For Each elems In element
                    If elems.className = "justify" Then dicp = Split(elems.innertext, " ")(0)
                Next
                'Debug.Print dicp
                Ldate = "<TD>" & madate & "</TD>"
 
 
                'récuprecaration du type de course
                Set mestagA = .getElementsByTagName("a")
                For Each elem In mestagA
                If elem.className = "pill" Then Tc = elem.innertext
                Next
                Debug.Print Tc
 
 
                '************************************************************************************************************************
                'SG  SP1 SP2 SP3 CG  CP1 CP2 CP3 Zec Trio    ZE4
 
                'récupération des tables (simple zecouillon,etc....)
                Set mesdivs = .getElementsByTagName("div")
                For Each elem In mesdivs
                    If elem.className = "bigpad center" Then    'on recupére les div "bigpad center" les tableaux html sont dedans
                        Select Case elem.Children(0).innertext
                        Case "Simple"
                            Set matable = elem.getElementsByTagName("TABLE")(0)
                            Set SP = matable.getElementsByTagName("b")
                            For nbSP = 0 To SP.Length - 1
                                simple = simple & "<TD>" & Val(SP(nbSP).innertext) & "</TD>"
                            Next
                             'Debug.Print simple
                        Case "Jumelé"
                            Set matable = elem.getElementsByTagName("TABLE")(0)
                            Set CP = matable.getElementsByTagName("b")
                            For nbC = 0 To CP.Length - 1
                                couplé = couplé & "<TD>" & Val(CP(nbC).innertext) & "</TD>"
                            Next
                             'Debug.Print couplé
                        Case "ZE couillon"
                            ZC = "<TD>" & Val(elem.getElementsByTagName("b")(0).innertext) & "</TD>"
                            'Debug.Print ZC
                        Case "Trio"
                            trio = "<TD>" & Val(elem.getElementsByTagName("b")(0).innertext) & "</TD>"
                            'Debug.Print trio
                        Case "ZE 4"
                            ze4 = "<TD>" & Val(elem.getElementsByTagName("b")(0).innertext) & "</TD>"
                            'Debug.Print ze4
                        Case "Jumelé ordre"
                            co = "<TD>" & Val(elem.getElementsByTagName("b")(0).innertext) & "</TD>"
                            'Debug.Print ze4
 
                        Case "ZE 234"
                            Set matable = elem.getElementsByTagName("TABLE")(0)
                            Set z234 = matable.getElementsByTagName("b")
                            For nbC = 0 To z234.Length - 1
                                Z_234 = Z_234 & "<TD>" & Val(z234(nbC).innertext) & "</TD>"
                            Next
                            ' Debug.Print Z_234
                        End Select
                    End If
                Next
                '***************************************************************************************************************************
 
                .body.innerHTML = "<TABLE><TR>" & arrive & simple & couplé & co & ZC & trio & ze4 & Z_234 & "</TR></TABLE>"
                For Each elemtd In .all
                    If elemtd.tagName = "TD" Then
                        With elemtd
                            .Style.Border = 1 & "px solid #000000 "
                             .Style.textAlign = "center"
                            If elemtd.className = "arrivée" Then
                                .Style.fontWeight = "bold"
                                .Style.fontFamily = "arial"
                            End If
                        End With
                    End If
                Next
                If .parentWindow.clipboardData.setData("Text", .body.innerHTML) Then
                    Application.ScreenUpdating = False
                    With Sheets("Réunion" & reunion + 1)
                        .Activate
                         cel.Offset(col - 1, 1) = dicp
                        cel.Offset(col - 1, 2) = Tc
                        cel.Offset(col - 1, 14).Select
                        .Paste
                    End With
                    .parentWindow.clipboardData.clearData "Text"
                End If
                'Debug.Print .body.innerHTML
                '.body.innerHTML = ""
            End With
        End If
        'Debug.Print "***********************************************"
    Next
 
 
End Function

**Sebphyto** · 23/06/2015, 21h06

D'accord,

Ceci dit cela m'a permi de rentrer vraiment danston code et de voir le fonctionnement un peu plus en profondeur, donc pour moi ça me fait avancer

ce sont bien des numérique qui son retournés

Parfait

la stratégie pour le saut de par une autre méthode aussi
il y a les partants et les courses aussi ainsi que le z234
mais la ligne est fausse quand il n'y a pas de couple ordre un petit détail réglé sous peu

Je t'avouerai que je n'envisageais pas que cela serai si compliqué (pour moi).

Merci encore

**patricktoulon** · 23/06/2015, 21h06

voila un apercu
Pièce jointe 181376

certainement moins compliqué que de décortiqué le resultat d'un querytable dans un shhets

**Sebphyto** · 23/06/2015, 21h17

J'ai un souci ici:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 cel.Offset(col - 1, 3) = tabP(col - 1, 0)

sur tabP: sub ou function non défini

Par contre sur ton image en ligne 10 colonne A, la date se trouve bien décalée d'un ligne mais le reste de 2, Est-ce qu'il serait possible d'aligner la date avec le reste en ne sautant toujours qu'une ligne?

Je pensais à une chose, l'hippodrome faudrait qu'il soit placé sous la date

certainement moins compliqué que de décortiqué le resultat d'un querytable dans une sheets

Ouais c clair

**patricktoulon** · 23/06/2015, 22h22

comme visiblement tu regrette amèrement le temps ou tu farfouillais dans le resultat d'un querytable

je te propose juste pour le fun de tester cette macro dans un fichier vierge elle associe ma methode de requete avec l'object"htmlfile" et la possibilité de farfouiller dans le sheet

mais c'est juste pour le fun hein!!!!! on est bien d'accords

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub testypersimple()
    url = "http://www.zeturf.fr/fr/resultats-et-rapports/course?id=158665"
    With CreateObject("htmlfile")
        .write recupe_html(url)
        Set mesdivs = .getElementsByTagName("div")
        For Each elem In mesdivs
            If elem.className = "bigpad center" Then    'on recupére les div "bigpad center" les tableaux html sont dedans
                Select Case elem.Children(0).innerText
                Case "Simple", "Jumelé", "ZE couillon", "Trio", "ZE 4", "Jumelé ordre", "ZE 234"
                     Set matable = elem.getElementsByTagName("TABLE")(0)
                    texte = texte & "<BR>" & elem.Children(0).innerText & matable.outerhtml
                End Select
            End If
        Next
    .body.innerHTML = texte
    For Each elem In .all
    If elem.tagName = "td" Then elem.innerHTML = Val(elem.innerText)
    If elem.tagName = "IMG" Then elem.ParentNode.innerHTML = ""
     If elem.tagName = "B" Then elem.innerText = Val(elem.innerText)
     Next
    Debug.Print .body.innerHTML
    .body.innerHTML = Replace(.body.innerHTML, "-", "_")
    If .parentWindow.clipboardData.setData("Text", .body.innerHTML) Then
                    Application.ScreenUpdating = False
                    With Sheets(Sheets.Count)
                        .Activate
                        Cells(1, 1).Select
                        .Paste
                    End With
                    .parentWindow.clipboardData.clearData "Text"
                End If
 
   End With
 
    End Sub

**Sebphyto** · 23/06/2015, 22h30

ouais ouais, j'apprécie la blague

mais c'est juste pour le fun hein!!!!!

T'inquiètes j'ai bien compris

"Quiq aime bien châtie bien", c'est ce qu'on dit....

Et pour ça pourquoi il me sort ce message sur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 tabP

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cel.Offset(col - 1, 3) = tabP(col - 1, 0)

sur tabP: sub ou function non défini

Sinon le résultat de ton code ressemble bien évidemment à du query

Seb

**patricktoulon** · 23/06/2015, 22h45

re

Sinon le résultat de ton code ressemble bien évidemment à du query

la c'est toi qui me taquine

non ca n'a rien a voir le retour est strictement ce qui a été demandé (PAS LE RESTE DE LA PAGE WEB!!!)

l'erreur du tabp est due au fait que la encore le nombre partant n'est pas tout au fait au même endroit dans les lien 2
ce qui engendre une erreur forcement puisque je redim tabp par le length de la collection
on peut pas le récupérer ailleurs celui la ???

**Sebphyto** · 24/06/2015, 08h59

non ca n'a rien a voir le retour est strictement ce qui a été demandé (PAS LE RESTE DE LA PAGE WEB!!!)

Oui, évidemment au visuel bien sûr

on peut pas le récupérer ailleurs celui la ???

Oui peut-être, en fait cela revient à faire comme je l'ai fait dans mon fichier, c de compter dans le tableau (ci-dessous) le nombre de partants. Sinon ailleurs, il n'y a rien.
Nom : Capture.JPG
Affichages : 372
Taille : 66,7 Ko

Nom : Capture.JPG
Affichages : 372
Taille : 66,7 Ko

voici un lien, il faut cliquer sur "Parier"
(((ICI)))

Seb

**patricktoulon** · 24/06/2015, 10h18

Bonjour
oui ca je l'avais vu mais ca impliquerait le me nombre de requête en plus sur la page parier
et ca commence a faire pas mal de requêtes déjà non ?

je vais m'arranger autrement je crois que j'ai mon idée pour me masser d'une variable tableau

voila quelque erreur corrigées et un panneau d'accueil

dans le panneau d'accueil tu a
1 calendrier
4 optionbutton
tu choisi d'abords une date et tu clique sur la réunion que tu veux
aperçu du panneau d'accueil
Pièce jointe 181420

aperçu du résultat dans le sheets de la réunion que tu a choisi
Pièce jointe 181422

fichier en piece jointe
edit:
j'oubliais !!!! plus de variable "tabp" tout est récupéré dans les url

**Sebphyto** · 24/06/2015, 13h32

Présentation très bonne,
Par contre impossible de sélectionner une date???
où alors il y a un truc que tu ne m'as pas dit?

Edit: j'ai pas de code associé au calendrier?
J'ai bien les optBut en feuille1 avec le code
Seb

**patricktoulon** · 24/06/2015, 13h44

il n'y a pas de code pour le calendrier

se sont les optb qui récupère sa valeur (date)

tu n'a qu'a sélectionner le mois, l'année,le jour
ensuite tu click sur la réunion que tu veux
c'st tout

**Sebphyto** · 24/06/2015, 13h46

Oui d'accord avec toi, je veux bien mais pas possible j'ai juste une croix de déplacement sur le calendrier et je ne suis pas en mode création.

**patricktoulon** · 24/06/2015, 15h44

regarde si il ne faut pas ajouter une référence voir même supprimer le calendrier et en mettre un autre
selon la version office les calendar sont pas les même

**Sebphyto** · 24/06/2015, 21h06

Envoyé par patricktoulon

regarde si il ne faut pas ajouter une référence voir même supprimer le calendrier et en mettre un autre
selon la version office les calendar sont pas les même

J' ai changé par un "MonthView", car avec "Calendar" rien à faire, je peux pas cliquer dessus....

Sinon cela ne fonctionne toujours pas chez moi????

Pour les optBut, j'ai beau cliquer et recliquer, ça ne lance rien, pppppffffffff......

Voici comment j'ai changé avec MonthView:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
MonthView1.Value = madate
End Sub
 
Private Sub OptionButton1_Change()
MsgBox OptionButton
End Sub
 
Private Sub OptionButton1_Click()
OptionButton1.Value = False
madate = MonthView1.Value
reunion1 madate
 End Sub
 
Private Sub OptionButton2_Click()
OptionButton2.Value = False
madate = MonthView1.Value
reunion2 madate
End Sub
 
Private Sub OptionButton3_Click()
OptionButton3.Value = False
madate = MonthView1.Value
reunion3 madate
End Sub
 
Private Sub OptionButton4_Click()
OptionButton4.Value = False
madate = MonthView1.Value
reunion4 madate
End Sub

je cherche mais ne vois pas ce qu'il y a

Seb

**patricktoulon** · 25/06/2015, 11h04

re

je vais procéder autrement laisse tomber les calendar et monthview

il faudrait que tu me donne un exemplaire ancien avec au moins 5 ou 6 pronostiques avec ta MFC et la date au moins un sheets

je suis en train de finaliser la stratégie 4

**Sebphyto** · 25/06/2015, 12h49

Salut Patrick,

J'étais sur la conception d'un usf, comme j'avais dans l'ancien fichier....

il faudrait que tu me donne un exemplaire ancien avec au moins 5 ou 6 pronostiques avec ta MFC et la date au moins un sheets

Voici:

plus dispo

La MFC est sur un module
tu as 3 sheets
Tu as les usf si besoin, un de récup et un de saisie prono

Seb

Juste pour info, chez moi tous fonctionnent avec mon usf adapté...

Seb