Problème VBA Variable....Dim...

[ljoue]

Bonjour à tous,

Dans la Macro suivante comment faire pour remplacer :

la variable "ACCP.PA" par la valeur se trouvant dans la cellule "F6" de la

feuille "ACCEUIL"


Merci d'avance

Cordialement,
Laurent
------------------------------------------------------------------------------------------------MACRO :
---------
Sub RECUPERATIONCOURSSRD()
'
' RECUPERATIONCOURSSRD Macro
' Macro enregistrée le 10/02/2005 par Joué Laurent
'
'
Sheets("DONNEES").Select
Range("A1").Select

'---------initialise et efface le contenu de la feuille-------------
Dim I, x, histo As Integer
Dim Code As String
On Error Resume Next
Cells.Clear


'----------Variables du téléchargement ------------
histo = 500 '= Nb de cours de l'historique
Code = "ACCP.PA" ' = ticker du titre à récupérer sur Yahoo PA= Bourse de Paris

'----------télécharge------------
For I = 0 To histo Step 200
URL = "URL;http://chart.yahoo.com/d?a=0&b=1&c=1980&d=7&e=30&f=2005&s=" & Code & "&y="
With ActiveSheet.QueryTables.Add(Connection:=URL & I & "&g=d", Destination:=[A65536].End(xlUp)(2))
.Refresh False
End With
Next I

End Sub

 

[OnErrorResumeNext]

bonjour Laurent,

si j'ai bien compris :
Code = worksheets("ACCUEIL").range("F6")

amicalement

 

[ljoue]

Génial ça marche à merveille..!!! 🙂

Merci beaucoup et bonne soirée.

@+