Bonjour, je cherche à partir d'un fichier Excel à ouvrir un fichier Word et remplir les signets correspondants à partir de différentes valeurs.

Voici mon code :

les variables appWord, docWord et Doc sont des variables publiques prédifinies par :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Public appWord As Word.Application
Public docWord As Word.Document
Public Const Doc = (adresse du fichier)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub OuvrirFichierWord()
 
Set appWord = CreateObject("Word.application")
appWord.Visible = True
 
Set docWord = appWord.Documents.Open(Doc)
If docWord.Bookmarks.Exists(test) Then
    docWord.Bookmarks(test).Range.Text = textesignet
End If
 
End Sub
La procédure ouvre correctement mon fichier word mais ne remplit pas le signet quelqu'un peut - il m'expliquer pourquoi ? quelle erreur existe t il ?