XL 2016 récupération page web

[Guismo33]

Bonjour à tous,

avec une fonction Vba je souhaite récupérer des infos sur une page web.
petit fichier joint.

Merci a tous



Bien à vous

 

[job75]

Bonjour Guismo33, le forum,

Il faut d'abord créer une requête web : menu DONNÉES => Web.

Ensuite ce code actualise la requête et met à jour B2 et B5:J35 :

Private Sub CommandButton1_Click() 'bouton MAJ
Dim i As Variant
With Feuil2 'CodeName
  .Cells.Clear 'RAZ
  .[A1].QueryTable.Refresh BackgroundQuery:=False 'actualise la requête
  i = Application.Match("Journal", .[A:A], 0)
  If IsError(i) Then [B2,B5:J35] = "": Exit Sub
  [B2] = .[A39]
  [B5:J35] = .Cells(i, 1).CurrentRegion.Resize(, 9).Offset(1).Value
End With
End Sub

Fichier joint.

Bonne journée.

 

[Guismo33]

Bonjour,
merci pour cet formule, je vais essayer de la retravailler , car je voulais aussi pouvoir choisir ma date et mois
pour les archives. je reviens vers toi au cas ou, merci encore.

 

[Guismo33]

Bonjour Guismo33, le forum,

Il faut d'abord créer une requête web : menu DONNÉES => Web.

Ensuite ce code actualise la requête et met à jour B2 et B5:J35 :

Private Sub CommandButton1_Click() 'bouton MAJ
Dim i As Variant
With Feuil2 'CodeName
  .Cells.Clear 'RAZ
  .[A1].QueryTable.Refresh BackgroundQuery:=False 'actualise la requête
  i = Application.Match("Journal", .[A:A], 0)
  If IsError(i) Then [B2,B5:J35] = "": Exit Sub
  [B2] = .[A39]
  [B5:J35] = .Cells(i, 1).CurrentRegion.Resize(, 9).Offset(1).Value
End With
End Sub

Fichier joint.

Bonne journée.

Bonjour,
merci pour ton aide, ceci ai pour la course du jour et je n'y suis pas tous les jours,
il y a une branche archives et dans le meme esprit je voudrais pouvoir choisir
ma date et mois et qu'il me donne les pronostiqueurs.
j'ai etudier ton fichier mais je ne vois pas comment faire, j'ai une petite idée mais loin d'être réalisable pour moi.
en A2 le jour et B2 le mois, comme cela si je reste sur le même mois je peut changer le jours pour avoir les pronostiqueurs.
en te remerciant par avance et je demanderai au forum un petit coup de main pour un projet ausii complex, mais je sais que nous pouvons compter sur vous.

Bien à vous

 

[job75]

Re,

Je comprends que vous voulez automatiser complètement la récupération des pronostics-presse.

Cela n'est guère possible : il faudrait d'abord arriver à créer la liste des URL (adresses) de toutes les courses de chaque jour depuis 2008.

La solution qui me paraît jouable c'est de naviguer sur le site et d'afficher la page de pronostics-presse de la course qui vous intéresse.

Copiez l'URL de cette page, puis sur la feuille "Requête web" du fichier Excel faites un clic droit sur une cellule et cliquez sur "Modifier la requête".

Dans la boîte de dialogue collez l'URL, cliquez sur OK puis importez la page web.

A+