Macro avec des API bloomberg
Laetitiayao
Messages postés
54
Date d'inscription
Statut
Membre
Dernière intervention
-
Laetitiayao Messages postés 54 Date d'inscription Statut Membre Dernière intervention -
Laetitiayao Messages postés 54 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous
j'ai une préocupation, je souhaite écrire une macro intégrant des API qui me ramène les données de bloomberg ( plate forme comprenant les données financière en temps réel, un peu comme yahoo finance) sans que je n'ai a ouvrir le terminal.
je débute sur bloomberg et ne sais pas comment m'y prendre, dans mes recherches je suis tombée sur un template qui me montre un peu le chemin. pourriez-vous m'aider à comprendre les lignes du code avec référence aux celulles concernées de sorte à ce que je puisse l'adapter à mon fichier?
ci joint le fichier concerné
https://www.cjoint.com/c/HHbiqN1S1vh
help
merci
j'ai une préocupation, je souhaite écrire une macro intégrant des API qui me ramène les données de bloomberg ( plate forme comprenant les données financière en temps réel, un peu comme yahoo finance) sans que je n'ai a ouvrir le terminal.
je débute sur bloomberg et ne sais pas comment m'y prendre, dans mes recherches je suis tombée sur un template qui me montre un peu le chemin. pourriez-vous m'aider à comprendre les lignes du code avec référence aux celulles concernées de sorte à ce que je puisse l'adapter à mon fichier?
ci joint le fichier concerné
https://www.cjoint.com/c/HHbiqN1S1vh
help
merci
1 réponse
voici le code concerné
Public Sub MakeRequest(sSecList() As String, sFldList As Variant, sOverrideFields As Variant, sOverrideValues As Variant)
Dim req As Request
Dim nRow As Long
currentrow = 16 'Start output from row 16
Set req = refdataservice.CreateRequest("ReferenceDataRequest")
For nRow = LBound(sSecList, 1) To UBound(sSecList, 1)
req.GetElement("securities").AppendValue sSecList(nRow)
Next
For nRow = LBound(sFldList, 1) To UBound(sFldList, 1)
req.GetElement("fields").AppendValue sFldList(nRow)
Sheet1.Cells(currentrow, nRow + 2).Value = sFldList(nRow)
Next
Dim overrides As Element
Set overrides = req.GetElement("overrides")
For nRow = LBound(sOverrideFields, 1) To UBound(sOverrideFields, 1)
Dim override As Element
Set override = overrides.AppendElment()
override.SetElement "fieldId", sOverrideFields(nRow)
override.SetElement "value", sOverrideValues(nRow)
Next
session.SendRequest req
currentrow = currentrow + 1
Dim eventObj As blpapicomLib2.Event
Do
Set eventObj = session.NextEvent() ' this will block code execution until the next event is received
If eventObj.EventType = PARTIAL_RESPONSE Or eventObj.EventType = RESPONSE Then
Dim it As blpapicomLib2.MessageIterator
Set it = eventObj.CreateMessageIterator()
Do While it.Next()
Dim msg As Message
Set msg = it.Message
Dim numSecurities As Integer
numSecurities = msg.GetElement("securityData").NumValues
Dim i As Integer
For i = 0 To numSecurities - 1
Dim security As Element
Set security = msg.GetElement("securityData").GetValue(i)
Sheet1.Cells(currentrow, 1).Value = security.GetElement("security").Value
Dim fields As Element
Set fields = security.GetElement("fieldData")
Dim numFields As Integer
numFields = fields.NumElements
Dim fldplace As Integer
Dim a As Integer
For a = 0 To numFields - 1
fldplace = a
Dim field As Element
Set field = fields.GetElement(a)
Do While (Sheet1.Cells(16, fldplace + 2).Value <> field.Name)
fldplace = fldplace + 1
Loop
Sheet1.Cells(currentrow, fldplace + 2).Value = field.Value
Next
currentrow = currentrow + 1
Next
Loop
If eventObj.EventType = RESPONSE Then Exit Do
End If
Loop
End Sub
