Re : Pb pour actualiser une page WEB via VBA
Bonjour le forum.
En fait la solution dépend de la page web. Il faut donc regarder le code HTLM de la page web pour trouver la solution.
Pour mon application la solution était le code VBA "htmlPage.form.submit
"
Voici l'ensemble du code.
Dim IE As InternetExplorer
Dim htmlPage As HTMLDocument
Dim Catégorie As HTMLObjectElement
Dim htmlElement As HTMLObjectElement
'Chargement de la page web dans un webbrowser
Userform1.WebBrowser1.Navigate ("ton site")
Do
DoEvents
Loop Until Not Userform1.WebBrowser1.Busy
Set htmlPage = Userform1.WebBrowser1.document
'Récupération du contenu des combobox de la page web
'de la catégorie
For Each htmlElement In htmlPage.all
If (htmlElement.tagName Like "SELECT") Then
'Parmi les éléments SELECT, on recherche un élément combobox:
If InStr(1, htmlElement.outerHTML, "name=sous_categorie") > 0 Then
Set Catégorie = htmlElement
For i = 1 To Catégorie.Length - 1
Cells(i, 1) = Catégorie(i).innerText
Next i
Catégorie(2).Selected = True
End If
End If
Next
'chargement de la nouvelle page
htmlPage.form.submit
Do
DoEvents
Loop Until Not Userform1.WebBrowser1.Busy
Set htmlPage = Userform1.WebBrowser1.document