assigner macro à un bouton via VBA

Version imprimable

21/03/2008, 14h14
ouioui_cmoi

assigner macro à un bouton via VBA
Bonjour
comment je peux faire poour assigner par VBA une macro à un mon bouton?
l enregistreur de macro me donne :
Code:

1 2 3 4 Application.CommandBars("Standard").Controls.Add Type:=msoControlButton, ID _ :=2950, Before:=23
Mais il ne m'associe pas ma macro automatiquement à mon bouton...

(question accessoire : comment faire pour choisir de mettre sur mon bouton du texte plutot que le smiley?)
21/03/2008, 14h18
Invité

Bonjour

Un peu de lecture, cet article a été fait pour Access, mais les instructions sont les mêmes, car les applications partagent la même bibliothéque.

Starec

euh j'ai essayé....
Code:

1 2 3 4 5 6 ' Application.CommandBars("standard").Controls.Add Type:=msoControlButton, ID _ :=2950, Before:=23 Application.CommandBars("standard").Controls(1).OnAction = "vnqldknv"
mais, je ne sais pas pourquoi, ça ne me l'assigne toujours pas :(

Re

Bizarre

Voici comment il faut mieux procéder :

Code:

1
2
3
4
5
6
7
8
9
Public Sub barre()
    Dim btn As Office.CommandBarControl
    Set btn = Application.CommandBars(1).Controls.Add(msoControlButton)
    With btn
        .Caption = "toto"
        .Style = msoButtonCaption
        .OnAction = "test"
    End With
End Sub

et la routine test

Code:

1
2
3
Public Sub test()
    MsgBox "CA MARCHE"
End Sub

Starec

21/03/2008, 16h00
ouioui_cmoi

j'ai mis exactement ce que tu as mis...mais ça ne me crée même plus le bouton :(
je dois avouer je ne comprend pas trop...parce que, à priori, on code me parait bon...
21/03/2008, 16h04
Invité

Re

Citation:

Envoyé par ouioui_cmoi

j'ai mis exactement ce que tu as mis...mais ça ne me crée même plus le bouton :(
je dois avouer je ne comprend pas trop...parce que, à priori, on code me parait bon...

Il est bon, je viens de le faire à la volé sous Excel 2000.
Comment lances-tu ton code, où est-il placé ?
De plus as-tu bien mis un caption à ton bouton et le bon style ? C'est le seul moyen de le voir apparaitre.

Starec
21/03/2008, 16h31
ouioui_cmoi

je lance mon code par l'intermédiaire d'un module vba en faisant Play
le bouton n est pas encore crée et je veux que le programme me le crée, et assigne ma macro à ce bouton...
21/03/2008, 18h52
Invité

Re

Pourrais-tu mettre le code complet que tu as utilisé.

Le mien crée le bouton, en fait le style, y met un libellé, et affecte la routine sous Test (qui doit être déclarée dans un module).

Starec

Je vais expliquer ce que je fais :
dans workbook, quand le fichier excel s'ouvre:
Code:

1 2 3 4 5 6 7 8 9 Public Sub barre() Dim btn As Office.CommandBarControl Set btn = Application.CommandBars(1).Controls.Add(msoControlButton) With btn .Caption = "tableausg" .Style = msoButtonCaption .OnAction = "test" End With End Sub
avec :
Code:

1 2 3 Public Sub test() MsgBox "CA MARCHE" End Sub
Et lorsqu'on ferme excel :
Code:

1 2 3 4 5 6 7 Public Sub barrebarre() Dim btn As Office.CommandBarControl CommandBars("btn").Controls(1).Delete End Sub
Mais, ce code pour supprimer le bouton ne marche pas...quelqu'un aurait une idée de l'erreur?
merci d'avance

PS : Starec, en fait, il marche ton programme, il me créait juste le bouton à un endroit que je n'avais pas vu...

Bonjour

Essayes de lancer ce code pour la suppression

Code:

1
2
3
4
5
6
7
8
Public Sub SubBtn()
    Dim btn As Office.CommandBarControl
    For Each btn In Application.CommandBars(1).Controls
        If btn.Caption = "tableausg" Then
            btn.Delete
        End If
    Next btn
End Sub

Starec

25/03/2008, 14h51
ouioui_cmoi

ca marche!!!
merci beaucoup Starec ;)
25/03/2008, 14h57
Invité

Ok

Lis quand même l'article, tu comprendras mieux pourquoi ta suppression est fausse.

Starec
25/03/2008, 15h02
ouioui_cmoi

ouep v jeter un coup d'oeil ;)