VBA & Requete Bloomberg

Version imprimable

Bonjour à tous,

Je cherche à faire des requêtes dans Bloomberg dans une macro.
Je voudrais que pour chaque "Fields", il me prenne un tableau de String et non une seule valeur à chaque fois, ca du coup il effectue à chaque fois une reqûete et ça ralention donc beaucoup le code.

Voici mon code :

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
40
41
42
Sub GetOptionsData()
Dim i As Long, j As Long, nTotCount As Long, iMax As Long, nCnt As Long, vChainResult As Variant
Dim objBloomberg As BlpData, strSec() As String
Const offset As Integer = 10
Dim vArrayFields(1 To 5) As String
vArrayFields(1) = "OPT_EXPIRE_DT"
vArrayFields(2) = "OPT_STRIKE_PX"
vArrayFields(3) = "OPT_PUT_CALL"
vArrayFields(4) = "BID"
vArrayFields(5) = "ASK"
 
Ticker = Range("Ticker")
Range("B" & offset & ":AA" & Rows.Count).ClearContents
 
Application.StatusBar = Ticker & " Subscription Status: Retrieving Option Chain Tickers"
Set objBloomberg = New BlpData
objBloomberg.Subscribe Ticker, 1, "OPT_CHAIN", Results:=vChainResult
If IsArray(vChainResult) Then
iMax = UBound(vChainResult, 1)
For i = 0 To iMax
ReDim Preserve strSec(UBound(vChainResult(i, 0), 1) + nTotCount)
For nCnt = 0 To UBound(vChainResult(i, 0), 1)
strSec(nTotCount) = vChainResult(i, 0)(nCnt, 0)
nTotCount = nTotCount + 1
Cells(i + offset, 1) = strSec(i)
Next nCnt
Next i
 
Cells(i + offset, 1) = strSec(i)
DoEvents
Application.StatusBar = Ticker & " Subscription Status: Retrieving Data for " & strSec(i) & " (" & i & _
" of " & UBound(strSec) - LBound(strSec) & ")"
objBloomberg.Subscribe strSec(i), i + 1, vArrayFields, monitor:=True, Results:=vbData
For j = 1 To UBound(vArrayFields)
Cells(i + offset, j + 1) = vbData(0, j - 1)
Next j
vbData = vbEmpty
Next i
 
End If
 
End Sub

Le bout de code que je voudrais changer est donc celui ci :

Code:

1
2
3
Application.StatusBar = Ticker & " Subscription Status: Retrieving Data for " & strSec(i) & " (" & i & _
" of " & UBound(strSec) - LBound(strSec) & ")"
objBloomberg.Subscribe strSec(i), i + 1, vArrayFields, monitor:=True, Results:=vbData

Au lieu de prendre une valeur de strSec, je voudrais qu'il prenne l'ensemble de strSec.

Dans excel ceci est posssible via la formule :
=BDP(F17:F19,G16)

Merci d'avance.

13/03/2012, 10h46
Jean-Philippe André

:salut:
peux-tu nous dire ce qu'il y a dans tes cellules avec ta formule, parce qu'autant la fonction subscribe de la blpdata se fait ticker par ticker, j'ai du mal à saisir ta question :koi:
13/03/2012, 11h00
Monte_Carlo

Les cellules F17:F19 contiennent des tickers d'options et la range("G16") contient le "field" comme par exmple "BID"
13/03/2012, 11h25
Jean-Philippe André

Ok,

il est toujours possible de gérer les formules par le code hein :oops:

La souscription à un ticker via VBA, je n'ai jamais utilisé autre chose que le "un par un".

POur que ca "prenne" moins de temps, on peut toujours freezer l'écran (pas de mise à jour du statusbar par exemple)...
13/03/2012, 11h35
Monte_Carlo

Mais je ne veux pas utiliser ces formules, car sur des indices par exemple où il y a 3000 ligne d'options listées, les données sont beaucoup trop long à s'actualiser via ces formules (plus d'une minute), d'où ma volonté de faire un requête directe dans Bloom.
13/03/2012, 11h40
Jean-Philippe André

Ok, donc tu es bien obligé de passer par le VBA et de subir la lenteur du requêtage :?

Rien ne t'empeche de recreer la fonction BDP en code, avec une boucle for each derriere. Mais on ne peut pas faire grand chose pour améliorer le temps de réponse de BBG de ce point de vue la :oops:

Oui mais je pense qu'il est possible de mettre un tableau dans ce bout de code la
Code:

1 2 3 Application.StatusBar = Ticker & " Subscription Status: Retrieving Data for " & strSec(i) & " (" & i & _ " of " & UBound(strSec) - LBound(strSec) & ")" objBloomberg.Subscribe strSec(i), i + 1, vArrayFields, monitor:=True, Results:=vbData
Il est possible de le faire dans la formule bdp, il n'y est pas de raison pour que ça ne le soit pas dans le code