Bonjour,

Bernard Marcelly a écrit :

Pas mal comme truc. Les options à stocker sont déclarées dans un module, toutes seules. Pour sauver les nouvelles options, on réecrit ce module à partir du code basic avec les nouvelles valeurs. C'est rapide et efficace !

Sinon, j'ai trouve une autre astuce qui permet d'ajouter des attributs externes dans un fichier Draw. Voici les fonctions:

Function LireAttribut(namespace,nom,Optional defaut As String) attrs = oPage.UserDefinedAttributes nomcomplet = namespace+":"+nom If attrs.hasByName(nomcomplet) Then attr = attrs.getByName(nomcomplet) LireAttribut = attr.Value ElseIf Not IsMissing(defaut) Then LireAttribut = defaut End If End Function

Function SauverAttribut(namespace,nom,valeur As String) Dim attr As New com.sun.star.xml.AttributeData attr.NameSpace = namespace attr.Type = "CDATA" attr.Value = valeur attrs = oPage.UserDefinedAttributes nomcomplet = namespace+":"+nom If attrs.hasByName(nomcomplet) Then attrs.replaceByName(nomcomplet,attr) Else attrs.insertByName(nomcomplet,attr) End If oPage.UserDefinedAttributes = attrs SauverAttribut = valeur End Function

Par exemple, pour mon cas, j'utilise cela comme cela:

oDlg.Model.monTexte.Text = LireAttribut("Genealogie", "monTexte","blabla") oDlg.Execute LireAttribut("Genealogie", "monTexte",oDlg.Model.monTexte.Text)

Les attributs sont attaches a une page mais on doit pouvoir les attacher a un document draw (tout ce qui est GenericDrawPage, Shape, ...

Si ca peut servir.

a+ Vincent