Je n'ai jamais eu le courage de procéder de la sorte. En partie par manque de temps et car ce serait sans doute trop long à tenir à jour pour mon portefeuille (trop) dispersé.
Cependant, ce qui me freine le plus, c'est d'être à la merci de la moindre relivraison d'un site commercial!

Avec le monde de l'open data, est-ce qu'une plate-forme de type Quandl ou un équivalent ne ferait pas l'affaire pour ce genre de besoin?

D'après ce que je comprends, les données Euronext y seraient en accès gratuit.
Je n'ai pas creusé de près. Mais peut-être est-une solution plus stable désormais que de revamper Yahoo ou Boursorama...

https://www.quandl.com/data/EURONEXT-Euronext-Stock-Exchange

Bonjour Pierre,

La communauté des IH a aussi été confrontée au problème:
https://www.devenir-rentier.fr/t176-4

et Dieu (comme dirait Bimbo) s'est rabattu sur le WSJ:

"Il n’y a plus que le WSJ, c’est celle que j’utilise pour XlsValorisation."

Reste à demander à Dieu s'il veut bien communiquer le mode d'emploi. Vu que XlsValorisation est payant, pas sûr qu'il en fasse l'aumône.

--
jean-marie

Bonjour Pierre,

En tant que testeur bêta je te recommande d'appuyer 2 fois plus fort sur le bouton "actualiser les données"

Ne me remercie pas, c'est de l'entraide

Bon WE à tous

Merci de vos retours. Je ne connaissais pas Quandl; pour le moment, je n'ai pas réussi à utiliser qseries (peut-être incompatible avec ma version d'Office). Je n'ai pas trop le temps ni la motivation pour m'y plonger sérieusement. Je vais continuer mes recherches ... si vous avez d'autres suggestions, je suis preneur !


Pierre

Bonjour

Ci-joint une solution VBA que j'ai enrichi "à ma sauce"... en espérant que ça puisse t'être utile.

Source des données pour la mise à jour= Boursorama

code à insérer dans un module VBA

Dim r As Long
Dim c As Long
Dim lig As Long
Dim i As Integer

Option Explicit

Sub Refresh_Boursorama()

'' !!!
''Outils > Références > Activer
''Microsoft HTML Object Library
''Microsoft XML, v6.0

Dim mXML As MSXML2.XMLHTTP60
Set mXML = New MSXML2.XMLHTTP60
Dim oDoc As MSHTML.HTMLDocument
Set oDoc = New HTMLDocument
Dim Element As IHTMLElement
Dim Elements As IHTMLElementCollection

'affectation des variables
i = 2
lig = ActiveSheet.Range("a65536").End(xlUp).Row

'nettoyage de la zone avant mise à jour
Range("b2:g" & lig).ClearContents

With mXML
For r = i To lig
.Open "GET", "http://www.boursorama.com/cours.phtml?symbole=" & Cells(r, 1).Value, False
.setRequestHeader "DNT", "1"
.send
If .Status = 200 Then
oDoc.body.innerHTML = .responseText

With oDoc.getElementsByTagName("TABLE")(0).Rows
Cells(r, "b").Value = ExtraitNombre(.Item(0).Cells(1).innerText) 'Cours
Cells(r, "c").Value = VBA.Replace(ExtraitNombre(.Item(3).Cells(1).innerText), " ", "") 'volume
Cells(r, "d").Value = .Item(1).Cells(1).innerText 'variation
Cells(r, "e").Value = .Item(2).Cells(1).innerText 'Dernier échange
Cells(r, "f").Value = .Item(8).Cells(1).innerText 'capital échangé
Cells(r, "g").Value = VBA.Replace(.Item(9).Cells(1).innerText, " MEUR", "") 'valo.
End With

End If
Next


End With

Set oDoc = Nothing
Set mXML = Nothing

MsgBox "Mise à jour terminée", vbOKOnly + vbInformation, "Message..."

End Sub

Function ExtraitNombre(chaine)
Dim Reg As Object
Set Reg = CreateObject("VBScript.RegExp")
With Reg
.Global = True: .Pattern = "(.[a-z].).": .IgnoreCase = True
ExtraitNombre = Reg.Replace(chaine, "")
End With
End Function

la feuille Excel en question > en image >>

Oubliez Excel, ça ne va pas du tout vous aider.
Vous devez utiliser Python pour le scrap web.
Consultez cet article: https://likegeeks.com/python-web-scraping/
Il comprend de nombreux exemples pour extraire les valeurs des pages Web.

Cordialement,