Discussion :

[boule2]

bonjour,

voilà j'aurais souhaiter faire une barre de menu oou remplacer le ruban dans excel2003.

mon but etant de n'avoir que cette barre dans ma feuille de travaille pour faire mes devis.

merci pour l'aide.

[ouskel'n'or]

Pour tester cette macro, placer une image de 16 * 16 pixels nommée "Le Bouton.bmp" dans le répertoire "C:\Mes images"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub BarreDoutilsPersonnalisée()
Dim LaBarre As CommandBar
Dim LeBouton As CommandBarButton
Dim NomDeLaBarre$, NomMacro$, NomClasseur$, CheminEtNomImage$, ActionDuDouton$
ActionDuDouton = "La macro qui fait rien"
NomDeLaBarre = "NouvelleBarre"
NomMacro = "LaMacroAexecuter"
NomClasseur = ThisWorkbook.Name
CheminEtNomImage = "C:\Mes images\Le Bouton.bmp"
    'Insère l'image du bouton dans la feuille Excel
    ActiveSheet.Pictures.Insert(CheminEtNomImage).Select
    'Copie l'image en vue de son application au bouton
    Selection.Copy
    Application.CommandBars.Add(Name:=NomDeLaBarre).Visible = True
    Set LaBarre = CommandBars(NomDeLaBarre)
    Set LeBouton = LaBarre.Controls.Add(Type:=msoControlButton)
        LeBouton.FaceId = 0
        LeBouton.Caption = ActionDuDouton  'info-bulle du bouton
        LeBouton.OnAction = "'" & NomClasseur & "'!" & NomMacro
        'Application de l'image au bouton
        LeBouton.PasteFace
        'Suppression de l'image dans la feuille de calculs
        Selection.Delete
    Set LaBarre = Nothing
    Set LeBouton = Nothing
End Sub
 
Sub LaMacroAexecuter()
MsgBox "Macro qui fait rien"
End Sub

Reste plus qu'à adapter tout ce qui est en rouge (!)

NB - L'image bmp à copier sur le bouton doit faire 16 pixels par 16 pixels

Edit
Regarde là http://www.developpez.net/forums/sho...d.php?t=461562, j'ai mis une récapitulation de la plupart des actions que l'on peut faire sur une barre d'outils personnalisée.

[boule2]

merci pour ton aide