API Bloomberg

[kobra]

Bonjour à tous,
Je debute sur l API de bloomberg et je rencontre un bug avec le code suivant:
Sub MultidayHistory()

' ou Dim clsH As New BLP_DATA_CTRLLib.BlpData
Dim objDataControl As BLP_DATA_CTRLLib.BlpData
Set objDataControl = New BlpData
Debug.Print "Formulaire Ouvert"

'variables

Dim vtResult() As Variant
Dim arrayFields As Variant
Dim vtSecurities() As Variant
Dim CalculDate As Date ' rien à voir avec cdate
Startd = Range("C10").Value
Endd = Range("C11").Value

' Set up the securities/fields in an array "SPOT_PRICE", "CHG_NET_1D", "CHG_PCT_1D")
arrayFields = Array("PX_LAST", "PX_VOLUME", "SPOT_PRICE", "CHG_NET_1D", "CHG_PCT_1D")
arraySecurities = Array("GLE FP Equity", "SX5P Index")


' Set the periodicity to daily/ Existe Calendar Daily????
objDataControl.Periodicity = bbDaily

' Definir interval des dates
' bug à la prochaine syntaxe

objDataControl.GetHistoricalData arraySecurities, 1, arrayFields, _
CDate(Startd), CDate(Endd), Results:=vtResult

End Sub

Merci par avance pour votre aide