Lancement macro dans menu
-
*** Copie du post par fbsoftware ****
Je suis en cours de test de ZWCAD 2018. En VBA je crée un menu pour le lancement d'une macro, mais celle-ci ne se lance pas lorsque l'on clique sur le menu.
Macro :
If ThisDrawing.Application.MenuGroups.Count > 0 Then Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0) Créer le nouveau menu Set newMenu = currMenuGroup.Menus.Add("Millenium") Ajouter les commandes dans le nouveau menu openMacro = Chr(3) & Chr(3) & "-execvba EpureCAO" & Chr(32) Set newMenuItem = newMenu.AddMenuItem(newMenu.Count + 1, "Epure Plan CAO", openMacro) Affiche le nouveau menu dans la toolbar newMenu.InsertInMenuBar (ThisDrawing.Application.MenuBar.Count + 1) End If
Dans le menu ZWCAD, la macro apparaît bien.
Au clic sur le menu, -execvba est bien lancé mais me demande de saisir le nom de la macro ?
Si quelqu'un a une idée.
Merci,
-
ZWFrance
-
ZWFrance