Comment écrire une formule XPathOnUrl avec du VBA

Bonjour,

Je souhaite mettre à jour un tableau que j'ai en effectuant du scrapping.
Pour cela j'utilise une formule

Code:

---

=XPathOnUrl("https://fr.investing.com/equities/total-consensus-estimates";"/html/body/div[5]/section/div[8]/div[2]/div[1]/p[1]/text()[2]")

---

qui me ramène la valeur souhaitée.
Mais je ne veux pas que les valeurs s'actualisent à l'ouverture du fichier, je le veux par une action (bouton), donc je vais créer quelques lignes en VBA pour mettre à jour mon tableau.

Le problème c'est que j'ai une erreur

Citation:

---

erreur de compilation attendu fin d'instruction

---

(https surligné)lorsque je tape

Code:

---

Cells(2, 2).FormulaR1C1 = "=XPathOnUrl("https://fr.investing.com/equities/total-consensus-estimates";"/html/body/div[5]/section/div[8]/div[2]/div[1]/p[1]/text()[2]")"

---

Pourriez vous m'aider à débloquer la situation.

Je vous en remercie par avance

Cordialement
Sébastien RABAUD

Salut

Je pense qu'en mettant des doubles quotes ça devrait aller. Le but est de spécifier à VBA que les doubles quotes doublées ne marquent pas le début ou la fin d'un texte.

Code:

---

Cells(2, 2).Formula = "=XPathOnUrl(""https://fr.investing.com/equities/total-consensus-estimates"";""/html/body/div[5]/section/div[8]/div[2]/div[1]/p[1]/text()[2]"")"

---

++
Qwaz

Merci pour la réponse.
Ca fait trop longtemps que je n'avais touché au VBA et j'avais oublié :roll:

Bonne soirée
Seb