Pour faire simple, j'ai hérité malgré moi d'un fichier avec formulaire a modifier. Pour le moment le fichier ne comporte que 3 lignes de saisies User et je voudrais en ajouter une.
En soit je pensais ca relativement facile, en ajoutant juste une ligne de dlg.getcontrol et une ligne dans le modifchampuser, mais je pense qu'il faut également 'déclarer la variable'. En effet quand je lance mon fichier il plante, de plus, si je veux ajouter via le menu un champ utilisateur, mon 'nouveau' champ n'existe pas.
Je pense donc qu'il faut modifier quelque chose par ici :
Code : Tout sélectionner
sub ModifChampUser(nom as string,val as string)
dim MF as object
MF = thisComponent.textFieldMasters.getByName("com.sun.star.text.FieldMaster.User." & nom)
MF.content = val
thiscomponent.TextFields.refresh()
end sub
Mes modifications étaient celles ci (en plus de l'ajout a la main de la nouvelle ligne dans le 'dialog_et_ai_65_36 (nom "text_tracability"))
recuperation des valeurs du formulaire
reference = Dlg.GetControl("Text_reference").text
length = Dlg.GetControl("Text_length").text
width = Dlg.GetControl("Text_width").text
tracability = Dlg.GetControl("Text_tracability").text
ModifChampUser("length", length + " m")
ModifChampUser("reference", reference)
ModifChampUser("width", width + " mm")
ModifChampUser("tracability", tracability)
Merci d'avance de votre indulgence, je n'ai jamais mis les pieds sur ce sujet dans open office
Merci!