[EMAIL PROTECTED] a écrit :
Bonsoir,

Il faut placer un TextFields.refresh()

Option Explicit

Sub rafraichirTextField()
        'le nom de la variable insérée est "Nom"
        Dim oDoc as object, oFeuil as object, oVar as Object

        oDoc = ThisComponent
        oFeuil = oDoc.TextFieldMasters
        oVar = oFeuil.getByName("com.sun.star.text.FieldMaster.User.Nom")

        MsgBox "avant = " & oVar.content

        oVar.content = InputBox("Modifier le contenu de oVar :","Ca va rafraîchir 
;-)")

        oDoc.TextFields.refresh()

        MsgBox "après = " & oVar.content

End Sub

Ca marche on ne peut mieux :) Merci !!

Fred
begin:vcard
fn:Fred
n:;Fred
org:IDKAL
url:http://www.idkal.com
version:2.1
end:vcard


---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Répondre à