Excel avec internet explorer

Version imprimable

Bonjour forum,

J'ai un code qui permet de sélectionner, un type de paris ainsi que sa mise, mais j'aimerais qu'il interagisse avec excel pour choisir la bonne case a cocher. Supposons que sur une feuille C3 = 1 et que C4 = 2 ainsi de suite jusque 20 si C3 = 1 alors il mise sur le site en question

Pour l'exemple je vais prendre cette page là

https://www.zeturf.fr/fr/course/2019...s-princes/turf

le code principal

Code:

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
Sub Mise_Zeturf()
    Dim IE As Object, IEDoc As Object
    Dim Boutons As Object, Tables As Object
    Dim I As Integer, J As Integer, Url As String
    Dim LaDate As String, LaReunion As String, LaCourse As String, LePrix As String
 
    If Sheets("Accueil").Range("L2") Then
        LaDate = Format(Sheets("Accueil").Range("L2"), "yyyy-mm-dd")
        LaReunion = Format(Sheets("Accueil").Range("A1"), "General")
        LaCourse = Format(Sheets("Accueil").Range("A2"), "General")
        LePrix = Format(Sheets("Accueil").Range("A3"), "General")
 
    Url = "https://www.zeturf.fr/fr/course/" & LaDate & "/" & LaReunion & LaCourse & "-" & LePrix & "/" & "turf"
 
    Set IE = CreateObject("InternetExplorer.Application")
 
    IE.Visible = True
    IE.Navigate Url
    Do Until IE.ReadyState = 4
        DoEvents
    Loop
 
    Set IEDoc = IE.document
    Set Boutons = IEDoc.getElementsByTagName("button")
    For I = 0 To Boutons.Length - 1
        If Boutons(I).classname = "chk-change-pari paris-arrondi_79x40_2" Then Exit For
    Next I
    Boutons(I).Click
    Boutons(I).Click
 
    Set Boutons = IEDoc.getElementsByTagName("button")
    For I = 0 To Boutons.Length - 1
        If Boutons(I).classname = "montant-plus " Then Exit For
    Next I
    Boutons(I).Click
    Boutons(I).Click
    Boutons(I).Click ' <<< 3 click = 4€
    End If
'IE.Quit
    Set Tables = Nothing
    Set Boutons = Nothing
    Set IEDoc = Nothing
    Set IE = Nothing
 
End Sub

et donc en résultat si C3 = 1 ça devrait donné en image.
https://image.noelshack.com/minis/20...sans-titre.png

Merci a tous pour l'aide apporté

31/07/2019, 09h49
patricktoulon

re

bonjour
bon j'ai un peu regardé et c'est vrai même si on trouve le button on arrive pas a le cliquer même en lui donnant le focus
après pour être honnête je ne vois aucun intérêt a piloter tes paris par vba

car pour piloter tes paris il faut avoir au départ la liste de course/reunion dans un sheets

pourquoi pas un tableau des cotes pour te décider

la on a rien au départ et tu veux lancer des pari sans connaitre le nom du cheval de chaque ligne

et pour finir perso je m'abstiendrais tout court de piloter le pari par vba les pages changent souvent de structure et tu n'est pas a l'abri de faire fumer ta carte bleue surtout vu la manière dont tu t'y prends

je dis ca mais tu fait comme tu veux ;)
mais pour moi ca n'a aucuns sens: vraiment aucun

les site de course de chevaux et vba!!!c'est bien pour récupérer les (listes de courses ,tableau de cheval et cote) pour pouvoir travailler dessus hors connexion
mais ca doit s'arrêter la!!!
31/07/2019, 10h31
muratime

Citation:

Envoyé par patricktoulon

bonjour

les site de course de chevaux et vba!!!c'est bien pour récupérer les (listes de courses ,tableau de cheval et cote) pour pouvoir travailler dessus hors connexion
mais ca doit s'arrêter la!!!

