Bonjour à tous,


Je me permets de créer ce nouveau topic, j'ai cherché sur les forums et autres tutoriels mais impossible de trouver une solution à un problème qui me bloque depuis quelques jours. (c'est à en devenir fou !)

J'ai une macro qui va chercher des données (indices boursiers) sur différents sites (MSCI, STOXX, ...), automatiquement pour chaque jour. Mes colonnes sont donc mes indices et les lignes relatives à chaque date de cotation (jours ouvrés). Lorsque la requête se ballade sur les différents sites, elle doit détecter la date dans la page source, copier la valeur recherchée et l'insérer dans sa cellule respective.

Cependant, j'essaie d'intégrer une nouvelle source dans ma macro (ino.com), et les pages sources d'où je peux extraire mes données sont par exemple : http://club.ino.com/quotes/data/?q=1...15.E&w=d&f=csv (ici en l'occurence pour les cours de l'Or)

J'ai donc 3 fonctions pour cette manipulation, mais ça coince au niveau de la troisième... mais je ne sais pourquoi ... Le seul indice que j'ai est "Incompatibilité de type", au niveau de la variable "testarray183(1)"

Ci-dessous mon code (uniquement les lignes qui concernent cette nouvelle source):

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
40
41
42
43
44
45
46
47
48
Private Sub CommandButton1_Click()
cell = Lastcell
 
'adjust the amount of new data you need here
 
For cell = Lastcell To Lastcell + 1
Insertdate = Searchdate(GetXMLMSCIWORLD, Getcorrectdate(cell))
Insertdate = Replace(Insertdate, " ", "")
‘…
Insertvalue183 = Searchvalue183(GetGoldINO, Getcorrectdate(cell))
‘…
Cells(cell + 1, 183) = Insertvalue183
Next cell
End Sub
 
Private Function GetGoldINO()
 
'EVERYTHING OF GOLD
Dim objReq As WinHttp.WinHttpRequest
Set objReq = New WinHttp.WinHttpRequest
objReq.Option(WinHttpRequestOption_EnableRedirects) = True
objReq.Open "GET", "http://club.ino.com/quotes/data/?q=1&ticket=7b6bbcc69bg06a08e074068078068&s=NYMEX_GC.U15.E&w=d&f=tab", False
objReq.setRequestHeader "Cookie", "abcd=cookie:containing:colons"
objReq.send
GetGoldINO = objReq.ResponseText
End Function
 
 
Private Function Searchvalue183(GetGoldINO As String, getcorrectDateINO As String)
 
Dim Correctdate183 As String
Correctdate183 = Format(getcorrectDateINO, "mm/dd/yyyy")
 
Dim CorrectDateINO As String
CorrectDateINO = Format(Correctdate183, "yyyymmdd")
 
Dim testarray183(1) As String ''
testarray183(1) = Split(GetGoldINO, Correctdate183)   ---> c'est ici que ma variable pose problème
 
Dim zy183 As String
zy183 = Replace(testarray183(1), ",, "")
 
Dim secondArray183(1) As String
secondArray183 = Split(zy183, ",")
 
Searchvalue183 = secondArray183(1)
 
End Function

Voilà, j'espère que mon intervention n'est pas stupide ou inaproppriée, je suis novice en la matière et essaie d'apprendre tout en travaillant sur ces codes.

Je vous remercie d'ores et déjà et vous souhaite une bonne semaine !


OlivierVE90