CommandBars.FindControl(ID:=2054).Execute ne fonctionne pas !

[blord]

Bonjour à tous,

Dans le code suivant :

Sub CommandTest()
CommandBars.FindControl(ID:=748).Execute
CommandBars.FindControl(ID:=186).Execute
CommandBars.FindControl(ID:=2054).Execute
End Sub

Les deux premières lignes fonctionnent (j'en ai essayé d'autres avec succès) mais la dernière ligne refuse obstinément de fonctionner.

Qu'elle en est la raison ?

Merci à tous ...

Benoit Lord

 

[kiki29]

Re : CommandBars.FindControl(ID:=2054).Execute ne fonctionne pas !

Salut cela devrait t'apporter la réponse, la liste des éléments des barres d'outils avec leur identifiant
et sans doute que l'ID 2054 n'est présent dans aucune des barres de l'application testée ici Excel

Option Explicit

Sub Liste()
Dim cmdBar As CommandBar
Dim ctrl As CommandBarControl
Dim i As Long

    Feuil1.Columns("A:B").Clear
    Application.ScreenUpdating = False
    i = 1
    For Each cmdBar In CommandBars
        If cmdBar.Type = msoBarTypeNormal Then
            For Each ctrl In cmdBar.Controls
                If Len(ctrl.Caption) > 0 Then
                    Cells(i, 1) = ctrl.Caption
                    Cells(i, 2) = ctrl.ID
                    i = i + 1
                End If
            Next ctrl
        End If
    Next cmdBar
    Application.ScreenUpdating = True
End Sub

Si tu supprimes

If cmdBar.Type = msoBarTypeNormal Then .... End If

tu auras une liste exhaustive

 

[blord]

Re : CommandBars.FindControl(ID:=2054).Execute ne fonctionne pas !

Bonjour Kiki29, le Forum,

Donc, si je comprends bien, il faut que l'élément a exécuter soit affiché dans la barre d'outil pour que le code CommandBars.FindControl(ID:=2054).Execute fonctionne ?

Dans ce cas le code devrait fonctionner car l'élément 2054 est bel et bien présent dans ma barre d'outils ... vérification faite avec le code que tu as donné...

Mais de toute façon, si l'icône doit être présent dans la barre d'outils, celà ne résoud pas mon problème qui est de faire afficher la fenêtre "Choisir une source de données" sans avoir à passer par le menu...

Merci et bonne journée !

Benoit Lord

 

[kiki29]

Re : CommandBars.FindControl(ID:=2054).Execute ne fonctionne pas !

Re,effectivement je rectifie sous 2002 l'ID 2054 n'est pas présent dans la liste même si l'icône associée à Créer une requête est visible dans le menu, donc ce que tu demandes ne sera pas possible

 

[blord]

Re : CommandBars.FindControl(ID:=2054).Execute ne fonctionne pas !

Merci quand même pour ton aide !

Bonne journée !

Benoit Lord