Bonjour à tous,

J'ai créé une barre d'outil suivant le tutoriel développez ci dessous, qui marche, mais je n'obtiens pas que la caption soit sous l'icône, la séparation du BeginGroup n'apparaît pas non plus, la macro s'effectue normalement.
D'autre part le nom de la barre apparaît comme complément et je souhaite un autre nom, comment le changer ?
Merci d'avance

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim cmdbar As CommandBar
Set  cmdbar = CommandBars.Add(Name:="Tools", Position:=msBarTop, Temporary:= True)
 
Dim bouton as CommandBarButton
 
Set bouton = CommandBars("Tools").Controls.Add(type:=msoControlButton)
With bouton
.style = msobuttonIconAndWrapCaptionBelow
.caption = "Général date"
.facedID = 1754
.onAction = "affichagebdGeneraldata"
.beginGroup = true
End with