Discussion :

[Vince006]

Bonjour à tous,

J'ai un soucis avec une Userform que je n'arrive pas à coder, je désirerais modifier les dates contenus dans cet URL (en rouge )via une Userform, une combobox si je ne me trompe pas.

Workbooks.Open Filename:="http://ichart.finance.yahoo.com/table.csv?s=" & code & "&a=04&b=9&c=2002&d=04&e=9&f=2011&g=m&ignore=.csv"

Mais en vain je n'arrive pas à renvoyer des valeurs dans l'URL c'est pourquoi je fais appel à votre aide !

Merci d'avance !

[kiki29]

Salut, donc de la lecture ici et surtout là

[Vince006]

Bonjour,

J'ai évidement lu l'aide et ai essayé de cette façon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()  
    UserForm1.Show
    Dim i As Integer    
    For i = 1 To 5
        ComboBox1.AddItem i
    Next i 
    MsgBox ComboBox1.Value
End Sub

Ou se situe le problème ?

[kiki29]

Salut, un brouillon à adapter

Sur la feuille principale créer un bouton et l'affecter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Option Explicit
 
Sub Bouton1_QuandClic()
    UserForm1.Show
End Sub

Pour l'UserForm :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Option Explicit
 
Dim s1 As String
Dim s2 As String
Dim sCode As String
 
Private Sub ComboBox1_Click()
    s1 = Me.ComboBox1.Value
End Sub
 
Private Sub ComboBox2_Click()
    s2 = Me.ComboBox2.Value
End Sub
 
Private Sub CommandButton1_Click()
    Tst
End Sub
 
Private Sub UserForm_Initialize()
Dim i As Long
    For i = 2001 To 2020
        ComboBox1.AddItem i
        ComboBox2.AddItem i
    Next i
End Sub
 
Private Sub Tst()
Dim sStr As String
 
    sCode = "1234"
    sStr = "http://ichart.finance.yahoo.com/table.csv?s=" & sCode & "&a=04&b=9&c=" & s1 & "&d=04&e=9&f=" & s2 & "&g=m&ignore=.csv"
    MsgBox sStr
End Sub