Bonjour à tous,
Je suis en train de créer une macro pour récupérer des informations sur un site en ligne et mettre ces données dans un fichier Excel.
Pour la plupart des sites j'ai réussi mais un me donne du fil à retordre.
Dans cette page j'aimerais récupérer le premier prix (qui est le plus faible) sous la partie descriptive de l'item en question.
Voici mon code :
Sub TestPrix()
Dim request As Object
Dim response As String
Dim html As New htmldocument
Dim website As String
Dim price As Variant<br>
Le string website contient l'URL du site mais je ne peux pas le joindre dans mon message :
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.setRequestHeader "IF-Modified-Since", "Sat 1 Jan 2000 00:00:00 GMT"
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("f_Strong").Item(0).innerText
MsgBox (price)
End Sub
Le problème est que je n'arrive pas à récupérer toute une partie de la page et je ne sais pas pourquoi.
Merci d'avance pour votre aide ! :)
Tayrok