Exemple Boursorama ...
https://www.boursorama.com/cours/1rPHO/
Si je prends le code source, cela me donne ceci :
Je cherche en tâtonnant s'il le faut la valeur voulue et j'identifie les termes avant (il est surligné) et après qui m'encadrent cette valeur. Il faut que le terme avant soit unique dans la recherche, c'est le cas au vu du popup en haut à droite (ou alors il faudra adapter le code).
Je reporte ces valeurs dans le fichier excel comme ici (du coup, pas besoin de doubler les guillemets) :
La macro simplifiée est alors la suivante (je me base sur la cellule nommée www)
Sub MajCotations()
col = [www].Column
DoEvents
For i = [www].Row + 1 To Cells(Rows.Count, col).End(xlUp).Row
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", Cells(i, col), False
.Send
If .Status = 200 Then Cells(i, col + 1) = Val(Split(Split(.responseText, Cells(1, col + 1))(1), Cells(2, col + 1))(0))
End With
Next
End Sub