[XL-2007] Téléchargement Yahoo Finance - données manquantes

[vinaigre]

Bonsoir à tous,

Je rencontre un problème avec le téléchargement de données sur Yahoo finance:
J'utilise une macro qui télécharge des données de Yahoo, pour différents titres mais pour un historique fixe. Les titres étant tous cotés sur le CAC 40 (donc même nombre de jours de cotation), mes vecteurs de prix devraient avoir la même taille, hors ce n'est pas toujours le cas.
Pour un même titre, si je lance le téléchargement plusieurs fois de suite, ma profondeur d'historique ne sera pas toujours la même, concrètement:
Le téléchargement s'effectue sur près d'un an, 207 jours exactement. Il arrive que les données téléchargées ne contiennent que 188 jours, sans rien changer au code.
En regardant de plus près les données téléchargées, il manque régulièrement un mois (le mois de mars, allez savoir pourquoi !)

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
Sub RecupHisto()
Application.ScreenUpdating = False
Dim ws As Worksheet
Dim ws2 As Worksheet
Dim oWbk As Workbook
Set ws = Worksheets("Feuil1")
Set ws2 = Worksheets("data")
Dim day1 As Integer, day2 As Integer, month1 As Integer
Dim month2 As Integer, year1 As Integer, year2 As Integer
Dim PriceMat() As Variant
Dim DataMat As Variant
 
j = 5
ReDim PriceMat(1 To j, 1 To 2)
For i = 1 To j
 
'définition du sous jacent via ric Reuters
isin = CStr(ws.Cells(2, 2 + i).Value)
 
'récupération des cours
Application.ScreenUpdating = False
 
Set oWbk = Application.Workbooks.Open("http://ichart.finance.yahoo.com/table.csv?s=" & isin & "&d=3&e=28&f=2011&g=d&a=6&b=10&c=2010&ignore=.csv")
ActiveWorkbook.Worksheets(1).Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
'stocke les dates
PriceMat(i, 1) = ActiveWorkbook.Worksheets(1).Range(Selection, Selection)
ActiveWorkbook.Worksheets(1).Range("G2").Select
Range(Selection, Selection.End(xlDown)).Select
'stocke les prix
PriceMat(i, 2) = ActiveWorkbook.Worksheets(1).Range(Selection, Selection)
 
oWbk.Close False
 
Next i
 
End Sub

Quelqu'un aurait-il déjà rencontré ce problème ou aurait une idée pour y remédier, s'il vous plaît ?

Merci d'avance,
Bonne soirée,

Vinaigre