Problème exécution macro dans macro?

Macro
1

Bonjour,

 

Je souhaite programme le lancement d'une macro par le biais d'une macro boucle mais SOLIDWORKS me mets un message d'erreur comme quoi il ne peut pas ouvrir mon second fichier de macro.

Nom de la macro principale : Execution_propriete_automatique_en_boucle

Nom sous Windows : Execution propriete automatique en boucle.swp

Nom de la macro secondaire : propriété_pièce

Nom sous Windows : PROPRIETE_PIECE.swp

Macro principe :

Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2


Sub main()
    Dim bRet As Boolean
    Dim swErrors As Long
    Dim swWarnings As Long
    Dim RetVal As String

    Set swApp = Application.SldWorks
    
    Do
        
        'récupère le document actif dans SW
        
        Set swModel = swApp.ActiveDoc
        If Not swModel Is Nothing Then
            
        'Activation seconde Macro
            RetVal = swApp.RunMacro("D:\CAO\MODELE DE DOCUMENTS\MACRO\PROPRIETE AUTOMATIQUE\PROPRIETE_PIECE, - PROPRIETE_PIECE.swp", "propriété_pièce", "Main")
            
        'Enregistre le docuement actif en mode silencieux
            bRet = swModel.Save3(swSaveAsOptions_Silent, swErrors, swWarnings)
            
         'Ferme le document actif
            swApp.CloseDoc swModel.GetPathName
        
        End If
    
    'boucle jusqu'a ce qu'il n'y ai plus de fichier ouvert dans SW
    Loop While Not swModel Is Nothing
End Sub
 

Seconde Macro en pièce jointe.

Cordialement,


propriete_piece.swp
2

Essai avec runmacro2 :

http://help.solidworks.com/2013/English/api/sldworksapi/SolidWorks.Interop.sldworks~SolidWorks.Interop.sldworks.ISldWorks~RunMacro2.html

EDIT: Runmacro est maintenant obsolète

3

Salut,

Essaye la methode en pièce jointe.

A plus


propriete_piece.swp