TextBox1 = Champs texte1 d'un formulaire

Je suis arrivé a créer ce bout de code:

Private Sub CommandButton1_Click()
For i = 1 To 10
If Me.Controls("TextBox" & i) <> "" Then
ThisDocument.Fields(i) = Me.Controls("TextBox" & i).Text
End If
Next i
End Sub

Malheureusement ca ne marche pas et l'erreur se situe à la ligne 4:
ThisDocument.Fields(i) = Me.Controls("TextBox" & i).Text

Merci de votre aide

Bonjour,

je suis en train de créer un UserForm avec 10 textbox. Dans le document (une
lettre), j'ai des champs texte ( créés avec la barre d'outils formulaire).
J'aimerais que ce que j'écris dans la TextBox1 du UserForm s'écrive dans le
champ texte 1 du formulaire, que ce qui est écrit dans la TextBox2 s'écrive
dans le champ texte 2 du formulaire, etc... et ce, jusqu'à 10!

Est-ce possible?

Merci d'avance

Bonjour !

'YeTi' nous a écrit ...

je suis en train de créer un UserForm avec 10 textbox. Dans le document (une
lettre), j'ai des champs texte ( créés avec la barre d'outils formulaire).
J'aimerais que ce que j'écris dans la TextBox1 du UserForm s'écrive dans le
champ texte 1 du formulaire, que ce qui est écrit dans la TextBox2 s'écrive
dans le champ texte 2 du formulaire, etc... et ce, jusqu'à 10!
Est-ce possible?

Oui c'est possible mais on ne voit pas bien où vous voulez en venir.
Les champs de formulaire ne sont actifs que si le formulaire est
verrouillé. Quel intérêt d'un formulaire s'il faut le remplir par
l'intermédiaire d'un autre formulaire UserForm ?
Pour répondre il suffit de simples instructions du genre
ActiveDocument.FormFields(1).Value = MaUserForm.TextBox1.Value
dans CommandButtonOK_Click ou autre événement de la UserForm.

Anacoluthe
« Pourquoi faire simple quand on peut faire compliqué ? »
- Jacques ROUXEL

Bonjour !

'YeTi' nous a écrit ...

Je suis arrivé a créer ce bout de code:
Private Sub CommandButton1_Click()
For i = 1 To 10
If Me.Controls("TextBox" & i) <> "" Then
ThisDocument.Fields(i) = Me.Controls("TextBox" & i).Text
End If
Next i
End Sub
Malheureusement ca ne marche pas et l'erreur se situe à la ligne 4:

Sous réserve que ThisDocument et Me sont dans le même projet
ThisDocument.FormFields(i).Value = Me.Controls("TextBox" & i).Value
devrait être correct

Anacoluthe
« Aime la vérité, mais pardonne à l'erreur. »
- VOLTAIRE