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,