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

nwemba

XLDnaute Nouveau
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.
 

Pièces jointes

  • recup lien internet.xls
    25 KB · Affichages: 98

Cousinhub

XLDnaute Barbatruc
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....

Code:
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....:cool:
 

Discussions similaires

Statistiques des forums

Discussions
312 836
Messages
2 092 633
Membres
105 475
dernier inscrit
ramzi slama