Discussion :

[soubichat]

Bonjour,

J'aimerais agir sur un menu d'une barre d'icônes (qui contient lui même des icônes).
Comme ma macro bloque sur une ligne, j'ai simplifié le code au maximum pour que vous puissiez m'aider. Ça donne ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub essai()
    Dim icone, icone2 As CommandBarControl
    Dim nom, nom2 As String
    For Each icone In Application.CommandBars("test").Controls
        If icone.Type = 10 Then '1 pour les icônes et 10 pour les menus
            nom = icone.Caption
            MsgBox "nom du menu : " & nom
            For Each icone2 In Application.CommandBars(nom).Controls
                nom2 = icone2.Caption
                MsgBox "nom de l'icône : " & nom2
            Next icone2
        End If
    Next icone
End Sub

À chaque fois, ça bloque sur "for each icone2... "
Quelqu'un pourrait-il me dire comment il faut que je corrige cette ligne (ou une autre ?)

[soubichat]

Bon, finalement, j'ai trouvé la solution tout seul.

Code :

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

For Each icone2 In icone.Controls