Excel : ajouter un lien pour ouvrir un fichier 3dxml

Out of category
,
1

bonjour


j'ai une Macro (VBA) , qui va lire un fichier excel avec des Références

pour chaque  Références , on récupère des infos depuis notre PLM (Matière , masse ,image d'aperçu , PDF , fichier 3dxml) .....

la macro complète le fichier excel en ajoutant ces informations

quand il y a une image ou un PDF , on ajoute un lien => depuis excel , on click sur le lien , l'image ou le PDF s'ouvre !

exemple

    ' "=HYPERLINK(""image\R13550220.jpg"")"
    MyImage = "=HYPERLINK(" & """" & "image\" & Myref & ".jpg" & """" & "," & """" & "ok" & """" & ")"
    XL.ActiveSheet.Cells(iRow, iCol).FormulaR1C1 = Myimage

Problème , de cette manière ( ajouter un lien vers le fichier 3dxml    ' "=HYPERLINK(""3dxml\R13550220.3dxml"")"

si je click sur le lien , rien ne se passe :-(

HELP

comment ajouter un lien ou une commande dans un fichier Excel , pour ouvrir un fichier 3dxml !

Attention : la manip doit se faire depuis une Macro ! pas en interactif !

(cf exemple dan fichier ci joint )


rpm20-rupture-raccord-2019-09-10-08-04.zip
2

Bonjour,

Voici un exemple de macro Solidworks pour ouverture d'un fichier 3D xml via un hyperlien dans Excel :

Attention, il ne faut pas oublier de mettre la référence à "Microsoft Excel xx.0 Object Library" et il faut qu'il y ait une application par défaut de définie dans Windows pour l'ouverture des fichiers 3Dxml.

Sub OpenExcel()

Dim xlApp As Excel.Application
Set xlApp = New Excel.Application
Dim wbk As Excel.Workbook
Dim sht As Excel.Worksheet

With xlApp
    .Visible = True
    Set wbk = .Workbooks.Add
    Set sht = wbk.ActiveSheet
End With

sht.Hyperlinks.Add sht.Range("A1"), "C:\Temp\Pièce1.3DXML"

End Sub

Il est possible de passer d'autres arguments à la fonction Hyperlinks.Add, voir ICI

Cordialement,

1 « J'aime »