Discussion :

[tetef]

Bonjour,

J'ai une macro qui me permet d'exporter le fichier courant vers un logiciel.
Pour cela, l'utilisateur doit cliquer sur un bouton que j'ajoute avec la macro elle-même dans une barre d'outils.
Je voudrais placer ce bouton dans la barre d'accès rapide (Word 2007) ou à côté du bouton "Enregistrer" dans le menu, mais quelle que soit la CommandBar que je choisisse, il est créé dans l'onglet "Compléments".

Il est impératif qu'il n'y ait aucune intervention "à la main" pour placer ce bouton.
Voilà mon code :

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
 
Dim xBar As CommandBar
Dim xBarButton As CommandBarButton
 
Set xBar = CommandBars("File")
If xBar Is Nothing Then
   Set xBar = CommandBars(APP_NAME)
   'APP_NAME est le nom de mon application
End If
 
Set xBarButton = xBar.FindControl(Tag:="btnIndexation")
If xBarButton Is Nothing Then
   Set xBarButton = xBar.Controls.Add(msoControlButton, Before:=1)
   With xBarButton
      .FaceId = 270 '1790
      .Caption = "Indexation"
      .TooltipText = "Enregistre et indexe le fichier courant directement"
      .Tag = "btnIndexation"
      .OnAction = "indexation"
   End With
End If

Si je ne trouve pas la barre "File" j'en crée une au nom de mon appli (ce qui ne fonctionne pas sous Word 2007 d'ailleurs...). J'ai essayé avec plein d'autres trucs que "File", sans plus de succès.
Au contraire même, si je remplace "File" par "Standard" ou "Menu Bar", le bouton créé (dans l'onglet "Compléments") n'a pas de Caption...

Si quelqu'un a une piste pour m'aider...
Merci d'avance!

[tetef]

Au contraire même, si je remplace "File" par "Standard" ou "Menu Bar", le bouton créé (dans l'onglet "Compléments") n'a pas de Caption...

Je me corrige moi-même pour ceux que ça peut interesser :
En rajoutant la propriété :

Code :

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

.Style = msoButtonIconAndCaption

lors de l'ajout du boutton, celui-ci a bien une caption quelle que soit la barre d'outils choisie.

Par contre, toujours pas de piste pour la placer où je désire...

[tetef]

Pour ceux que ça interessent : ce n'est pas possible de cette manière.
Les "CommandBars" ne sont plus gérées par cette méthode, mais par un fichier XML "CustomUI".

Je vous renvois à cet article :
Customizing the 2007 Office Fluent Ribbon for Developers (Part 1 of 3)