Cours de bourse et VBA - API Yahoo Finance

Version imprimable

10/02/2016, 10h35
enivral

1 pièce(s) jointe(s)

Cours de bourse et VBA - API Yahoo Finance

Bonjour à tous,

Je cherche à me créer un fichier de reporting pour le suivi de portefeuille boursier.

L'utilisateur rentre dans la colonne A les codes mnemo spécifiques à Yahoo Finance (ou autre, je suis preneur d'idées) et la macro va chercher les informations suivantes :
- nom de l'entreprise
- devise
- yield
- cours
- rendement

Mon code est inspiré de celui-ci : https://www.youtube.com/watch?v=iSlB...?v=iSlBE3CWg5Q
Mon début de code récupère bien ces informations (testé avec un debug.print) mais me remplis seulement la première ligne. Je dois mal utiliser le Split en vba....
Voir fichier joint.

De plus j'aimerais aussi récupérer le secteur de chaque entreprise (ex: consommation de base / consommation discrétionnaire / immobilier / énergie / santé / etc) mais je n'ai pas trouvé comment faire.

Mon code utilise la référence Microsoft WinHttp, est-il possible d'activer cette référence automatiquement par vba (utiles afin de pouvoir se servir du fichier sur plusieurs postes sans penser à recocher à chaque fois la référence).

D'avance merci aux âmes charitables :D et désolé pour la longueur apparente du message.

Si vous souhaitez des précisions je serais heureux de vous les fournir.
10/02/2016, 11h16
joe.levrai
Bonjour,

quand tu crées ton tableau Lines, il ne contient qu'une seule ligne. Cette ligne contient l'ensemble de tes lignes de cotation, car la constante VbNewLine n'est pas la bonne

utilise plutôt la constante de retour à la ligne VbLf (ou Chr(10) qui est un équivalent)

Code:

Lines = Split(Resp, vbLf) ' on peut aussi utiliser Chr(10))

Ensuite, pour éviter de devoir activer la référence WinHttpRequest, tu peux travailler en liaison tardive.
On déclare la variable en objet, et on l'instancie en créant l'objet WinHttpRequest :
Code:

1 2 Dim X As Object 'New WinHttpRequest Set X = CreateObject("WinHttp.WinHttpRequest.5.1")

Pour la virgule de FB
Commencer par ajouter la fonction

Code:

1
2
3
4
5
6
7
8
9
10
11
Function Separ(ByVal Tmp As String)
Dim Rg As Object, A As Object, B As Object
 
Set Rg = CreateObject("Vbscript.Regexp")
With Rg
    .Pattern = "(""|\d|N/A)(,)"
    .Global = True
    If .Test(Tmp) Then Separ = .Replace(Tmp, "$1;")
End With
Set Rg = Nothing
End Function

et remplace dans ton code

Code:

1
2
3
4
5
6
7
8
9
10
11
'...
Resp = Replace(Separ(X.responseText), """", "") '<<ICI 
Lines = Split(Resp, vbLf)
 
For i = 0 To UBound(Lines)
    sLine = Lines(i)
    If InStr(sLine, ";") > 0 Then
        Valeur = Split(sLine, ";")
        W.Cells(i + 6, 2).Value = Valeur(1)
        W.Cells(i + 6, 4).Value = Valeur(2)
'...

Et pour bien te former, les cours et tutoriels pour apprendre Excel : https://excel.developpez.com/cours/

10/02/2016, 12h39
enivral

Bonjour à tous les deux

Merci pour vos réponses et retours rapides.

Je teste cette après midi et je vous tiens au courant.

Pour récupérer les secteurs des industries avez vous une piste ?
Sinon je le ferais à la main avec une liste des secteurs possibles et un petit coup de data validation. :zoubi:
10/02/2016, 16h24
enivral

BRAVO et MERCI à tous les deux cela fonctionne super bien.

Je laisse la discussion ouverte encore quelques temps si jamais je trouve pour les secteurs.

bien à vous

heu

bonjour
pirouette cacahuette

Code:

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
Sub refresh_portefeuille()
    Dim W As Worksheet: Set W = Worksheets("Portefeuille")
    Dim groupeticker As String, URL As String, Resp As String, X As New WinHttpRequest, ligne As Variant, Valeur As Variant,ind as long,plage as range 
    With W
        If .Cells(6, 1) = "" Then Exit Sub
        Set plage = .Range(.Cells(6, 1), .Cells(Rows.Count, 1).End(xlUp))
        groupeticker = Join(Application.Transpose(plage), "+")
    End With
    URL = "http://finance.yahoo.com/d/quotes.csv?s=" & groupeticker & "&f=snc4yl1d"
    X.Open "GET", URL, False
    X.send
    Resp = Replace(X.responseText, Chr(34), "")
    ligne = Split(Resp, Chr(10))
    For i = 0 To UBound(ligne)
        If InStr(ligne(i), ",") > 0 Then
            Valeur = Split(ligne(i), ",")
            Debug.Print UBound(Valeur)
            m = 6 + i
            'm saute d'une ligne a chaque tour
            'si il y a plus de 6 element alors ind=1 sinon zero que l'on ajoute a l'index lors de la retranscription dans w.cells.......
            ind = IIf(UBound(Valeur) > 5, 1, 0)
            'pour le premier si ind=1 alors lacelluelem,2 aura valeur1 et 2
            'pour les autres si ind = 1 alors on ajoute a l'index (=valeur(X +ind))
 
            W.Cells(m, 2).Value = Replace(Valeur(1) & IIf(UBound(Valeur) > 5, Valeur(2), ""), Chr(34), "")
            W.Cells(m, 4).Value = Replace(Valeur(2 + ind), Chr(34), "")
            W.Cells(m, 5).Value = Valeur(3 + ind)
            W.Cells(m, 9).Value = Valeur(4 + ind)
            W.Cells(m, 13).Value = Valeur(5 + ind)  'pb sur cette valeur, affiche le rendement et le deuxieme nom du code mnémo
        End If
    Next i
    W.Cells.Columns.AutoFit
End Sub