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