VBA essbase fonction retrieve

Bonjour tout le monde.
Etant débutant en VB j'ai une erreur de compilation
Fin d'instruction attendu:

Je ne comprends pas pourquoi.
Si quelqu'un a une idée. Merciii

Code:

1
2
3
4
5
6
7
8
9
10
11
Declare Function EssMenuVRetrieve Lib "ESSEXCLN.XLL" () As Long,
Sub loop_all_sheets()
Num_Sheets = application.Sheets.Count
' The number of sheets in the workbook are stored in the Num_Sheets variable
For y = 1 To Num_Sheets
'This is a loop that will repeat Num_Sheets times. If Num_Sheets is 10 then the
'loop will execute 10 times.
Sheets(y).Select
x = EssMenuVRetrieve
Next x
End Sub

Bonjour,

C'est la virgule, au bout de la première ligne qui ne lui plaît pas. Soit tu l'enlèves soit il manque quelque chose.

Et aussi un

Code:

Next y

à la place de

Code:

Next x

re

Merci pour vos réponses