OVH Cloud OVH Cloud

bouton

3 réponses
Avatar
FB
Bonjour à tous

je voudrais créé ma propre barre d'outils avec mes propres boutons et tout
et tout (jusque la ca va). il est très facile d'assigné des macro ou des
progs vba lorsqu'on a un fichier qu'on réutilise régulièrement. mon cas est
tout à fait différent!!!
j'ai créé un fichier XLT et dans ce fichier j'ai créé ma barre d'outils avec
mes boutons auquel j'ai associé mes programme VBA en pensant que lorsque je
créé un nouveau fichier a partir de mon modèle.xlt les boutons serai associé
au programme vba de ce fichier .... mais non ca plante completement... alors
comment faire ???

Si quelqu'un a compris mon petit problème et qu'il a une solution..... ce
serai super pour moi .... et un grand merci d'avance

3 réponses

Avatar
Hervé
Salut,
Et en mettant tes macros dans Perso.xls ?
Hervé.

"FB" a écrit dans le message news:

Bonjour à tous

je voudrais créé ma propre barre d'outils avec mes propres boutons et tout
et tout (jusque la ca va). il est très facile d'assigné des macro ou des
progs vba lorsqu'on a un fichier qu'on réutilise régulièrement. mon cas
est

tout à fait différent!!!
j'ai créé un fichier XLT et dans ce fichier j'ai créé ma barre d'outils
avec

mes boutons auquel j'ai associé mes programme VBA en pensant que lorsque
je

créé un nouveau fichier a partir de mon modèle.xlt les boutons serai
associé

au programme vba de ce fichier .... mais non ca plante completement...
alors

comment faire ???

Si quelqu'un a compris mon petit problème et qu'il a une solution..... ce
serai super pour moi .... et un grand merci d'avance


Avatar
Alain CROS
Bonjour.

Dans le Classeur Modèle(.xlt)

Dans le ThisWorkbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("MaBarre").Delete
On Error GoTo 0
End Sub

Private Sub Workbook_Open()
Dim CB As CommandBar, BT As CommandBarButton
On Error Resume Next
Application.CommandBars("MaBarre").Delete
On Error GoTo 0
Set CB = Application.CommandBars.Add
With CB
.Visible = True
.Name = "MaBarre"
End With
Set BT = CB.Controls.Add(msoControlButton)
With BT
.Style = msoButtonCaption
.Caption = "Demo"
.OnAction = Workbooks(Workbooks.Count).Name & "!ThisWorkbook.Test"
End With
Set BT = Nothing
Set CB = Nothing
End Sub

Private Sub test()
MsgBox Application.CommandBars("MaBarre").Controls(1).OnAction
End Sub

Alain CROS

"FB" a écrit dans le message de news:
Bonjour à tous

je voudrais créé ma propre barre d'outils avec mes propres boutons et tout
et tout (jusque la ca va). il est très facile d'assigné des macro ou des
progs vba lorsqu'on a un fichier qu'on réutilise régulièrement. mon cas est
tout à fait différent!!!
j'ai créé un fichier XLT et dans ce fichier j'ai créé ma barre d'outils avec
mes boutons auquel j'ai associé mes programme VBA en pensant que lorsque je
créé un nouveau fichier a partir de mon modèle.xlt les boutons serai associé
au programme vba de ce fichier .... mais non ca plante completement... alors
comment faire ???

Si quelqu'un a compris mon petit problème et qu'il a une solution..... ce
serai super pour moi .... et un grand merci d'avance


Avatar
Alain CROS
Bonjour.

Remplacer la ligne :
.OnAction = Workbooks(Workbooks.Count).Name & "!ThisWorkbook.Test"
Par :
.OnAction = ThisWorkbook.Name & "!ThisWorkbook.Test"

Alain CROS

"FB" a écrit dans le message de news:
Bonjour à tous

je voudrais créé ma propre barre d'outils avec mes propres boutons et tout
et tout (jusque la ca va). il est très facile d'assigné des macro ou des
progs vba lorsqu'on a un fichier qu'on réutilise régulièrement. mon cas est
tout à fait différent!!!
j'ai créé un fichier XLT et dans ce fichier j'ai créé ma barre d'outils avec
mes boutons auquel j'ai associé mes programme VBA en pensant que lorsque je
créé un nouveau fichier a partir de mon modèle.xlt les boutons serai associé
au programme vba de ce fichier .... mais non ca plante completement... alors
comment faire ???

Si quelqu'un a compris mon petit problème et qu'il a une solution..... ce
serai super pour moi .... et un grand merci d'avance