Bonjour,
Après de nombreuses recherches, je ne parviens pas à résoudre un problème. C'est pourquoi je m'en remet à votre aide.
Voici mon code :
Code :
- Sub initial()
- Dim tick As String
-
- tick = InputBox("Introduisez tick", "Tick" )
-
-
- "URL;http://moneycentral.msn.com/detail/stock_quote?Symbol=[""QUOTE"",""Enter stock symbols separated by commas.""]", _
- Destination:=Range("A1" ))
- .BackgroundQuery = True
- .TablesOnlyFromHTML = True
- .Refresh BackgroundQuery:=False
- .SaveData = True
- End With
-
- End Sub
|
Ce que je désirerais, c'est que "tick" qui est entré via l'inputbox soit la variable qui arrive à la fin de l'URL. On aurait donc ceci :
La méthode ci-dessus ne me convient pas car je désire effectuer plusieurs opération du même genre mais je ne souhaiterais n'entrer tick qu'une seule fois.
Merci d'avance pour votre aide
Message édité par judge_red le 02-02-2007 à 00:02:28
