VBA sur web

Je suis pas sûr de pouvoir le faire prochainement mais dès que j'ai un moment je peux le faire pour vous ;)

Quelles informations aimeriez vous retirer ?

Je dois t'avouer je n'arrive pas à récupéré le tableau. Étrangement le code ne défini pas le tableau comme je veux (il me dit que le tableau n'a que 3 lignes et n'arrive pas à extraire le contenu de ses lignes)


Ce que je te conseil :

Fait un nouveau poste dans la section "Programmation > VB/VBA"

Tu peux déjà leur donner ce code qui ne fonctionne pas comme base :

'Récupération des données.
Sub Recuperation()
'Créatation d'IE
Dim IE As Object 'Internet Explorer
Dim IEDoc As HTMLDocument 'DocumentHTML
Dim htmlTabResultat As HTMLGenericElement ' Table HTML
Dim htmlLigneResultat As HTMLGenericElement ' Lignes de la tale HTML
Dim NumLigne As Byte 'Ligne d'écriture dans le tableau excel
    NumLigne = 2



Set IE = CreateObject("InternetExplorer.Application") 'Définir Internet explorer

IE.navigate "https://www.pmu.fr/turf/index.html#15092014/R2/C1" 'Définir la page source

IE.Visible = True 'Ouverture d'IE

Set IEDoc = IE.document ' Definir le document HTML

Set htmlTabResultat = IEDoc.body.all("participants-view").Children(0) 'Definir le tableau

MsgBox htmlTabResultat.Children.Length 'Devrai nous donner le nombre de ligne du tableau (ça ne semble pas marcher)

For Each htmlLigneResultat In htmlTabResultat.Children 'Parcourir les lignes du tableau
    For c = 1 To 8
        ActiveSheet.Cells(NumLigne, c) = htmlLigneResultat.Children(1).innerText '(L'erreur apparait ici)
    Next
    NumLigne = NumLigne + 1 'Passe à la lignes suivante
Next

'Clore les variables
IE.Quit
Set IE = Nothing
End Sub

Tu leur expliques de nouveau le problème. Tu peux leur dire qu'on à utiliser ce tuto comme base.

https://qwazerty.developpez.com/tutoriels/vba/ie-et-vba-excel/#LV-C-2-e

mais que Excel ne défini pas le bon tableau.

Ils en saurront plus je pense ;)

A si c'est juste ça alors voilà le code :

'Récupération des données.
Sub Recuperation()
'Créatation d'IE
Dim IE As Object 'Internet Explorer
Dim IEDoc As HTMLDocument 'DocumentHTML
Dim boutonHtml As HTMLGenericElement ' Bouton html

Set IE = CreateObject("InternetExplorer.Application") 'Définir Internet explorer

IE.navigate "https://www.pmu.fr/turf/index.html#15092014/R2/C1" 'Définir la page source

'IE.Visible = True 'Ouverture d'IE

Set IEDoc = IE.document ' Definir le document HTML

Set boutonHtml = IEDoc.body.all("stat-Button").Children(1)

boutonHtml.Click

IE.Visible = True
'Clore les variables
IE.Quit
Set IE = Nothing
Set IEDoc = Nothing
Set boutonHtml = Nothing
End Sub

Je pense que c'est la fonction click qui vous manquait.

A oui j'ai oublié !

Vous devez activer 2 référances voici comment faire :

Dans Excel :

[ALT]+[F11]

Dans la nouvelle fenêtre : Outils > Référances

Dans la liste cocher "Microsoft Internet Controls" et "Microsoft HTML Object Library

Ensuite valider.

Apartir de ce point cela marchera dans ce classeur.

Euh la ligne 19 ?