Je te remercie pour ton aide, car j'ai reussi avec le code suivant:
Dim SwApp As Object
Dim Part As Object
Dim SelMgr As Object
Dim selObj As Object
Set SwApp = CreateObject("SldWorks.Application")
Set Part = SwApp.ActiveDoc
If Part Is Nothing Then X = MsgBox("pas de piece active !", vbCritical): Exit Sub
frm1.Label1.Caption = Part.GetPathName & Chr(13) & Mid(Part.GetPathName, InStrRev(Part.GetPathName, "") + 1)
frm1.txt_att_valeur.Text = Part.CustomInfo2("", frm1.txt_nom_att.Text)
En effet j'ai changer "GetObject" par CreateObject, ce qui me permet de recuperer le nom du fichier ouvert.
Encore merci pour l'aide
Ami ben