On sort du cadre google sheets, mais j'ai voulu poursuivre avec excel
avec
page.body.innerHTML = .responseText
' et
For Each lien In page.getElementsByTagName("a")
url = lien.getAttribute("HREF")
'...
le néant complet !
1er essai avec bing et split
Sub liste()
Dim txt As String, tbl, i%
With CreateObject("WINHTTP.WinHTTPRequest.5.1")
.Open "GET", "https://www.bing.com/search?q=R3704849", False
.send
txt = .responseText
End With
tbl = Split(txt, "href=""")
For i = 1 To UBound(tbl)
Debug.Print Split(tbl(i), """")(0)
Next
End Sub
donne des liens mais rien à voir avec le sujet de recherche
2ème essai avec qwant et split
Option Explicit
Sub liste()
Dim txt As String, tbl, i%
With CreateObject("WINHTTP.WinHTTPRequest.5.1")
.Open "GET", "https://www.qwant.com/?q=R3704849&t=web", False
.send
txt = .responseText
End With
tbl = Split(txt, "href=""")
For i = 1 To UBound(tbl)
Debug.Print Split(tbl(i), """")(0)
Next
End Sub
même sanction
il me reste une solution mais cela devient très complexe !