Discussion :

[gueulederack]

Bonjour,

j'ai une erreur 5941 lorsaue je souhaite passer la saisie d'un titre d'un formulaire vers le titre d'un document word. Ci-dessous mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Private Sub btValider_Click()
  RemplirChamps "lPerimetre", cbCategories.Value
  RemplirChamps "lNivLecture", cbEtat.Value
  RemplirChamps "lTitre", tbTitre.Text
  ActiveDocument.Fields.Update
  Me.Hide
End Sub

et ci-dessous le code de la fonction RemplirChamps

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Public Sub RemplirChamps(champs As String, valeur As String)
Dim Place As Long
ThisDocument.Activate
Place = ActiveDocument.Bookmarks(champs).Range.Start
ActiveDocument.Bookmarks(champs).Range.Text = valeur
ActiveDocument.Bookmarks.Add Name:=champs, _
Range:=ActiveDocument.Range(Place, Place + Len(valeur))
End Sub

l'erreur se lève sur la ligne
Place = ActiveDocument.Bookmarks(champs).Range.Start

Je ne vois pas pourquoi j'ai cette erreur, les libellé existent bien dans mon modele de document

[Heureux-oli]

Salut,

si tu travailles avec des champs, pourquoi utilises-tu le signet du champ pour le remplir.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveDocuement.fields("monChamp").Result

Mais il est possbile qu'en fonction de la version de ton logiciel tu ne puisses pas modifier la propriété titre de ton document.

[gueulederack]

j'ai modifié mon code ainsi:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Private Sub btValider_Click()
   ActiveDocument.Fields("lTitre").Result.Text = tbTitre.Text
  ActiveDocument.Fields("lNivLecture").Result.Text = cbEtat.Value
  ActiveDocument.Fields("lPerimetre").Result.Text = cbCategories.Value
Me.Hide
End Sub

maintenant j'ai une erreur 13 incompatibilité de type, si je ne met pas le .Text derriiere le .Result, il plante avec la meme erreur des la compilation

[gueulederack]

Bon, je suis passé par les signets, sauf que ce coup-ci ça fonctionne, donc j'ai repris ma solution initiale.