Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Fenêtre éditeur de code - Bouton de commande

Fenêtre éditeur de code - Bouton de commande

15 réponses
Avatar
MichDenis
Bonjour,

Ce code ajoute un bouton de commande à la barre d'outils standard
de la fenêtre de l'éditeur de code.
Pourtant, lors du clic sur le bouton, la macro qui lui est associée
ne s'exécute pas.

Connaissez-vous l'origine du problème ?

'---------------------
Sub Test()

With ThisWorkbook.VBProject.VBE.CommandBars("Standard")
With .Controls.Add(msoControlButton)
.Style = msoButtonWrapCaption
.Caption = "Recherche"
.OnAction = "Module5.test1"
End With
End With

End Sub

'---------------------
Sub test1()
MsgBox "Bonjour"
End Sub
'---------------------

Salutations.
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
isabelle
bonjour Papou,

dans le classeur exemple, sur la procedure : Sub AddNewVBEControls()

j'ai un erreur d'execution 5 à la ligne :

With Application.VBE.CommandBars("Menu Bar").Controls("Tools")

Microsoft Visual Basic For Applications Extensibility 5.3.
est présent et cocher.

as tu une idée du comment de pourquoi ?

isabelle

Bonjour Denis
Chez Chip il y a tout ce qu'il faut ;-)
http://www.cpearson.com/excel/VbeMenus.aspx

Cordialement
Pascal

"MichDenis" a écrit dans le message de news:


Bonjour,

Ce code ajoute un bouton de commande à la barre d'outils standard
de la fenêtre de l'éditeur de code.
Pourtant, lors du clic sur le bouton, la macro qui lui est associée
ne s'exécute pas.

Connaissez-vous l'origine du problème ?

'---------------------
Sub Test()

With ThisWorkbook.VBProject.VBE.CommandBars("Standard")
With .Controls.Add(msoControlButton)
.Style = msoButtonWrapCaption
.Caption = "Recherche"
.OnAction = "Module5.test1"
End With
End With

End Sub

'---------------------
Sub test1()
MsgBox "Bonjour"
End Sub
'---------------------

Salutations.









Avatar
MichDenis
| With Application.VBE.CommandBars("Menu Bar").Controls("Tools")

As-tu une version anglaise ? sinon, change "tools" pour "outils"


Salutations
Avatar
MichDenis
J'oublliais, il faut aussi changer le nom de la barre d'outils

Essaie plutôt avec ceci pour une version française d'excel

With Application.VBE.CommandBars("Barre de menus").Controls("Outils")

End With



"isabelle" a écrit dans le message de news:
bonjour Papou,

dans le classeur exemple, sur la procedure : Sub AddNewVBEControls()

j'ai un erreur d'execution 5 à la ligne :

With Application.VBE.CommandBars("Menu Bar").Controls("Tools")

Microsoft Visual Basic For Applications Extensibility 5.3.
est présent et cocher.

as tu une idée du comment de pourquoi ?

isabelle

Bonjour Denis
Chez Chip il y a tout ce qu'il faut ;-)
http://www.cpearson.com/excel/VbeMenus.aspx

Cordialement
Pascal

"MichDenis" a écrit dans le message de news:


Bonjour,

Ce code ajoute un bouton de commande à la barre d'outils standard
de la fenêtre de l'éditeur de code.
Pourtant, lors du clic sur le bouton, la macro qui lui est associée
ne s'exécute pas.

Connaissez-vous l'origine du problème ?

'---------------------
Sub Test()

With ThisWorkbook.VBProject.VBE.CommandBars("Standard")
With .Controls.Add(msoControlButton)
.Style = msoButtonWrapCaption
.Caption = "Recherche"
.OnAction = "Module5.test1"
End With
End With

End Sub

'---------------------
Sub test1()
MsgBox "Bonjour"
End Sub
'---------------------

Salutations.









Avatar
papou
Bonjour Isabelle
Il semble bien que les noms de menu soient en français.
Tu peux vérifier avec ça :
Dim cb As CommandBar
For Each cb In Application.VBE.CommandBars
MsgBox cb.Name
Next cb

Cordialement
Pascal

"isabelle" a écrit dans le message de news:

bonjour Papou,

dans le classeur exemple, sur la procedure : Sub AddNewVBEControls()

j'ai un erreur d'execution 5 à la ligne :

With Application.VBE.CommandBars("Menu Bar").Controls("Tools")

Microsoft Visual Basic For Applications Extensibility 5.3.
est présent et cocher.

as tu une idée du comment de pourquoi ?

isabelle

Bonjour Denis
Chez Chip il y a tout ce qu'il faut ;-)
http://www.cpearson.com/excel/VbeMenus.aspx

Cordialement
Pascal

"MichDenis" a écrit dans le message de news:


Bonjour,

Ce code ajoute un bouton de commande à la barre d'outils standard
de la fenêtre de l'éditeur de code.
Pourtant, lors du clic sur le bouton, la macro qui lui est associée
ne s'exécute pas.

Connaissez-vous l'origine du problème ?

'---------------------
Sub Test()

With ThisWorkbook.VBProject.VBE.CommandBars("Standard")
With .Controls.Add(msoControlButton)
.Style = msoButtonWrapCaption
.Caption = "Recherche"
.OnAction = "Module5.test1"
End With
End With

End Sub

'---------------------
Sub test1()
MsgBox "Bonjour"
End Sub
'---------------------

Salutations.










Avatar
isabelle
merci à vous deux c'était bien ça,

isabelle(qui ne fait plus de différence entre anglais/francais)



Bonjour Isabelle
Il semble bien que les noms de menu soient en français.
Tu peux vérifier avec ça :
Dim cb As CommandBar
For Each cb In Application.VBE.CommandBars
MsgBox cb.Name
Next cb

Cordialement
Pascal

"isabelle" a écrit dans le message de news:


bonjour Papou,

dans le classeur exemple, sur la procedure : Sub AddNewVBEControls()

j'ai un erreur d'execution 5 à la ligne :

With Application.VBE.CommandBars("Menu Bar").Controls("Tools")

Microsoft Visual Basic For Applications Extensibility 5.3.
est présent et cocher.

as tu une idée du comment de pourquoi ?

isabelle


Bonjour Denis
Chez Chip il y a tout ce qu'il faut ;-)
http://www.cpearson.com/excel/VbeMenus.aspx

Cordialement
Pascal

"MichDenis" a écrit dans le message de news:



Bonjour,

Ce code ajoute un bouton de commande à la barre d'outils standard
de la fenêtre de l'éditeur de code.
Pourtant, lors du clic sur le bouton, la macro qui lui est associée
ne s'exécute pas.

Connaissez-vous l'origine du problème ?

'---------------------
Sub Test()

With ThisWorkbook.VBProject.VBE.CommandBars("Standard")
With .Controls.Add(msoControlButton)
.Style = msoButtonWrapCaption
.Caption = "Recherche"
.OnAction = "Module5.test1"
End With
End With

End Sub

'---------------------
Sub test1()
MsgBox "Bonjour"
End Sub
'---------------------

Salutations.













1 2