Discussion :

[ouioui_cmoi]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?)

[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

[ouioui_cmoi]

euh j'ai essayé....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Re

Bizarre

Voici comment il faut mieux procéder :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Starec

[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...

[Invité]

Re

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

[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...

[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

[ouioui_cmoi]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Et lorsqu'on ferme excel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[Invité]

Bonjour

Essayes de lancer ce code pour la suppression

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouioui_cmoi]

ca marche!!!
merci beaucoup Starec

[Invité]

Ok

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

Starec

[ouioui_cmoi]

ouep v jeter un coup d'oeil