Salut Patrick, oui ça j'ai déjà un fichier, voir plusieurs qui récupère musique du cheval, cote, etc sur le pmu, le site geny, le site turfomania mais on le sait récupérer des infos c'est illégale sauf si le site a donné son accord :-) ce que j'ai fait pour le site pmu, je leur ai écrit un courrier pour avoir l'autorisation et mon fichier excel restait dans un but personnel et non commercial. Pour mon cas présent c'est différent je récupère pas d'info, c'est juste un moyen de miser très vite en peu de temps. Et vu que le site zeturf me suis planté souvent dans la panique ou pas fait gaffe , je joue au dernier moment avant le départ donc voilà. Après le nom du cheval on s'en fou un peu puisque a défaut il a un numéro c'est juste ça qui m’intéresse je joue le numéro.
Ensuite mon fichier excel sur PMU ça fait des années que je l'ai ils ont changer souvent mais comme leur site est toujours basé sur les fichiers json donc ça reste identique.
un exemple de page json PMU facilement importable et plus rapide a importer que n'importe quel autre moyen. La seule chose qui changé une fois c'est le début de l'adresse lol
https://tablette.turfinfo.api.pmu.fr...2/participants

As tu ouvert mon fichier ? Car quand tu clique sur la Réunion ensuite la course et ensuite le bouton macro ça ouvre la bonne page internet du site zeturf et il y a plus qu'a cliquer sur les boutons.

La date j'ai mis en L2 sur feuille Accueil aujourdhui() +1 ce qui donne a chaque fois demain pour faire les test et avoir les boutons cliquable car si la course est couru alors plus de bouton.
Si tu clique sur le fichier R4 et course 1 tu aura cette page internet qui s'ouvre avec le SG selectionné et la mise de 4€ donc c'est cliquable les boutons.
https://www.zeturf.fr/fr/course/2019...bert-viel/turf
31/07/2019, 11h03
patricktoulon

re

en regardant de plus près les JS ET les applet JS il y a bien plusieurs protections anti robot
bon courage pour le forcer
économise toi et laisse tomber cette idée d'automatisation par vba
même si tu arrive a la forcer ce sera toujours bancale
31/07/2019, 11h12
muratime

J'ai édité plus haut

Sinon sur le site PMU oui il y a un anti robot mais pour importer non via le json, il n'y aucun anti robot car j'importe très facilement notamment les cotes toutes les 10 secondes, ça me prend moins d'une seconde.
Surtout que le site pmu est divisé en deux les cotes point de vente et les cotes internet.

Pour le site zeturf pas d'anti robot puisque j'arrive a cliquer sur SP deux fois et a remplir la mise il me manque juste la boucle qui servira a cocher le numéro dans les cases. Comme je l'ai dis si le 1 est affiché en cellule C3 alors il va cocher la case 1 du site avec le fichier que j'ai c'est faisable.

Mais bon comme je te sens pas chaud depuis le début, juste dis moi si t'as pas envie de le faire.

Je met le lien du fichier car trop compliqué a tous détailler dans un post.

https://www.cjoint.com/c/IGElhf0qJUh

et comme bcp de méfie des fichier verolés suffi de le passe à la moulinette ici
https://www.virustotal.com/gui/home/upload

re
pas d'anti robot sur zethurf !!!!!!!!!!!!
a ben ca lors première nouvelle même a l'époque de sebphyto il y en avait déjà :ptdr:

je peux te confirmer qu'il y en a même plusieurs
si tu téléchargeais les js et les regardais avec le bloknote tu comprendrais

non,non,non,non, c'est pas la peine et heureusement d'ailleurs ;)

bref
si tu arrive a Peter la protection
un petit exemple je ne vais pas plus loin car c'est inutile

