" Invalid procedure call or argument

Version imprimable

Bonjour à tous,

Je souhaite faire tourner une macro me ramenant la valeur suivante "INTERVAL_PERCENT_CHANGE" à partir de :
L'identifiant du fonds ( ETF) concerné "S3.Range(Cells(3, 76), Cells(3, 77)).Value",
Dates de début et de fin "S3.Cells(i, 73).Value" et "S3.Cells(i, 74).Value"
Devise "S3.Cells(2, 76).Value"
à partir des API de Bloomberg Mais je reçois un doux message d'erreur " invalid procedure call or argument".
J'ai vraiment tout essayé mais il y a surement quelque chose qui m'échappe.

la ligne soulignée est la suivante:

Code:

range(cells(4,76),cells(12,77)).value  msg.GetElement("securitydata").GetValue(0).GetElement("fieldData").GetElement("INTERVAL_PERCENT_CHANGE").Value

Merci pour toutes vos réponses et éclairages. ci-dessous le code en entier

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
Sub ref_data()
 
 
Dim session As blpapicomLib2.session
Set session = New session
session.Start
 
Dim Service As blpapicomLib2.Service
session.OpenService ("//blp/refdata")
Set Service = session.GetService("//blp/refdata")
 
Dim Request As blpapicomLib2.Request
Set Request = Service.CreateRequest("ReferenceDataRequest")
 
 
 
Request.Append "securities", "S3.Range(Cells(3, 76), Cells(3, 77)).Value"
Request.Append "fields", "INTERVAL_PERCENT_CHANGE"
Dim overrides As Element
Set overrides = Request.GetElement("overrides")
Dim override As Element
Set override = overrides.AppendElment
Dim i As Integer
For i = 4 To 12
 
Dim override1 As Element
Set override1 = overrides.AppendElment
 
override1.SetElement "fieldId", "Start_Date_Override"
override1.SetElement "value", "S3.Cells(i, 73).Value" 'Replace date with the cell reference eg Range("B10").Value
 
Dim override2 As Element
Set override2 = overrides.AppendElment
 
override2.SetElement "fieldId", "End_Date_Override"
override2.SetElement "value", "S3.Cells(i, 74).Value" 'Replace date with the cell reference eg Range("A10").Value
 
Dim override3 As Element
Set override3 = overrides.AppendElment
 
override3.SetElement "fieldId", "CRNCY"
override3.SetElement "value", "S3.Cells(2, 76).Value" 'Replace EUR with the cell reference eg Range("A10").Value
 
 
session.SendRequest Request
 
Dim blpevent As blpapicomLib2.Event
Dim it As blpapicomLib2.MessageIterator
Dim msg As blpapicomLib2.Message
Dim finalResponse As Boolean
Do While finalResponse = False
 
    Set blpevent = session.NextEvent
    Set it = blpevent.CreateMessageIterator
 
    Do While it.Next
        Set msg = it.Message
                If blpevent.EventType = RESPONSE Or blpevent.EventType = PARTIAL_RESPONSE Then
 
           range(cells(4,76),cells(12,77)).value  msg.GetElement("securitydata").GetValue(0).GetElement("fieldData").GetElement("INTERVAL_PERCENT_CHANGE").Value
 
 
        End If
 
        If blpevent.EventType = RESPONSE Then
                finalResponse = True
        End If
 
    Loop
Loop
Next i
 
End Sub

01/08/2018, 16h16
Jean-Philippe André

Salut,

Bienvenue sur DVP :salut:

en principe si tu as un poste bbg, tu as un support dédié pour les spreadsheets et les macros :)

Tu nous sors un code pour ainsi dire non commenté donc on ne sait pas ce qu'il est sensé faire :cristal:

Il nous manquerait également tes propres objectifs

Citation:

je souhaite écrire une macro intégrant des API qui me ramène les données de bloomberg

