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 : Sélectionner tout - Visualiser dans une fenêtre à part
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