Recuperer le nom d'un fichier solidworks en vb [Résolu]
AMIBEN
- Messages postés
- 28
- Date d'inscription
- mercredi 2 juin 2004
- Dernière intervention
- 19 novembre 2008
- Messages postés
- 28
- Date d'inscription
- mercredi 2 juin 2004
- Dernière intervention
- 19 novembre 2008
A voir également:
- Vba récupérer nom fichier ouvert
- Visual basic solidworks - Meilleures réponses
- Solidworks visual basic - Meilleures réponses
- [Catégorie modifiée VB6 --> VBA] Récupérer noms et dates des fichiers contenu d ✓ - Forum - Visual Basic 6
- [VB6 -> VBA]Recuperer une chaine de caractere dans un fichier W à partir de Exce ✓ - Forum - Visual Basic 6
- Ouverture d'un fichier=>Récupérer nom du dossier où se trouve le fichier ✓ - Forum - VB.NET
- Récupérer nom + chemin fichier txt c# ✓ - Forum - C# / .NET
- Recuperer nom + extension d'un fichier ✓ - Forum - VB.NET
4 réponses
Meilleure réponse
- Messages postés
- 28
- Date d'inscription
- mercredi 2 juin 2004
- Dernière intervention
- 19 novembre 2008
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
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
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
123 internautes nous ont dit merci ce mois-ci
- Messages postés
- 7401
- Date d'inscription
- mercredi 23 avril 2003
- Dernière intervention
- 6 avril 2012
Salut,
Si tu travailles Bien en VB6, il faut TOUT DE SUITE changer le nom de tes varailes, VB6 ne supporte pas les - dans les noms de variables.
Peu être cela résoudra t il ton problème.
N'oublies pas non plus de typer au maximum tes variables.
Essaies donc ceci.
Dim appsolid, dessolid As Object
Dim txt As String
Set appsolid = GetObject(, "SldWorks.Application")
Set dessolid = appsolid.ActiveDoc
txt = dessolid.GetPathName(), ----
[../code.aspx?ID=41455 By Renfield]
@+: Ju£i€n
Pensez: Réponse acceptée
Si tu travailles Bien en VB6, il faut TOUT DE SUITE changer le nom de tes varailes, VB6 ne supporte pas les - dans les noms de variables.
Peu être cela résoudra t il ton problème.
N'oublies pas non plus de typer au maximum tes variables.
Essaies donc ceci.
Dim appsolid, dessolid As Object
Dim txt As String
Set appsolid = GetObject(, "SldWorks.Application")
Set dessolid = appsolid.ActiveDoc
txt = dessolid.GetPathName(), ----
[../code.aspx?ID=41455 By Renfield]
@+: Ju£i€n
Pensez: Réponse acceptée
- Messages postés
- 28
- Date d'inscription
- mercredi 2 juin 2004
- Dernière intervention
- 19 novembre 2008
Bonjour, et merci pour ton aide.
J'ai repris le code que tu as fourni, mais il y a le message d'erreur suivant: Erreur 429, le composant activeX ne peut creer l'objet, sur la ligne "Set appsolid = GetObject(, "SldWorks.Application")".
alors le type de librairie solidworks est bien référencé.
Ami ben
J'ai repris le code que tu as fourni, mais il y a le message d'erreur suivant: Erreur 429, le composant activeX ne peut creer l'objet, sur la ligne "Set appsolid = GetObject(, "SldWorks.Application")".
alors le type de librairie solidworks est bien référencé.
Ami ben
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.