IE>excel : extraire un prix (variable) sur une page web.

Sub testCexcelCoco()
Dim IE As Object, elems As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.navigate "https://www.homedepot.ca/produit/cgc-sheetrock-1-2-po-x-4-pi-x-8-pi-panneau-de-cloison-seche-ultra-leger/1000686028"
Do While IE.ReadyState <> READYSTATE_COMPLETE Or IE.Busy: DoEvents: Loop
a = IE.document.body.querySelector("span.hdca-product__description-pricing-price-value").innerText
MsgBox a
End Sub

Sub HomeDepot()

code = htmlCodePage("https://www.homedepot.ca/produit/cgc-sheetrock-1-2-po-x-4-pi-x-10-pi-panneau-de-cloison-seche-ultra-leger/1000115026")
code = regexExtract(code, "<span class="hdca-product__description-pricing-price-value">(\d+) $</span>")(0)
MsgBox code

End Sub

Sub HomeDepot2()

    code = htmlCodePage("https://www.homedepot.ca/produit/cgc-sheetrock-1-2-po-x-4-pi-x-10-pi-panneau-de-cloison-seche-ultra-leger/1000115026")

    code = regexExtract(code, "<span class=""hdca-product__description-pricing-price-value"">(\d+) $</span>")

    Dim web As String
    web = """hdca-product__description-pricing-price-value"""
    Debug.Print web & " "

    MsgBox code

End Sub

Public Sub GetContents()
    Dim XMLReq As New MSXML2.XMLHTTP60
    Dim HTMLDoc As New MSHTML.HTMLDocument
    XMLReq.Open "Get", "https://www.homedepot.ca/produit/cgc-sheetrock-1-2-po-x-4-pi-x-10-pi-panneau-de-cloison-seche-ultra-leger/1000115026"
    XMLReq.send
    HTMLDoc.body.innerHTML = XMLReq.responseText
   msgBox  XMLReq.responseText
End Sub