Je suis actuellement en train de faire une petite application via Excel pour automatiser quelque tache récurrente grâce à l’API. Mais je bloque sur la modification de texte dans les cartouches.
J’arrive bien a modifier le texte, mai quant je régénère le document, le texte reprend ca valeur d’origine.
Ci-joint le bout de code concerné par le problème :
Code : Tout sélectionner
Dim TopApp As TopSolid.Application
Dim TopDft As TopSolid.DocumentDraft
Dim TopText As TopSolid.Text
....
Set TopApp = New TopSolid.Application
TopApp.Visible = True
....
Set TopDft = TopApp.Documents.Open(ChemRep & "\" & Dossier & "\" & DossierMeuble & "\_Top\" & VbNomFich)
....
Set TopText = TopDft.Document.Elements.Item("@477")
TopText.String = "Droite: -" ‘Modifie bien le texte du cartouche
TopDft.Document.Regenerate ‘Reprend sa valeur d’origine !!!!
TopDft.Document.Save
TopDft.Document.Close True, True
D'avance merci,
Cordialement,