OVH Cloud OVH Cloud

VBA - Mettre un bouton à fin d'une barre d'outils

3 réponses
Avatar
Clément Marcotte
Bonjour,

Dans l'aide de VBA, les exemples de création de boutons de barre
d'outils arrivent tous avec un maudit joualvert de before. Espérant
réussir à placer le bouton à la fin de la barre d'outils j'ai essayé
d'enlever le before en question. Dans ce cas pas de bouton pantoute.

Exite-t-il une façon de mettre un bouton à la fin d'une barre
d'outils, en VBA, sans devoir mettre un hospice de before ?

Merci d'avance.

3 réponses

Avatar
Clément Marcotte
Bonjour,

Le problème n'est probablement pas avec Word. Je réussis à créer mon
bouton sans problème à la fin de la barre quand je pars d'un module
VBA-Word, mais je n'y parviens pas quand j'essaie à partir d'une
procédure VB. Donc le problème est sans doute avec VB. Donc, je vais
devoir chercher ailleurs.


"Clément Marcotte" a écrit dans le
message de news:
Bonjour,

Dans l'aide de VBA, les exemples de création de boutons de barre
d'outils arrivent tous avec un maudit joualvert de before. Espérant
réussir à placer le bouton à la fin de la barre d'outils j'ai essayé
d'enlever le before en question. Dans ce cas pas de bouton pantoute.

Exite-t-il une façon de mettre un bouton à la fin d'une barre
d'outils, en VBA, sans devoir mettre un hospice de before ?

Merci d'avance.




Avatar
Anacoluthe
Bonjour !

'Clément Marcotte' nous a écrit ...
Dans l'aide de VBA, les exemples de création de boutons de barre
d'outils arrivent tous avec un maudit joualvert de before. Espérant
réussir à placer le bouton à la fin de la barre d'outils j'ai essayé
d'enlever le before en question. Dans ce cas pas de bouton pantoute.
Exite-t-il une façon de mettre un bouton à la fin d'une barre
d'outils, en VBA, sans devoir mettre un hospice de before ?


Chez moi (VBA 6.3) ça marche si je ne mets pas de Before
du tout ou si je lui mets un Before comme ça :
Before:=ZeCommandBar.Controls.Count + 1
si ça peut t'aider...

J'ajoute 'maudit joualvert d'hospice' dans mon dico perso ;-)
Bonne année Clément

Anacoluthe
« J'pitonne sur mon téléphone
ça pas d'allure, c'est l'fun
j'pitonne à banque, ça, ça m'chiffonne
me vlà dans l'rouge, ça c'est moins l'fun
pitons, bouton ... »
- Robert CHARLEBOIS

Avatar
Clément Marcotte
Bonjour,

En fait, je suis en train de faire un complément COM (COM add-in pour
les puristes). (Son nom c'est "Calendrier civilisé"; c'est-à-dire
quelque chose capable de faire un calendrier mensuel avec des semaines
qui commencent le dimanche.)

Cela origine de la paresse microsftienne de faire un Publisher 2002 en
français avec des calendriers francophones ayant des semaines qui
commencent le dimanche. Ils avaient été assez intelligents pour y
penser dans Publisher 98 et Publisher 2000, mais, pour Publisher 2002,
5 ou 6 millions de francophones Nord-Américains, cela devait être
juste la lie informatique sans importance. (Pourtant ils font des
Office en Basque). (J'avais bien un autre terme que lie, mais bon...)

Dans Publisher, tout comme dans PowerPoint, d'ailleurs, seule une
macro complémentaire peut être utilisée dans n'importe quel document.
Sinon, il faut copier les macros d'un document à l'autre. Mais dans
Publisher, pour qu'une macro puisse accéder au statut de macro
complémentaire, elle doit l'être sous la forme d'un complément COM.
J'ai donc du sauter dans le bain avec VB6, pour réussir à avoir mes
calendriers civilisés.

L'ayant réussi pour Publisher, j'ai décidé de le faire pour Word et
PowerPoint, toujours dans VB6. Publisher et PowerPoint sont assez
brillants pour lancer un complément COM en phase de débogage dans VB6,
mais pour Word oubliez ça. Donc le bouton qui apparaissait dans
Publisher et PowerPoint n'apparaissait pas dans Word.

Par après, je me suis aperçu que Word pouvait lancer la dll compilée
et enregistrée, et donc, afficher le bouton. Mais là le débogage se
fait à l'espérancimètre. J'en suis donc rendu là.


"Anacoluthe" a écrit dans le message de
news:
Bonjour !

'Clément Marcotte' nous a écrit ...
Dans l'aide de VBA, les exemples de création de boutons de barre
d'outils arrivent tous avec un maudit joualvert de before.
Espérant


réussir à placer le bouton à la fin de la barre d'outils j'ai
essayé


d'enlever le before en question. Dans ce cas pas de bouton
pantoute.


Exite-t-il une façon de mettre un bouton à la fin d'une barre
d'outils, en VBA, sans devoir mettre un hospice de before ?


Chez moi (VBA 6.3) ça marche si je ne mets pas de Before
du tout ou si je lui mets un Before comme ça :
Before:=ZeCommandBar.Controls.Count + 1
si ça peut t'aider...

J'ajoute 'maudit joualvert d'hospice' dans mon dico perso ;-)
Bonne année Clément

Anacoluthe
« J'pitonne sur mon téléphone
ça pas d'allure, c'est l'fun
j'pitonne à banque, ça, ça m'chiffonne
me vlà dans l'rouge, ça c'est moins l'fun
pitons, bouton ... »
- Robert CHARLEBOIS