Récuperer les liens "Aujourd'hui" sur le site ZETUF

[nwemba]

Bonjour le forum

Je souhaiterai savoir si il est possible de récupérer les liens des courses "Aujourd'hui" sur la page "http://www.zeturf.fr/fr/programmes-et-pronostics" et de les afficher sur excel. Après plusieurs recherche j'ai trouvé un code qui récupère tous les liens de la page (voir fichier). Merci de votre aide.

 

[nwemba]

Re : Récuperer les liens "Aujourd'hui" sur le site ZETUF

up!!!!!!!!!

 

[Cousinhub]

Re : Récuperer les liens "Aujourd'hui" sur le site ZETUF

Bonsoir,

Avec ce code, tu ne récupères que les réunions (avec les liens validés...)

Par contre, savoir s'ils sont d'aujourd'hui, ou de demain......

M'enfin, c'est un début....

Sub Bouton2_QuandClic()
'nécessite d'activer la référence Microsoft HTML Objects Library
'nécessite d'activer la référence Microsoft Internet Controls
 
Dim IE As New InternetExplorer
Dim x As Integer
Dim Doc As HTMLDocument
Dim Cel As Range

IE.Navigate "http://www.zeturf.fr/fr/programmes-et-pronostics"
Do Until IE.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
 
Set Doc = IE.Document
Columns(1).Clear
For x = 0 To Doc.Links.Length - 1
    If Left(Doc.Links(x), 60) = "http://www.zeturf.fr/fr/programmes-et-pronostics/reunion?id=" Then
        Cells(Rows.Count, 1).End(xlUp)(2) = Doc.Links(x)
    End If
Next
For Each Cel In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    ActiveSheet.Hyperlinks.Add Anchor:=Cel, Address:=Cel
Next Cel
Columns(1).AutoFit
IE.Quit
Set IE = Nothing
End Sub

Bonne soirée

PS, un "up!!!!!!!!!" n'empêche pas un petit bonjour....

 

[nwemba]

Re : Récuperer les liens "Aujourd'hui" sur le site ZETUF

Bonjour

Merci c'est parfait pour le reste je vais essayer de trouver une solution.

PS, désolé pour le "up!!!!!!!!!" seul je m'en souviendrai.