remplir signet via userform

[Joak60]

Bonjour à tous,
Je cherche à faire un truc simple mais comme je débute...
Je voudrais remplir deux valeurs dans un document word qui va me servir a imprimer des étiquettes.

Pour cela j'ai créer dans mon documents des signets nommés "nom" et "date"
J'ai créer une macro nommée "autoopen" pour qu'elle s'execute a l'ouverture du document et me lance "Userform1" avec userform1.show

Dans le code de UserForm1 j'ai mis :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub CommandButton1_Click()
Dim nom1 As String
Dim date1 As String
'num_nom et num_date sont les noms des textbox
nom1 = num_nom.Value
date1 = num_date.Value
End
End Sub
Private Sub Label1_Click()
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub TextBox2_Change()
End Sub
Private Sub UserForm_Click()
End Sub

J'ai essayé plein d'autres choses, j'ai acheté un bouquin pour essayer de comprendre comment faire mais rien n'y fait...je vais baisser les bras...

Au secours...

[Joak60]

J'ai essayé autre chose :

Code :

1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
Dim nom1 As String
Dim date1 As String
nom1 = num_nom.Value
date1 = num_date.Value
ActiveDocument.FormFields("nom").Result = nom1
ActiveDocument.FormFields("date").Result = date1
End

J'ai comme résultat le message d'erreur :
Le membre de la collection requise n'existe pas.

[Heureux-oli]

Salut,

C'est un peu confus !

Tu nous parles de Signet et dans ton code, tu fais appel à des Champs de Formulaire.

Ce sont des choses différentes, même si un champ de formulaire possède un nom de signet.

[pgz]

Bonsoir.

Si tu as des signets et que le code est dans le module du formulaire, tu peux essayer

Code :

ThisWorkbook.Bookmarks("nom").Range.Text = Me.num_nom.value

.

Cordialement,

PGZ

[Heureux-oli]

Salut,

Malheureusement, ça ne fonctionne pas lorsque le formulaire est actif. Le mode protégé empèche le remplissage du signet.

[pgz]

Bonsoir.

J'ai essayé et chez moi cela marche. Bien sûr, il fallait lire

Code :

ThisDocument

au lieu de ThisWorkbook.

PGZ

[Heureux-oli]

Salut,

J'ai essayé en 2003, 2007 et 2010, lorsque le document est protégé, on ne peut accéder au signet.
Avec une erreur d'exécution 6124.

[pgz]

Bonjour Heurex-Oli

Envoyé par Heureux-oli

Salut,

Malheureusement, ça ne fonctionne pas lorsque le formulaire est actif. Le mode protégé empèche le remplissage du signet.

Dans un document j'écris "Mr et Mme sont des clients de notre filiale Banan Co."
Sur le point d'insertion devant le "s" de "sont" j'insère un signet que je nomme "bkmPoint".
Je sélectionne tout le mot "clients" et je lui associe le signet "bkmPlage".

Je crée un formulaire avec 2 textboxes que je nomme "txbNom" et "txbStatut"; et 1 bouton de commande que je nomme "BtnOK"

Code :

1
2
3
4
5
Private Sub BtnOK_Click()
    ThisDocument.Bookmarks("bkmPoint").Range.Text = Trim$(Me.txbNom) & " "
    ThisDocument.Bookmarks("bkmPlage").Range.Text = Me.txbStatut
    Unload Me
End Sub

J'ouvre le formulaire. Je renseigne :
txbNom : Duchemin
txbStatut : prospects
je clique OK.

Dans mon document, le texte est devenu "Mr et Mme Duchemin sont des prospects de notre filiale Banan Co."

Il faut noter que le signet blmPoint reste un point d'insertion placé devat de "D" de "Duchemin". Le signet "bkmPlage" est supprimé. On peut ajouter qq instructions pour modifier cela, suivant ce que l'on souhaite obtenir.
J'ai essayé avec WD 2007.

Envoyé par Heureux-oli

J'ai essayé en 2003, 2007 et 2010, lorsque le document est protégé, on ne peut accéder au signet.
Avec une erreur d'exécution 6124.

Là je me demande si nous parlons de la même chose. C'est d'ailleurs peut-être moi qui n'ai rien compris à la question posée.
Autre interrogation : la question intéresse-t-elle encore Joak60?

Cordialement,

PGZ

[Heureux-oli]

Salut,

Voilà un document qui tente de remplir un champ de formulaire.

[pgz]

Hello!

J'ai l'impression qu'on s'éloigne du sujet, mais ce n'est pas grave.


Dans ton exemple, on a à faire à un champ et on peut faire :

Code :

1
2
3
Sub Document_Open()
ThisDocument.Bookmarks("Text1").Range.Fields(1).Result.Text = InputBox("Texte à insérer", "Essai")
End Sub

Cordialement,

PGZ

[Heureux-oli]

Salut,

On n'est plus dans le Range du Bookmark, mais dans le Result du Field.

Et pour le Result, pas besoin de passer par le signet.

Code :

ActiveDocument.FormFields(1).Result

[pgz]

Bonsoir.

Ce n'est pas toujours pratique d'appeler un champ par son index.

PGZ

[Heureux-oli]

Salut,

Index ou nom, ça ne change iren, j'utilise l'index pour mes exemples, c'est plus rapide que par leur nom. Dans le meilleur des cas, on gagne deux caractères.

[Joak60]

Merci à tous pour vos réponses, j'ai résolu mon problème en mettant un bout de code qui provoque la mise à jour des champs à l'ouverture du document car je manque un peu de temps en ce moment.
Je vais tester toutes les solutions que vous m'avez proposer et je reviendrais poster le résultat.
Encore merci.