[VBA-E2000] Problème avec les signets (bookmarks)

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:

---

1 2 3

Public appWord As Word.Application Public docWord As Word.Document Public Const Doc = (adresse du fichier)

---

Code:

---

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 ?

en effet dans le 1er cas test correspond en fait au nom de mon signet dans word tandis que testsignet serait le texte que je souhaiterais y insérer (donc à metttre entre guillements je suppose)

Autre pb
Tu mets
docWord.Bookmarks(test).Range.Text = textesignet
et là, je ne comprends pas ce que tu veux faire.
Pour aller sur un signet, c'est

Code:

---

Selection.GoTo What:=wdGoToBookmark, Name:="test"

---

Text n'est pas une propriété de Bookmark
Si c'est pour le créer

Code:

---

1 2 3

with activeDocument.Bookmarks .add range:=selection.range, name:="test" end With

---

A+

oui exactement mais j'utilise peut etre pas les bonnes propriétés et méthodes

Code:

---

1 2 3 4 5

Selection.GoTo What:=wdGoToBookmark, Name:="test" With Selection .InsertAfter "texte ajouté" .Collapse Direction:=wdEnd End With

---

Ainsi tu atteins ton signet et tu insères le texte juste après

A+

OK j'ai compris le principe de la recherche puis de l'insertion. Mais pour l'utilisation de sélection il doit être préfixé de docWord ou appWord ou rien du tout ? car sinon jai une erreur VBA comme quoi objet inexistant

Si tu écris le code tel que je te l'ai donné, "je" n'ai pas d'erreur.
Maintenant, si tu instancies ton doc, tu dois en tenir compte dans les deux cas, pour atteindre ton signet et pour ajouter ton texte.

A+

Excel me met ce message :

Erreur d'exécution 438

Propriété ou méthode non gérée par cet objet

j'utilise Office 2000