Hi,

This code add a button to the "standard" command bar of the
visual editor window ?

Does someone know why it does not work ?
and what to change to make it work.

'---------------------
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 "Good afternoon"
End Sub
'---------------------

Thank in advance for you time.

Salutations

Not absolutely sure, but pretty sure you didn't need the second With statment.

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

I haven't tried adding anything in the VBE before, but it shouldn't be a lot
different that adding to an Excel menu bar.
"MichDenis" wrote:

> Hi,
>
> This code add a button to the "standard" command bar of the
> visual editor window ?
>
> Does someone know why it does not work ?
> and what to change to make it work.
>
> '---------------------
> 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 "Good afternoon"
> End Sub
> '---------------------
>
> Thank in advance for you time.
>
> Salutations
>
>
>

After checking some of the help files, it looks like you will need to use the
Set statement to get this to work.

"MichDenis" wrote:

> Hi,
>
> This code add a button to the "standard" command bar of the
> visual editor window ?
>
> Does someone know why it does not work ?
> and what to change to make it work.
>
> '---------------------
> 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 "Good afternoon"
> End Sub
> '---------------------
>
> Thank in advance for you time.
>
> Salutations
>
>
>

Thanks for your participation.

If you're still interested, 2 addresses :

(near the bottom of the page ...)
http://usenet.p2preactor.com/index-t-1455761.html




http://www.cpearson.com/excel/VbeMenus.aspx





Salutations





"JLGWhiz" <(E-Mail Removed)> a écrit dans le message de news:
D5B4470F-9181-49F0-AA94-(E-Mail Removed)...
After checking some of the help files, it looks like you will need to use the
Set statement to get this to work.

"MichDenis" wrote:

> Hi,
>
> This code add a button to the "standard" command bar of the
> visual editor window ?
>
> Does someone know why it does not work ?
> and what to change to make it work.
>
> '---------------------
> 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 "Good afternoon"
> End Sub
> '---------------------
>
> Thank in advance for you time.
>
> Salutations
>
>
>