Discussion :

[fevec]

bonjour,
J'ai une barre de menu dénommé Clients

Je voudrais lister d'abord dans la fenêtre de déboggage (puis plus tard dans une table), l'ensemble des menus, commandes, sous menus contenus dans cette barre de commandes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Function LISTE()
Dim i As Integer, nb As Integer
Dim cbar As Variant
Set cbar = CommandBars("Clients")
nb = cbar.Controls.Count
For i = 1 To nb
    Debug.Print cbar.Name, cbar.Controls(i).Name
 
'J = cbar.Controls(i).Controls.Count
Next i
 
End Function

J'ai un pb GRAVE de syntaxe, je n'arrive pas écrire le code adéquat

Par avance grand merci pour vos pistes
(ou indication sur un tutoriel (non trouvé) )

fevec

[LedZeppII]

Bonsoir,

Essaie de référencer la bibliothèque Office, "Microsoft Office xx.x Object Library" (xx.x = num version office).

Comme ça dans l'explorateur d'objets tu verra de quoi sont constitués les contrôles (objet CommandBarControl) d'une barre de commandes (objet CommandBar).

La propriété Name n'existe pas pour CommandBarControl.
Essaye avec Caption.

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

Debug.Print cbar.Name, cbar.Controls(i).Caption, cbar.Controls(i).DescriptionText

A+