Afficher la valeur d'une propriété personnalisé

Bonjour,

 

Je réaliser en ce moment une macro, j'aimerais simple afficher sous forme de texte la valeur d'une propriété personnalisé dans l'userform.

 

Quelqu'un sais faire ça ?

 

Merci à vous tous et bonne journée!

Salut,

 

Il faut créer une variable qui va récupérer ta propriété :

 

Exemple avec ma propriété code :

 

CODE = swRefDoc.GetCustomInfoValue("", "code")

 

Ensuite, simplement afficher CODE dans l'userform !

Je ne sais pas comment l'afficher justement. Il doit y avoir un code ? Print ou quelque chose comme ça ?

 

(Le but étant de l'avoir dans un textbox)

Ca ne fonctionne pas d'écrire simplement :

Textbox1 = CODE

Lors de l'initialisation du userform, il faut affecter le texte par défaut du textbox avec

 

.value = CODE

 

En yant déclaré CODE en public, bien entendu.

 

Exemple :

 

Private Sub UserForm_Initialize()

With Me.NameTextBox

.Value = CODE

.SetFocus

.SelStart = 0

.SelLength = Len(.Text)

End With

End Sub

Désolé mais je ne comprends pas.

Comment s'appelle ton textbox ?

Dison textbox1, alors tu dois mettre le texte par défaut comme ceci textbox1.value = CODE où CODE est la propriété personnalisée.

 

Et tu dois mettre ceci dans un un sub spécial qui initialise ton UserForm, soit : 

 

Private Sub UserForm_Initialize()

Me.TextBox1.Value = CODE

End Sub

 

Mais pour que ta variable CODE puisse être lue dans un autre sub, il ne faut pas oublier de la déclarer en Public CODE au tout début de ton programme.

 

C'est plus clair ?

Aurez tu un bout de code complet à me proposer ?

 

Ma propriété est "DW_NUM"

 

En résumé je voudrais simplement afficher dans un texrbox d'un userform d'une macro solidworks, la valeur de "DW_NUM" (qui est par exemple : DW-505).

 

Le texte doit se charger tout seul au démarage de la macro si possible.

 

Merci!

Envoie ton fichier avec ta macro !

Ca marche, je regarde pour faire ça ce midi!

Voila!


lynkoa.zip

Je ne vois pas ou ça coince... ?