Lien paramètres Drawing dans calque Lier à un attribut

Bonjour,

J’essaie de crée une macro en catvba pour écrire un texte en fonction des paramètres de l'arbre du Drawing.

Paramètres
Numéro d'affaire = 9210
Numéro Pièce = 02

La macro joint récupère les infos et les écrit en texte dans le drawing par contre si je modifie le paramètres, le texte ne change pas.

Comment faire une macro "Lier à un attribut" ?



Option Explicit

'Déclaration des variables
Public document As Object
Public DrawingDocument As DrawingDocument
Public selection As selection
Public DrawingSheets As DrawingSheets
Public DrawingSheet As DrawingSheet
Public DrawingViews As DrawingViews
Public DrawingView As DrawingView
Public DrawingTexts As DrawingTexts
Public MyText As DrawingText
Public status As Variant

Sub CATMain()
Dim DrawingWindowLocation(1)

'Initialisation et création des objets principaux
Set document = CATIA.ActiveDocument
Set DrawingDocument = document
Set DrawingSheets = DrawingDocument.Sheets
Set DrawingSheet = DrawingSheets.ActiveSheet
Set DrawingViews = DrawingSheet.Views
Set DrawingView = DrawingViews.ActiveView
Set DrawingTexts = DrawingView.Texts

' On propose à l'utilisateur de désigner un endroit dans le dessin
MsgBox "Veuillez indiquer l'endroit où le texte sera créé"

' On récupère l'endroit sélectionné
status = document.Indicate2D("Sélectionnez un emplacement dans la fenêtre de dessin", DrawingWindowLocation)

If (status = "Cancel") Then Exit Sub

' Récupérer le paramètre "Numéro d'affaire" depuis le dessin en cours
Dim NumeroAffaire As String
NumeroAffaire = DrawingDocument.Parameters.Item("Numéro d'affaire").Value

' Récupérer le paramètre "Numéro Pièce" depuis le dessin en cours
Dim NumeroPiece As String
NumeroPiece = DrawingDocument.Parameters.Item("Numéro Pièce").Value

' Créer le texte en incluant le numéro d'affaire
Set MyText = DrawingTexts.Add(" Ref Piece : " & NumeroAffaire & "-" & NumeroPiece, DrawingWindowLocation(0), DrawingWindowLocation(1))
End Sub


Merci
Cordialement

Bdz_37