Discussion :

[qataror]

Bonjour,
J'utilise un fichier EXCEL se servant d'une macro pour importer des cours de Bourse à partir d'un site web ( Yahoo Finance )
Depuis 2 jours, celui-ci ne fonctionne plus avec le message : "impossible d'ouvrir..........."
Je pense à une désactivation du site Yahoo.
Serait-il possible de changer l'adresse du site web ? Boursorama, abcbourse ou google finance ?
Je vous remercie par avance pour votre aide
Voici le code
==============================================================================================

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
Sub Cours()
    'Base01 = "http://finance.yahoo.com/d/quotes.csv?s="
    Base01 = "http://fr.finance.yahoo.com/d/quotes.csv?s="
    Base02 = "&f=sl1d1t1c1ohgv&e=.csv"
    sURL = ""
    SymString = ""
 
    LastRow = Cells(65536, 1).End(xlUp).Row
 
    For i = 1 To LastRow
        SymString = SymString & Cells(i, 1) & " "
    Next i
    sURL = Base01 & SymString & Base02
    Workbooks.Open sURL
    Set RngSource = Cells(1).CurrentRegion
    X = RngSource.Rows.Count
    Y = RngSource.Columns.Count
    With ThisWorkbook.Sheets(1)
        Set RngDest = Range(.Cells(1, 1), .Cells(X, Y))
    End With
    RngDest.Value = RngSource.Value
    ActiveWorkbook.Close SaveChanges:=False
End Sub

==============================================================================================
Bien cordialement
Platypus

PS: je peux poster le fichier sans problème, il n'a rien de confidentiel et peut être utilisé par des personnes intéressées

[qataror]

Après un copier/coller de l'adresse web, j'ai eu la réponse suivante :
quote========================================================================================
It has come to our attention that this service is being used in violation of the Yahoo Terms of Service. As such, the service is being discontinued. For all future markets and equities data research, please refer to finance.yahoo.com.
unquote=======================================================================================

En conclusion, il se confirme que Yahoo Finance a désactivé ce service
Donc, je dois trouver une nouvelle adresse pour collecter des cours de bourse
cdlt