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