Code:

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
Sub test()
    Dim Url$, IE As Object, choix
    Dim tablcheval()
    Url = "https://www.zeturf.fr/fr/course/2019-07-31/R1C1-prix-du-parc-des-princes/turf"
    Set IE = CreateObject("internetexplorer.application")
    With IE
        .navigate Url
        Do: DoEvents: Loop While .readystate <> 4
        For Each Elem In .document.body.all
            If Elem.classname = "liste-pari" Then Set listp = Elem: Exit For
        Next
        Set boutp = listp.getelementsbytagname("button")
        For I = 0 To boutp.Length - 1
            texte = texte & "tapez: " & I & "  pour parier en " & Split(boutp(I).Title, ":")(0) & vbCrLf
        Next
        Cells(1).Activate
 
        choix = InputBox(texte, "choisir un type de pari")
        If choix <> "" Then
            boutp(CLng(choix)).Click
            If choix = 0 Then boutp(1).Click    'pour le doubleclick
        Else
            .Quit
            Exit Sub
        End If
        Set Table = .document.getelementbyid("DataTables_Table_0")
        texte = ""
        For Each Elem In Table.all
            If Elem.classname = "even" Or Elem.classname = "odd" Then
                x = x + 1: texte = texte & "tapez " & x & " pour " & Elem.getelementsbytagname("H3")(0).innerhtml & vbCrLf
                ReDim Preserve tablcheval(0 To x): Set tablcheval(x - 1) = Elem
            End If
        Next
        choix = InputBox(texte, "choisir un cheval")
        If choix = "" Then .Quit: Exit Sub
        .Visible = True
        With tablcheval(Val(choix) - 1).getelementsbytagname("button")(0)
            preuve = "avant click " & .outerhtml 'juste pour verifier
            .Focus: .Click
 
        preuve = preuve & vbCrLf & "apres click " & .outerhtml
        End With
    MsgBox preuve & vbCrLf & "apres le click il devrait etre de la classe ""selected"""
 
    End With
    Set IE = Nothing
End Sub

pas mal ton truc :mouarf: mais tu te complique trop la vie enfin pour moi c'est trop long dans ce sens là un truc de ce genre plus rapide t'as deux clique direct rapide. Bon il faudrait une variable pour au lieu de mettre deux fois click mettre un clik avec x2 ou +1 ou je ne sais quoi.
Code:

1 2 3 4 5 6 7 Set IEDoc = IE.document Set Boutons = IEDoc.getElementsByTagName("button") For I = 0 To Boutons.Length - 1 If Boutons(I).classname = "chk-change-pari paris-arrondi_79x40_2" Then Exit For Next I Boutons(I).Click Boutons(I).Click

31/07/2019, 11h45
patricktoulon

re

