[XL-2007] Fonction dont les arguments sont une partie d'un code URL

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:

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