Discussion :

[neouu]

Bonjour à tous,

au sujet de la discussion :

[Article] Manipulation d'Internet Explorer via VBA


Je suis tout nouveau et je suis arrivé sur ce forum en faisant une recherche liée au sujet de cet article
Je bidouille un peu sur VBA sur excel (je ne suis pas du tout développeur ni informaticien de formation mais je m'intéresse pas mal à tout ce qui touche à l'informatique).
J'ai fait quelques tests mais je n'arrive pas à récupérer les infos que je veux sur une page web. Pourtant l'exemple se rapproche pas mal de celui du lotofoot...
Je vais vous exposer le problème, qui va vous sembler super simple..., mais je tourne un peu en rond, je ne sais pas comment aller chercher mes infos.

Sur cette page: lien je souhaite récupérer les "résultats" de la grille "Loto Foot 15 n° 33". Je mets "résultats" entre guillemets car je souhaite avoir là où il y a des croix ET les croix vertes.

En allant voir dans le code source, on voit qu'il s'agit d'une table dont l'id est "game_866" donc il suffirait de récupérer le contenu de cette table ou plus précisément les chaines "score score1", "score score_check_ok", "score score2", etc. Je n'ai même pas besoin des noms des équipes, juste les numéros à gauche (et encore non car les numéros je peux les mettre directement dans ma feuille excel, pas besoin de les récupérer). Si j'arrive juste à choper les chaines de caractère ça serait parfait!

Est-ce que vous avez une idée comment faire? Car je tourne en rond pourtant ça a l'air simple...

[patricktoulon]

Bonjour neou
en réponses a ta demande sur le post d'un autre CELUI CI en l'occurrence

comme je te l'ai dis dans ta table on peut récupérer que les numéro et noms des équipes
pour le reste il faut utiliser une astuce
celle que j'utilise est la reconstruction totale ou partielle du code html de la table
en l'occurrence ici se sera partielle

voila un exemple fonctionnel pour récupérer ta table
LE RESULTAT PARLE DE LUI MEME

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
'http://www.pronosoft.com/fr/concours/fiche-joueur/rocketman/loto-foot-15/pronos/date-jeu/page-2/
'id=game_866
Sub test()
Columns("A:E").Clear
Dim ReQ As Object, UrL As String
UrL = "http://www.pronosoft.com/fr/concours/fiche-joueur/rocketman/loto-foot-15/pronos/date-jeu/page-2/"
Set ReQ = CreateObject("microsoft.xmlhttp")
ReQ.Open "POST", UrL, False
ReQ.send
'MsgBox ReQ.responsetext
Set fauxdoc = CreateObject("htmlfile")
With fauxdoc
.body.innerhtml = ReQ.responsetext
.write .getelementbyid("game_866").outerhtml
Set tablespan = .getelementsbytagname("SPAN")
For Each element In tablespan
If element.classname Like "*score1" = True Then
'Debug.Print element.ParentNode.innerhtml
Set cel = element.ParentNode
cel.innerhtml = 1
cel.Style.Color = "red"
cel.Style.backgroundcolor = white
cel.Style.Border = 2 & " solid " & "red"
cel.Style.TextAlign = "center"
End If
If element.classname Like "*score2" = True Then
'Debug.Print element.ParentNode.innerhtml
Set cel = element.ParentNode
cel.innerhtml = 2
cel.Style.Color = "red"
cel.Style.backgroundcolor = white
cel.Style.Border = 2 & " solid " & "red"
cel.Style.TextAlign = "center"
End If
 
If element.classname Like "*_check_ok" = True Then
Set cel = element.ParentNode
cel.innerhtml = "X"
cel.Style.Color = "white"
cel.Style.backgroundcolor = "green"
cel.Style.Border = 1 & " solid " & "white"
cel.Style.TextAlign = "center"
End If
 If element.classname Like "*scoreN" = True Then
Set cel = element.ParentNode
cel.innerhtml = "N"
cel.Style.Color = "red"
cel.Style.backgroundcolor = "white"
cel.Style.Border = 1 & " solid " & "red"
cel.Style.TextAlign = "center"
End If
If element.classname Like "*scoreN_ok" = True Then
Set cel = element.ParentNode
cel.innerhtml = "N"
cel.Style.Color = "white"
cel.Style.backgroundcolor = "red"
cel.Style.Border = 1 & " solid " & "white"
cel.Style.TextAlign = "center"
End If
If element.classname Like "*score2_ok" = True Then
Set cel = element.ParentNode
cel.innerhtml = "2"
cel.Style.Color = "white"
cel.Style.backgroundcolor = "red"
cel.Style.Border = 1 & " solid " & "white"
cel.Style.TextAlign = "center"
End If
If element.classname Like "*score2_check" = True Or element.classname Like "*scoreN_check" = True Or element.classname Like "*score1_check" = True Then
Set cel = element.ParentNode
cel.innerhtml = "X"
cel.Style.Color = "black"
cel.Style.backgroundcolor = "white"
cel.Style.Border = 1 & " solid " & "red"
cel.Style.TextAlign = "center"
End If
 
Next
faire = .ParentWindow.clipboardData.SetData("text", .body.innerhtml)
        With Sheets(1)
            Set cel = .Cells(Rows.Count, 1).End(xlUp).Offset(2, 0)
            cel.Select
            .Paste:
        End With
        faire = .ParentWindow.clipboardData.ClearData("text")
Debug.Print .body.innerhtml
End With
End Sub

au plaisir

[neouu]

Super! Merci beaucoup pour la réactivité
Je vais aller tester ça...

EDIT: test concluant J'ai juste remplacé "sheets(1)" dans le dernier "with... end with" par "ActiveSheet" car ça plantait dessus, sinon nickel! Je n'en demandais même pas tant