Coller une image dans un plan solidworks ( VBA )

2D plans Layout
1

Bonjour

Je cherche à coller une image dans Solidworks via excel.
À l'heure actuelle j'arrive à copier mon image dans Excel. Cependant j'ai essayé la méthode de l'aide VBA Solid pour la coller dans mon plan mais je n'arrive pas à me l'adapter. Je transmets mon programme si jamais quelqu'un sait ou j'ai faux ^^

Sub main()
Set swApp = Application.SldWorks

Etabli2 = LCase(Etabli)
Verificateur2 = LCase(Verificateur)
Approbateur2 = LCase(Approbateur)
'---------------------------------------------------------------------------
Nom = "BD .xlsx" 'nom de base de données
Emplacementfichier = "F:\COMMUN\01.Projet\Macro\Base de données\" 'Emplacement de celle-ci


Fichier = Emplacementfichier & Nom ' variable pour l'ouverture

SetAttr Fichier, vbNormal
Set wb = Workbooks.Open(Fichier) ' la base de donnée excel
     
    
Excel.Application.Visible = True  ' montrer excel


ActiveSheet.Shapes(Etabli2).Copy

        'Workbooks(Nom).Save
        'ActiveWorkbook.Close
        'Excel.Application.Quit
        Set swApp = Application.SldWorks
Status = swModelDocExt.SelectByID2("", "", 1, 1, 1, False, 0, Nothing, 0)
swModel.Paste

2

Bonjour,

Ton "swModel" n'est pas définit, essayes en mettant :

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Status = swModel.Extension.SelectByID2("", "", 1, 1, 1, False, 0, Nothing, 0)
swModel.Paste

 

à la place de :

Set swApp = Application.SldWorks
Status = swModelDocExt.SelectByID2("", "", 1, 1, 1, False, 0, Nothing, 0)
swModel.Paste

Cordialement,

3

nickel sa marche merci beaucoup :)