Un cas concret peut être ? Le cours d'ouverture d'une action ? d'une commo ? d'un métal précieux ?

Ta demande est trop vague pour que l'on puisse te donner des pistes pertinentes sans taper à côté de la cible :(
02/08/2018, 16h52
mariebasile

Bonjour Jean philippe, merci pour les remarques je vais modifier avec les informations plus precises
02/08/2018, 18h15
Jean-Philippe André

Salut,

à deux reprises tu passes par

Code:

Request.Append "securities", "S3.Range(Cells(3, 76), Cells(3, 77)).Value"

alors que ce que tu cherches n'est pas chaine

Code:

"S3.Range(Cells(3, 76), Cells(3, 77)).Value"

mais bien le contenu de la plage

Code:

S3.Range(Cells(3, 76), Cells(3, 77)).Value

aussi tu peux tester plutot

Code:

Request.Append "securities", S3.Range(S3.Cells(3, 76), S3.Cells(3, 77)).Value

je t'ai corrigé le code en prévision d'un probable erreur 1004

Même chose plus bas concernant ton

Code:

override1.SetElement "value", "S3.Cells(i, 73).Value"

à corriger en

Code:

override1.SetElement "value", S3.Cells(i, 73).Value
03/08/2018, 10h31
mariebasile

Bonjour Jean Philippe,
j'ai modifié comme indiqué mais cette fois je reçois un message "type mismatch"
03/08/2018, 13h08
Qwazerty
Salut

Il ne te manquerait pas un "=" quelque part ?

Code:

range(cells(4,76),cells(12,77)).value

n'attend aucun paramètre

essai
Code:

1 2 range(cells(4,76),cells(12,77)).value = msg.GetElement("securitydata").GetValue(0).GetElement("fieldData").GetElement("INTERVAL_PERCENT_CHANGE").Value
J'attire aussi ton attention sur le fait que tu ne précise pas le classeur et la feuille sur laquelle tu travailles. SI le traitement est long et que l'utilisateur active un autre classeur ou une autre feuille, les données seront inscrite sur celui-ci, écrasant au passage leur contenu.

Citation:

Envoyé par mariebasile

j'ai modifié comme indiqué mais cette fois je reçois un message "type mismatch"

Peux-tu préciser sur quelle ligne? toujours la même ?
++
Qwaz

bonjour Qwazerty,
Merci pour les remarques, je viens de préciser les feuilles comme suit
Code:

1 2 3 4 5 6 7 8 9 10 Sub ref_data() Dim S1 As Worksheet Dim S2 As Worksheet Dim s3 As Worksheet Dim session As blpapicomLib2.session Set session = New session Set S1 = Worksheets("Sheet1") Set S2 = Worksheets("Sheet2") Set s3 = Worksheets("Sheet3")
Citation:

Envoyé par Qwazerty

Salut

Il ne te manquerait pas un "=" quelque part ?

Qwaz

j'ai mis le signe égal mais j'ai la même erreur sur la meme ligne "invalid procedure or call"
Et lorsque je supprime les guillemet comme indiqué par jean Philipe j'ai une erreur "type mismatch" a cette ligne

Code:

override1.SetElement "value",S3.Cells(i, 73).Value

03/08/2018, 22h01
Qwazerty

Salut

Les modifications faite par Jean-Philippe André sont incontournables.

Tu as de la documentation sur cette dll? J'ai regardé sur le site mais il ne semble pas y avoir de version pour VB, j'ai testé les 3 versions du kit sdk mais aucun n'est reconnu dans les référence VBA.
[Edit] Ah, il semble y avoir un add-in pour Excel dans l'instal de Bloomberg... j'ai pas envie d'installer ça sur mon PC :) [/Edit]

Que contient

Code:

S3.Cells(i, 73).Value

?

L'élément "Value" semble attendre un type string essai en transtypant

Code:

override1.SetElement "value",cstr(S3.Cells(i, 73).Value)

++
Qwaz