barre de boutons

[Sophie]

slt,
je souhaite faire apparaitre une barre de boutons plutot que d'aller a chaque fois chercher la macro... mais cette barre s'éxécute mais n'ouvre pas la commande quelqu'un pourrai me dire l'erreur que j'ai faite SVP?

voila le pgm!

Option Explicit

Public barre10 As CommandBar
Public création_fiche As CommandBarButton


Sub creation_barre()
Set barre10 = CommandBars.Add(Name:='Importation_données', _
Position:=msoBarFloating, MenuBar:=False, temporary:=True)
With barre10
.Visible = True
.Position = msoBarTop
Set création_fiche = .Controls.Add(Type:=msoControlButton, ID:=2950)
End With
With création_fiche
.Caption = '&Création des fiches devis'
.OnAction = 'créa_devis'
.Style = msoButtonIconAndCaption
.FaceId = 643
End With
End Sub
Sub suprime_barre()
CommandBars('Importation_données').Delete
End Sub




merci bcp d'avance.

 

[Sophie]

aidez moi s'il vous plait je galere depuis un petit moment et j'en ai trop trop marre!!!!!!!!!!!

 

[Eric C]

Bonjour le forum
Bonjour Sophie

Dans l'immédiat, comme tout est 'propre' je ne vois qu'une chose :
ta macro appelée ne se nomme pas : créa_devis. Où il manque quelque chose ou il n'y a pas d'accent sur le e de créa......
Le reste a l'air fonctionnel.

 

[Eric C]

Bonjour le forum
Bonjour Sophie

Dans l'immédiat, comme tout est 'propre' je ne vois qu'une chose :
ta macro appelée ne se nomme pas : créa_devis. Où il manque quelque chose ou il n'y a pas d'accent sur le e de créa......
Le reste a l'air fonctionnel.