Bonjour, 

Je suis tombé sur plusieurs tutoriel qui expliquent comment extraire une donnée précise d'un site web pour l'actualiser sur Excel en utilisant des commandes type getElementsById.

J'ai essayé ce code que j'ai trouvé sur Youtube, sur des sites comme google et yahoo par exemple : 

Sub Get_Web_Data()
' TeachExcel.com

Dim request As Object
Dim response As String
Dim html As New HTMLDocument
Dim website As String
Dim price As Variant

' Website to go to.
website = "https://finance.yahoo.com/quote/EURUSD=X?p=EURUSD=X"

' Create the object that will make the webpage request.
Set request = CreateObject("MSXML2.XMLHTTP")

' Where to go and how to go there - probably don't need to change this.
request.Open "GET", website, False

' Get fresh data.
request.setRequestHeader "If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT"

' Send the request for the webpage.
request.send

' Get the webpage response data into a variable.
response = StrConv(request.responseBody, vbUnicode)

' Put the webpage into an html object to make data references easier.
html.body.innerHTML = response

' Get the price from the specified element on the page.
price = html.getElementsByClassName("Trsdu(0.3s) Fw(b) Fz(36px) Mb(-4px) D(ib)").Item(0).innerText

' Output the price into a message box.
MsgBox price

End Sub

J'ai donc essayé de faire pareil sur ce site : 

https://just-wiped.net/rust_servers/845180

Mon objectif serait de pouvoir rafraichir le nombre de joueurs sur ma cellule excel.

J'ai donc changé l'url dans le code, et dans 

price = html.getElementsByClassName("Trsdu(0.3s) Fw(b) Fz(36px) Mb(-4px) D(ib)").Item(0).innerText

J'ai remplacé le nom de la classe par Value que je trouve dans le code source, et j'ai mis Item(7) car c'est le 7eme item qui m'interesse (en partant de 0). Cependant j'obtient toujours une erreur 91. J'ai essayé par mal de trucs, changer le nom de la variable ou essayer un autre navigateur pour voir si le nom de la classe changeait mais rien n'y fait.

--> Sauriez-vous extraire le nombre de joueur pour le rafraichir sur ma page Excel ? 

Merci

le problème c'est que ça (le request de VBA) utilise le moteur d'internet explorer, et là le site renvoie une autre page indiquant qu'il faut indiquer qu'on utilise un navigateur plus récent, en définissant dans le header le bon User-Agent.

(et le nombre de joueurs c'est le 4ème élément, pas le 7ème)

Sub Get_Web_Data()
 
    Dim request As Object
    Dim response As String
    Dim html As New HTMLDocument
    Dim website As String
    Dim nbplayers As Variant
 
    ' Website to go to.
    website = "https://just-wiped.net/rust_servers/845180"
     
    ' Create the object that will make the webpage request.
    Set request = CreateObject("MSXML2.XMLHTTP")
     
    ' Where to go and how to go there - probably don't need to change this.
    request.Open "GET", website, False
     
    request.setRequestHeader "User-Agent", "Mozilla/5.0"
    
    ' Send the request for the webpage.
    request.send
     
    ' Get the webpage response data into a variable.
    response = StrConv(request.responseBody, vbUnicode)
     
    ' Put the webpage into an html object to make data references easier.
    html.body.innerHTML = response
    
    ' 1ère méthode: on récupère tous les éléments de classe "value" et on récupère le 4ème
    nbplayers = html.getElementsByClassName("value").Item(4).innerText
    ' 2ème méthode: on récupère la valeur de l'élément "value" de l'élément de classes "info" et "i-player"
    nbplayers = html.querySelector(".info.i-player>.value").innerText
    ' Output the price into a message box.
    MsgBox nbplayers
 
End Sub

-
Edité par umfred 28 juin 2021 à 11:57:14

Merci beaucoup pour votre aide ! 

Maintenant je suis curieux de comprendre

Pour dire que c'est le 7ème élément j'ai fais ctrl+f et je suis tombé sur la 6eme itération. 

http://image.noelshack.com/fichiers/2021/26/3/1625044850-openclasseroom.png

Est-ce la mauvaise méthode ?

Je m'étais rendu compte qu'il y avait un problème avec explorer mais je n'arrivais pas à le résoudre, merci pour cette astuce !

Par contre un petit problème : j'ai essayé de relancer la macro avec votre programme, mais pour une raison que j'ignore, j'ai le message suivant dès la première ligne : Erreur de compilation : type défini par l'utilisateur non défini. Pour la faire fonctionner j'ai repris l'excel du site internet et je l'ai remplacé par le bon code, mais je n'arrive pas à le faire fonctionner dans une feuille vide.

Ma prochaine étape est de réussir à afficher la valeur directement dans une cellule, et dans l'idéal de pouvoir effectuer la même opération sur une 50ène de page au même temps, j'espère que vous ne partirez pas de cette page trop vite

Merci encore !

-
Edité par SpiickSpiick 30 juin 2021 à 11:30:32

avec le CTRL+F, ça te sors bien l'occurrence du mot "value", qui n'est pas forcément toujours une classe (ça peut une variable ou une partie d'un classe contenant ce mot. 

la bonne façon (pour moi) c'est plutôt d'utiliser "l'inspecteur" (l'icone avec un curseur qui te permet de sélectionner un élément de la page et qui te montre alors son emplacement dans le code de la page)

L'erreur est étrange parce que je n'ai pas fondamentalement changer ton code initial (quel mot était souligné lors de l'erreur ?)

tu as sans doute oublié de cocher la référence Microsoft HTML Object Library dans le menu Outils > Références

ou alors de passer par du late binding

Dim html as Object
Set html = CreateObject("htmlfile")

Bonjour, 

Oui j'avais bien oublié de cocher la case ! 

Je mets un peu de temps à répondre car je voulais tout tester et c'est bon, mon programme fonctionne comme je veux grâce à vous !

Merci beaucoup !