Rechercher des cours avec Excel (Securibourse)

par LAUNAY , samedi 20 janvier 2018, 09:59 (il y a 2281 jours) @ isee

Bonjour
le hasard de mes recherches m a amené sur le site securibourse et sur votre macro.
je l'ai installée tel quel et elle plante sur ces deux lignes :
Cells(R, "f").Value = .Item(8).Cells(1).innerText 'capital échangé
Cells(R, "g").Value = VBA.Replace(.Item(9).Cells(1).innerText, " MEUR", "") 'valo.
et les cours restitués par la macro ne correspondent pas au cours de boursorama.
pom
fii 34,53 19/01/1821:59:57 28.25 EUR 1,59%
mgic 8,7 19/01/1822:00:00 7.1175 EUR 0,00%
sdg
swp 126,49 19/01/1821:44:10 103.48 EUR 0,18%

si vous pouviez me dépanner car je n'ai pas de compétences suffisantes en matière de récupération de cours de bourse sur un site web.Nota, pour récupérer une valeur, j utilise le ticker affecté au titre.
Merci par avance
Cordialement
F LAUNAY