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