Copie de menus Word depuis une application VBA - VB/VBA/VBS - Programmation
MarshPosté le 29-10-2002 à 09:50:58
Salut
J'ai besoins de vos lumières
J'ai un petit soucis en VB
Je suis en train de créer une petite application en VBA pour copier certains éléments d'un template vers un autre template. J'ai déjà fait la copie de modules et des feuilles (easy ). Mais, là j'ai un petit soucis pour copier les menus . J'entends par là, les menus perso que j'ai créé bien sur .
L'objet CommandBar permet en principe d'accéder aux menus. Dans une macro Word, si je fais : msgbox CommandBars("test" ).name 'ou "Test" est le nom du menu que j'ai créé ca me retourne bien 'test' -> il reconnait mon menu perso
Par contre, sous VBA, apres avoir ouvert un Document sur une Word.application, je fais la meme commande : msgbox Doc_Word.CommandBars("test" ).name normalement, ca devrait faire la meme chose...eh ben non ! Il ne le reconnait pas Si je fais une boucle du genre For each... pour traverser tous les commandbars, je remarque que Word fait la liste de tous les menus normaux + les miens, par contre, VBA ne donne que la liste des menus normaux !!!
VBA ne voit pas mes menus perso Commennt je fais ? Si vous pouviez me tendre une main charitable et m'aider...
Ci d'av'
--------------- Il suffit de me dire de me taire...
Marsh Posté le 29-10-2002 à 09:50:58
Salut
J'ai besoins de vos lumières
J'ai un petit soucis en VB
Je suis en train de créer une petite application en VBA pour copier certains éléments d'un template vers un autre template.
J'ai déjà fait la copie de modules et des feuilles (easy ). Mais, là j'ai un petit soucis pour copier les menus . J'entends par là, les menus perso que j'ai créé bien sur .
L'objet CommandBar permet en principe d'accéder aux menus. Dans une macro Word, si je fais :
msgbox CommandBars("test" ).name 'ou "Test" est le nom du menu que j'ai créé
ca me retourne bien 'test' -> il reconnait mon menu perso
Par contre, sous VBA, apres avoir ouvert un Document sur une Word.application, je fais la meme commande :
msgbox Doc_Word.CommandBars("test" ).name
normalement, ca devrait faire la meme chose...eh ben non ! Il ne le reconnait pas
Si je fais une boucle du genre For each... pour traverser tous les commandbars, je remarque que Word fait la liste de tous les menus normaux + les miens, par contre, VBA ne donne que la liste des menus normaux !!!
VBA ne voit pas mes menus perso
Commennt je fais ?
Si vous pouviez me tendre une main charitable et m'aider...
Ci d'av'
---------------
Il suffit de me dire de me taire...