Problème syntaxe appel de fonction

Bonjour tout le monde !

La fonction RTD("MLRTD.RTDFunctions";;"Price";"CR1\H123.4.EO";"Delta") me permet d'aller récupérer la valeur "Delta" de l'actif "CR1\H123.4.EO" sur un logiciel de données dynamique (Marketmap).

Je souhaite créer une macro (pas par formule donc..) qui me donne dans la cellule (2,3) le "Delta" en fonction du nom de l'actif que rentre l'utilisateur dans la cellule (3,1)

Code:

---

1 2 3 4

Sub Delta() Cells(2,3).value = "=RTD("MLRTD.RTDFunctions";;"Price";Cells(3,1).value;"Last") End Sub

---

Message d'erreur "Erreur de syntaxe"; si quelqu'un a une idée sur la syntaxe je suis preneur !

Bonjour,

en vba, le ";" devient ","

essaye avec

Code:

---

1 2 3

Sub Delta() Cells(2,3).value = "=RTD("MLRTD.RTDFunctions",,"Price",Cells(3,1).value,"Last") End Sub

---

Merci de ta réponse mais même après avoir remplacé il y a toujours "erreur de syntaxe".

En plus il faut doubler les "

Code:

---

1 2 3 4

Sub Delta()   Cells(2, 3).Formula = "=RTD(""MLRTD.RTDFunctions"",,""Price""," & Cells(3, 1).Value & ",""Last"")" End Sub

---

C'est bon, il fallait aussi doubler les " pour la partie & cells().value&

Merci à tous.

Désolé de revenir là dessus mais en fait ce n'est pas résolu !
le but est que la formule dans la cellule (2,3)soit sous cette forme:
"=RTD("MLRTD.RTDFunctions";;"Price"; "valeur_cellule(3,1)";"Delta")"


Avec la macro suivante:

Code:

---

1 2 3 4

Sub Delta() Cells(2, 3).Formula = "=RTD(""MLRTD.RTDFunctions"",,""Price""," & Cells(3, 1).Value & ",""Delta"")" End Sub

---

la formule est :"=RTD("MLRTD.RTDFunctions";;"Price"; valeur_cellule(3,1);"Delta")"
Donc sans les "" autour de valeur_cellule(3,1)

et avec la macro suivante

Code:

---

1 2 3 4

Sub Delta() Cells(2, 3).Formula = "=RTD(""MLRTD.RTDFunctions"",,""Price"","" & Cells(3, 1).Value & "",""Delta"")" End Sub

---

La formule est : "=RTD("MLRTD.RTDFunctions";;"Price", " & cells(3,1).value &";"Delta"")"

Bref c'est tout bête mais je ne vois pas la solution !
Merci d'avance.

Code:

---

1 2 3 4

Sub Delta()   Cells(2, 3).Formula = "=RTD(""MLRTD.RTDFunctions"",,""Price"",""" & Cells(3, 1).Value & """,""Last"")" End Sub

---