je l'ai fait comme ca mais effectivement tu peux simplifier si tu a déjà les données avant
ma demo c'est juste pour te montrer que le bouton est bien determiné avec "preuve" mais qu'il n'est pas cliqué
et ca tu n'y pourra absolument rien
tu va pedaler dans le vide je peux te le garantir
et pour info une protection (aucune d'ailleurs) ne peux protéger la page entière il y donc des parties manipulables

mais la on est sur un site d'argent tu comprends bien qu'il faut que ca soit sécuritaire en amont et en aval

je te le répète plus clairement "Abandonne cette idée" c'est pour ton bien
31/07/2019, 11h55
muratime

Merci quand même c'est dommage ça m'aurais arrangé, avant il avait un site mobile ze et sont bcp plus simple a manipuler.
31/07/2019, 12h31
muratime

Oula attend Patrick tu t'es un peu trop vite sous estimé :mouarf: look moi ça en vidéo SG ou SP bon ça ne fonctionne pas mais zecouillon (trouver le 4ème de la course) ou zeshow (trouver le 2ème) cela fonctionne :mouarf:

Sur zeturf le truc pour SG ou SP c'est qu'il faut cliquer deux fois SP pour avoir que SG c'est un peu n'importe quoi mais bon alors que le zeshow ou le zecouillon tu cliques une fois dessus et il est sélectionné, pourquoi cela fonctionnerais avec ZS et ZC mais pas SG ? lol le site est fait de la même manière partout.

Sur la vidéo j'ai choisi course de demain R4C1
https://youtu.be/4ilsR5DuOXw
31/07/2019, 19h32
patricktoulon

re

re
je ne me sous estime pas au contraire vba/html/xml c'est plutôt mon truc

et oui en effet selon le type de pari choisi ca fonctionne

il n'y a aucune raison que ca ne fonctionne pas avec le SP ou SG sauf protection

ce qui prouve bien que comme je disais les protections ne sont pas efficaces a 100%

ce qui rend le chose encore plus bancale
02/08/2019, 23h22
muratime

Salut tous,

Ce qui me turlupine dans ton code, c'est qu'il fonctionne avec quasi tous ce qui est encadré de rouge dans la photo mais pas en bleu. Je ne vois pas pour quelle raison ils iraient mettre des anti-robot pour empêcher de cliquer les cases a cocher après le SG ou le SP, ça n'a aucun sens encore pour empêcher d'importer des données ou se faire aspirer leur site OK. Et je pense que leur protection tel quelle soit est 100% efficace, c'est pas un coup je fonctionne un coup non tu imagines une protection bancal sur des sites de pognon, c'est impensable.

Ensuite qu'on fasse cliquer un robot ou autre sur leur site pour cocher des cases ou des boutons ils s'en foute royale du moment que tu joues, par contre ce que je peu te dire, c'est qu'il ne veulent pas se faire aspirer leur site ou qu'on leur pique leur base de données, si tu te fais gauler gaffe a toi. Même si tu demande une autorisation c'est niet ils sont catégorique la dessus.

https://image.noelshack.com/minis/20...sans-titre.png

De ce que j'ai compris tu passes par le id="DataTables_Table_0" ensuite par soit par la class="odd" ou la class="even" mais pourquoi ne pas faire différemment ?

Comme je le disais si C3 = 1 de ma feuille alors on va chercher le numéro qui correspond, ici ça correspond au data-runner = 1 mais pas seulement dans chaque data-runner ou odd ou even comme tu veux tu as a chaque fois un class = selection pour tous ce qui est encadré de rouge et de bleu de la photo n°1 un class = gagnant et place. Le Gagnant c'est le seul qui m'interesse mais si l'un fonctionne l'autre aussi.

https://image.noelshack.com/minis/20...ans-titre1.png

Bonjour forum,

Maintenant qu'on sait que tous les paris sont cliquable sauf SG ou SP apparemment.

Imaginons que je veuille jouer dans ce cas a zeshow (ZS) le code donnerais ça, si je veux cliquer sur le bouton 1 du premier cheval, ça donnerais quoi ? Evidemment sans des messages box etc etc un truc simple. Merci de votre réponse. Ou merci a patricktoulon s'il veut bien simplifier son code au plus simple.

Code:

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 Bet_Zeturf()
    Dim IE As Object, IEDoc As Object
    Dim Boutons As Object
    Dim I As Integer, Url As String
 
    Url = "https://www.zeturf.fr/fr/course/2019-08-08/R5C8-vichy-soir-prix-europa-bar-bellenaves-prix-de-jaligny/turf"
 
    Set IE = CreateObject("InternetExplorer.Application")
 
    IE.Visible = True
    IE.Navigate Url
    Do Until IE.ReadyState = 4
        DoEvents
    Loop
 
    Set IEDoc = IE.document
    Set Boutons = IEDoc.getElementsByTagName("button")
    For I = 0 To Boutons.Length - 1
        If Boutons(I).classname = "chk-change-pari paris-arrondi_79x40_29" Then Exit For
    Next I
    Boutons(I).Click
 
 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''' CODE manquant
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
 
   'IE.Quit
 
    Set Boutons = Nothing
    Set IEDoc = Nothing
    Set IE = Nothing
 
End Sub

07/08/2019, 11h31
Pierre Fauconnier

Salut.

Es-tu conscient que si demain, ils changent une virgule dans la conception de la page html, le DOM va changer et que tu devras adapter ton code? Pourquoi veux-tu placer tes paris en VBA? Pour en placer plusieurs "en rafale"?
07/08/2019, 11h38
muratime

Citation:

Envoyé par Pierre Fauconnier

Salut.

Es-tu conscient que si demain, ils changent une virgule dans la conception de la page html, le DOM va changer et que tu devras adapter ton code? Pourquoi veux-tu placer tes paris en VBA? Pour en placer plusieurs "en rafale"?

Oui si la page web change je m'adapterais ce n'est pas grave, je joue manuellement donc pas le choix pour l'instant, je fais ça pour pariez rapidement sans me planter (ça m'est déjà arrivé dans la précipitation). Pas forcement en rafale. Car je joue en fonction d'un fichier excel et donc si je dois rapidement jouer le 1 par exemple ou un autre numéro et qu'il me reste 3 secondes pour jouer avant le départ la macro sera toujours plus rapide que moi :mrgreen: le pmu est un peu différent du loto foot ou du loto les mises sont plus engagées a 10 minutes du départ que 1 heure avant.

Je savais qu'il y avait un truc qui cloche dans le code Mr patricktoulon :salo: ça me paraissais louche un anti robot qui empêche de cliquer :evilred: alors qu'il clique tous les autres boutons. :weird:

Voici le code que tu m'as donné d'origine en faite si tu ne choisi pas le bon children c'est sur il va prendre le premier bouton qu'il trouve soit dans la class= selection qui correspond a tous les paris sauf le children 1 qui correspond a gagnant et le children 2 a place. Cela fait des jours que je cherche le truc. :pc:

Voici le code du coup bah il clique sur le SG et coche la case SG et quand j'ai vu que ça a fonctionné j'ai faillie faire une attaque :yaisse3:
Fallait juste changer le children de 0 a 1

Code:

With tablcheval(Val(choix) - 1).getelementsbytagname("button")(1)

Code:

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
Sub test()
    Dim Url$, IE As Object, choix
    Dim tablcheval()
    Url = "https://www.zeturf.fr/fr/course/2019-08-10/R5C6-cagnes-sur-mer-prix-des-impatiens/turf"
    Set IE = CreateObject("internetexplorer.application")
    With IE
        .navigate Url
        Do: DoEvents: Loop While .readystate <> 4
        For Each Elem In .document.body.all
            If Elem.classname = "liste-pari" Then Set listp = Elem: Exit For
        Next
        Set boutp = listp.getelementsbytagname("button")
        For I = 0 To boutp.Length - 1
            texte = texte & "tapez: " & I & "  pour parier en " & Split(boutp(I).Title, ":")(0) & vbCrLf
        Next
        Cells(1).Activate
 
        choix = InputBox(texte, "choisir un type de pari")
        If choix <> "" Then
            boutp(CLng(choix)).Click
            If choix = 0 Then boutp(1).Click    'pour le doubleclick
        Else
            .Quit
            Exit Sub
        End If
        Set Table = .document.getelementbyid("DataTables_Table_0")
        texte = ""
        For Each Elem In Table.all
            If Elem.classname = "even" Or Elem.classname = "odd" Then
                x = x + 1: texte = texte & "tapez " & x & " pour " & Elem.getelementsbytagname("H3")(0).innerhtml & vbCrLf
                ReDim Preserve tablcheval(0 To x): Set tablcheval(x - 1) = Elem
            End If
        Next
        choix = InputBox(texte, "choisir un cheval")
        If choix = "" Then .Quit: Exit Sub
        .Visible = True
        With tablcheval(Val(choix) - 1).getelementsbytagname("button")(1)
            preuve = "avant click " & .outerhtml 'juste pour verifier
            .Focus: .Click
 
        preuve = preuve & vbCrLf & "apres click " & .outerhtml
        End With
    MsgBox preuve & vbCrLf & "apres le click il devrait etre de la classe ""selected"""
 
    End With
    Set IE = Nothing
End Sub

Donc maintenant qu'on sait que rien n'empêche de cliquer sur les boutons je voudrais épurer ce code, supprimer toutes ces MsgBox etc ne garder que le principal en choisissant le cheval numéro 7 par exemple sans les autres. Cela sera déjà bien :help:

:salut: forum, :mouarf:

J'ai eu une illumination, ça vaut ce que ça vaut mais ça fait le taf LOCO. FUCK LES ANTI ROBOTS dixit mr patricktoulon :mrgreen: va me détester :mrgreen:

Voici le code j'aurais préférer par les noms d'id ou de class mais bon.:ange: le children (4) ça coche le 5 SG , children (0) le 1, et ainsi de suite je mettrais une macro pour chaque cheval.
Ensuite il y aurait deux bricoles a peu être modifier, dans un premier temps les clicks si je veux miser 100€ je ne vais pas mettre 99 "Boutons(I).Click" a voir pour une variable.
Et 2ème chose la mise, y a t'il un moyen de changer la valeur dans la pseudo textbox, les deux vont de paire de toute manière.

Code:

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
Option Explicit
 
#If VBA7 And Win64 Then
    Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#Else
    Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If
 
Sub Mise_Zeturf()
    Dim IE As Object, IEDoc As Object
    Dim Boutons As Object, Tables As Object
    Dim I As Integer, J As Integer, Url As String
    Dim LaDate As String, LaReunion As String, LaCourse As String, LePrix As String
    Dim GenericElem As HTMLGenericElement
 
 
 
    Url = "https://www.zeturf.fr/fr/course/2019-08-13/R5C7-cabourg-prix-des-godeties/turf"
 
    Set IE = CreateObject("InternetExplorer.Application")
 
    IE.Visible = True
    IE.Navigate Url
    Do Until IE.ReadyState = 4
        DoEvents
    Loop
 
    Set IEDoc = IE.document
    Set Boutons = IEDoc.getElementsByTagName("button")
    For I = 0 To Boutons.Length - 1
        If Boutons(I).classname = "chk-change-pari paris-arrondi_79x40_2" Then Exit For
    Next I
    Boutons(I).Click
 
 
 
 
    Set GenericElem = IEDoc.all("DataTables_Table_0").Children(1).Children(4).Children(16).Children(0)
    GenericElem.Click
 
 
 
 
    Set Boutons = IEDoc.getElementsByTagName("button")
    For I = 0 To Boutons.Length - 1
        If Boutons(I).classname = "montant-plus " Then Exit For
    Next I
    Boutons(I).Click
    Boutons(I).Click
    Boutons(I).Click ' <<< 3 click = 4€
 
'IE.Quit
    Set Tables = Nothing
    Set Boutons = Nothing
    Set IEDoc = Nothing
    Set IE = Nothing
 
End Sub

J'avance a petit pas, j'ai remplacé le bouton "montant-plus" pour changer directement la valeur dans le champs texte de type input seulement il n'a pas le onchange et donc il se trouve dans un js, doit y avoir un soucis au niveau du nom de la fonction du js permettant le onchange. On voit bien la valeur changer dans la texte box mais quand on regarde juste en bas la somme on voit bien que c'est pas bon. Ensuite il y a la solution un coup de bouton plus et moins et ça le fait mais c'est moins esthétique lol

Voici le morceau de code a remplacer dans celui du haut. Et j'aimerais savoir comment remplacer la valeur de 2 en désignant une cellule d'une feuil1 par exemple A3= 2 donc Value = "2" que je puisse changer la valeur sur la cellule et non pas dans le code. Merci de vôtre aide.:mrgreen: Je préfère le plan A

PLAN A non fonctionnel
Code:

1 2 3 4 5 6 7 Dim inputfield As Object Set inputfield = IE.document.getElementsByClassName("montant") If inputfield.Length > 0 Then inputfield(0).Value = "2" End If IEDoc.parentWindow.Window.execScript "combinaison('" & inputfield.Value & "');" '<<<< ça coince ici
PLAN B fonctionnel
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Dim inputfield As Object Set inputfield = IE.document.getElementsByClassName("montant") If inputfield.Length > 0 Then inputfield(0).Value = "2" End If Set Boutons = IEDoc.getElementsByTagName("button") For I = 0 To Boutons.Length - 1 If Boutons(I).classname = "montant-plus " Then Exit For Next I Boutons(I).Click Set Boutons = IEDoc.getElementsByTagName("button") For I = 0 To Boutons.Length - 1 If Boutons(I).classname = "montant-moins " Then Exit For Next I Boutons(I).Click

1 pièce(s) jointe(s)

Je vais clore le sujet, mon fichier fonctionne, il n'est pas parfait, il me manque toujours ceci, j'ai essayé plein de variante avec des noms dans le js du site. Donc obligé de prendre le plan B. Dans le futur si quelqu'un à la soluce.
Code:

1 2 3 4 5 IEDoc.parentWindow.Window.execScript "combinaison('" & inputfield.Value & "');" IEDoc.parentWindow.Window.execScript "combinaison('" & inputfield.Value & "');""script" IEDoc.parentWindow.Window.execScript "keyup('" & inputfield.Value & "');" InputElem.FireEvent "keyup" InputElem.FireEvent "keyup change"
J'ai réussi a mettre ma variable avec ceci. Comme dans la cellule O1 de feuille Reunion 1 je met la somme que je veux jouer.

Citation:

Et j'aimerais savoir comment remplacer la valeur de 2 en désignant une cellule d'une feuil1 par exemple A3= 2 donc Value = "2" que je puisse changer la valeur sur la cellule et non pas dans le code.
Code:

1 2 3 4 5 6 7 8 Dim lamise As String If Sheets("Reunion 1").Range("O1") Then lamise = Sheets("Reunion 1").Range("O1") Set inputfield = IE.document.getElementsByClassName("montant") If inputfield.Length > 0 Then inputfield(0).Value = lamise End If
Et aussi ceci car sur une course de plat ou de trot, il y a une colonne de différence donc le children 3 lui .Children(16) peu varier de 1 d'ou la nécessité de le trouvé par sa class name qui correspond a "gagnant" sur le site.
Code:

1 2 Set GenericElem = IEDoc.all("DataTables_Table_0").Children(1).Children(4).Children(16).Children(0) GenericElem.Click
Et surtout n'oubliez jamais mais alors jamais d'avoir LA GROSSE PATATE.:mouarf::mouarf:

Et je met mon fichier excel qui DÉCHIRE TOUT pour gagner des milliers d'euro au pmu LOCO.:mrgreen:

Citation:
Envoyé par muratime
Je vais clore le sujet, mon fichier fonctionne, il n'est pas parfait, il me manque toujours ceci, j'ai essayé plein de variante avec des noms dans le js du site. Donc obligé de prendre le plan B. Dans le futur si quelqu'un à la soluce.
Code:

1 2 3 4 5 IEDoc.parentWindow.Window.execScript "combinaison('" & inputfield.Value & "');" IEDoc.parentWindow.Window.execScript "combinaison('" & inputfield.Value & "');""script" IEDoc.parentWindow.Window.execScript "keyup('" & inputfield.Value & "');" InputElem.FireEvent "keyup" InputElem.FireEvent "keyup change"
J'ai réussi a mettre ma variable avec ceci. Comme dans la cellule O1 de feuille Reunion 1 je met la somme que je veux jouer.
Code:

1 2 3 4 5 6 7 8 Dim lamise As String If Sheets("Reunion 1").Range("O1") Then lamise = Sheets("Reunion 1").Range("O1") Set inputfield = IE.document.getElementsByClassName("montant") If inputfield.Length > 0 Then inputfield(0).Value = lamise End If
Et aussi ceci car sur une course de plat ou de trot, il y a une colonne de différence donc le children 3 lui .Children(16) peu varier de 1 d'ou la nécessité de le trouvé par sa class name qui correspond a "gagnant" sur le site.
Code:

1 2 Set GenericElem = IEDoc.all("DataTables_Table_0").Children(1).Children(4).Children(16).Children(0) GenericElem.Click
Et surtout n'oubliez jamais mais alors jamais d'avoir LA GROSSE PATATE.:mouarf::mouarf:

Et je met mon fichier excel qui DÉCHIRE TOUT pour gagner des milliers d'euro au pmu LOCO.:mrgreen:
Bonsoir
est-il possible d'avoir le mot de passe de ton fichier please ?