Bonjour,

Je vous explique mon problème :
J'ai crée une macro que je voudrai déployer sur plusieurs postes. Pour cela, j'ai crée un .xla et je voudrai dans xla rajouter une procédure qui me fabrique un menu (a coté du menu "aide") et dans lequel je glisserai un bouton qui lancerai la macro.

La seule chose que j'arrive a faire est une barre d'outil flotante qui se trouve en plein milieu de la feuille de calcul. Quelqu'un peut il m'aider svp ??

Merci d'avance....

Ci dessous le code pour la barre d'outil que j'arrive à faire :
Sub CreeBO()

Dim MonMenu
Dim MonBouton

On Error Resume Next

Set MonMenu = Application.MenuBars.Add("Prelevement")

With MonMenu
      
   Set MonBouton = .Controls.Add(msoControlButton)
   
   With MonBouton
       .FaceId = 29
       .OnAction = "Macro1"
   End With
   
    .Visible = True
End With
End Sub


Nag

Niquel tout ca.... Ca marche très très bien....

Bon je vais pousser le visse un peu plus loin maintenant :
 - Comment tester si la barre est présente ?
 - Comment la supprimer ?

Merci encore (apres promis j'embette plus !)


Nag

Mervellous.....Faboulous.... Genious.... Congratulationous !!!!

Bon ba je crois que c'est tip top et que c'est exactement ce que je voulais.....

Merci BCP !!


Nag