Discussion :

[vad92]

Bonjour
Je souhaite faire un import du site " https://tv-sports.fr/mercredi-23-octobre-2019" , j’arrive parfaitement a prendre le contenue mais je suis bloqué pour prendre une info qui ce trouve en dehors d’une balise






Ou alors récupérer l’info qui se trouve dans l’image a droite ,... mais ca je n’arrive pas

Merci pour votre aide

[Jean-Philippe André]

Salut,

pour des raisons de sécurité, télécharger et a fortiori ouvrir un fichier xlsm n'est pas possible pour beaucoup de membres, aussi il va te falloir nous donner plus de détail.

De quelle image parles-tu ? du logo des clubs ? de l'affiche de la semaine ?

Je ne doute pas que les informations que tu extrais du site se fait en toute légalité.

[vad92]

l'image est celle qui est complètement à droite qui donne la chaine TV ( RMC SPORT - EUROSPORT - Bein....)


Voici le code que j'utilise qui est dans le fichier joint

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
Private Sub CommandButton1_Click()
 
Dim htmlTabResultat As HTMLGenericElement
Dim htmlLigneResultat As HTMLGenericElement
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim HtmlElementStandard As HTMLGenericElement
Dim y As Integer
 
 
y = 1
 'Chargement d'une page Web
   IE.navigate "https://tv-sports.fr/mercredi-23-octobre-2019"
   'Affichage de la fenêtre IE
   IE.Visible = True
   'On attend
   WaitIE IE
   'On pointe le document
   Set IEDoc = IE.document
' balises
Set coll_1 = IEDoc.getElementsByTagName("div")
 
'on boucle
 
For Each cel In coll_1
 
    If cel.className Like "*row grille-item border-top *" Then
 
On Error Resume Next
 
' test 1
 
Sheets("1").Range("a" & y) = cel.Children(0).Children(0).Children(0).innerText '  SPORT
 
Sheets("1").Range("b" & y) = cel.Children(0).Children(0).Children(1).innerText ' CHAMPIONNAT
 
Sheets("1").Range("c" & y) = cel.Children(0).Children(1).Children(0).innerText 'EQUIPE
'''
'''Sheets("1").Range("d" & y) = cel.Children(0).innerText ' CHAINE TV ??????????????
 
Sheets("1").Range("e" & y) = cel.Children(3).Children(0).Children(0).innerText 'direct
 
Sheets("1").Range("f" & y) = cel.Children(3).Children(0).Children(1).innerText 'Heure
 
y = y + 1
 
        End If
 
        Next
    IE.Quit
   Set IE = Nothing
   Set IEDoc = Nothing
 
End Sub

[Jean-Philippe André]

Le logo en question est une img de classe lazy

[vad92]

Excellent merci beaucoup

[mercatog]

Bonsoir

Traiter le texte du html

Code :

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

1
2
        Tb = Split(cel.Children(0).Children(0).innerHTML, "sur ")
        Sheets("1").Range("d" & y) = Tb(UBound(Tb)) ' CHAINE TV