Titre du sujet : Re: mdf_doublon non active sous excel 2007 par MichelXld le 21/11/2007 08:27:53
bonjour
Et est ce que cette simple macro permet d'afficher le complément ?
Dim CmdBar As CommandBar
Dim Bouton As CommandBarButton
'Création de la barre d'outils nommée 'MaBarrePerso'
Set CmdBar = Application.CommandBars _
.Add(Name:="MaBarrePerso", Position:=msoBarTop, Temporary:=True)
'Ajout de 3 boutons dans la barre d'outils
Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
With Bouton
'Définit "l'image" qui va s'afficher sur le bouton
.FaceId = 133
'Définit quelle macro est associée au bouton.
'Cette macro sera lancée à chaque fois que vous cliquez sur le bouton.
.OnAction = "Macro1"
End With
Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
With Bouton
.FaceId = 134
.OnAction = "Macro2"
End With
Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
With Bouton
.FaceId = 135
.OnAction = "Macro3"
End With
CmdBar.Visible = True
pour supprimer ensuite la barre d'outils:
On Error Resume Next
Application.CommandBars("MaBarrePerso").Delete
bonne journée michel
|