je viens de remarquer que si je nome une cellule "adresse" dans laquelle je met mon url et que je met ce code
Sub queryweb()
'
' via tools, référencer Microsoft HTML object library et Microsoft Internet control
Dim ie As InternetExplorer, doc As HTMLDocument, ql As Variant, qlq As Variant
Set ie = CreateObject("InternetExplorer.application")
'Set ie = New InternetExplorerMedium
' déclaration de la variable
Dim adresse As Variant
' valeur de la variable = adresse
adresse = Range("adresse").Value
qurl = (adresse)
Application.StatusBar = "lancement de la requête sur " & qurl
ie.Visible = False
ie.navigate qurl
Do
DoEvents
Application.StatusBar = "lancement de la requête sur " & qurl & " en attente de la réponse "
Loop Until ie.readyState = 4
Application.StatusBar = "réponse reçue pour la requête " & qurl
Set doc = ie.document
r = doc.body.innerHTML
tos = "<DIV class=tr-price-primary itemprop=""price"">"
s = InStr(r, tos)
If s <> 0 Then
s1 = InStr(s, r, "</DIV>")
prix = Replace(Mid(r, s + Len(tos), s1 - s - Len(tos)), " €", "")
Cells(1, 1) = "prix"
Cells(1, 2) = prix
Application.StatusBar = "prix trouvé dans la réponse " & prix
Else
Application.StatusBar = tos & " non trouvé dans la réponse "
End If
Open "webpage.txt" For Output As 1
Print #1, r
Close 1
ie.Application.Quit
End Sub
et bien ca marche nikel! Au lancement de la requete il regarde l'adresse dans la cellule et va me chercher le prix
Par contre comment l'adapter à une colonne entière avec plein d'url et qu'il me sorte les prix correspondants..... Mystère pour moi.
Merci