Discussion :

[Vince006]

Bonjour,

J'ai créer cette macro récupérant un cours de titre qui fonction très bien:

Code :

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

1
2
Workbooks.Open Filename:= _
        "http://ichart.finance.yahoo.com/table.csv?s=%5eGSPC&a=00&b=1&c=2000&d=03&e=29&f=2012&g=m&ignore=.csv"

Mais j'aimerai créer une fonction fnHistQueery dont les arguments seront le code du titre à récupérer (en rouge dans l'url), la feuille où les données doivent être téléchargées, permettant d’obtenir le téléchargement du titre et renvoyant comme message true si les données ont bien téléchargées, false sinon.

Mais n'ayant aucune idée de comment faire via une fonction, je demande votre aide ! Merci d'avance !

[kiki29]

Salut, réponse parcellaire : pas de tranfert sur une feuille donnée mais sauvegarde sous un nom prédéfini, autrement fonctionne correctement, à toi de poursuivre
et adapter à ton contexte

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
34
35
36
37
38
39
Option Explicit
 
Sub Tst()
Dim sStr As String
Dim sNom As String
 
    sStr = "5eGSPC"
    sNom = "Essai"
 
    If TestCode(sStr, sNom) = False Then MsgBox "Erreur"
End Sub
 
Private Function TestCode(sCode As String, sNomFichier As String) As Boolean
    TestCode = True
    On Error GoTo Erreurs
    Application.ScreenUpdating = False
    Workbooks.Open Filename:= _
                   "http://ichart.finance.yahoo.com/table.csv?s=%" & sCode & _
                   "&a=00&b=1&c=2000&d=03&e=29&f=2012&g=m&ignore=.csv"
 
    Application.DisplayAlerts = False
    Windows("table.csv").Activate
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & sNomFichier, FileFormat:=xlCSV, Local:=True
    ActiveWindow.Close
    With Application
        .DisplayAlerts = True
        .ScreenUpdating = True
    End With
    Exit Function
 
Erreurs:
    TestCode = False
    Application.ScreenUpdating = True
    If Err.Number = 1004 Then
        Debug.Print "Pas de fichier pour : " & sCode
    Else
        Debug.Print Err.Number & " " & Err.Description
    End If
End Function