[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]