Texte sur un signet dans l'en tête d'un word

Bonjour,

J'ai beau chercher sur le net et trouver des solutions, j'ai toujours un souci pour mettre mon texte dans un signet situé dans l'en tête.

En utilisant ci dessous, il ne trouve pas le signet (alors que j'ai cru comprendre qu'un signet dans un en tête il n y avait pas besoin d'ouvrir l'en tête, mais si ça parait être le cas!)

Code:

---

1 2 3 4 5

Range("C1").Select Selection.Copy oWord.Visible = True oWord.Selection.GoTo What:=wdGoToBookmark, Name:="Numrapport" oWord.Selection.PasteAndFormat Type:=wdFormatPlainText

---

J'ai voulu utiliser ça:

Code:

---

ActiveDocument.Sections(MA).headers(wdHeaderFooterPrimary).Bookmarks(Numrapport2).Range.Text = T

---

Mais j'ai une erreur: membre de méthode ou de données introuvable.

Voici le code complet:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Tableauexport() Dim oWord As Word.Application 'Créer une instance de word Dim oTbl As Table Dim Graphe As ChartObject, w As Integer, h As Integer Dim oBK As Bookmark Set oWord = GetObject(, "Word.Application") 'Word déjà ouvert   ActiveDocument.Sections(MA).headers(wdHeaderFooterPrimary).Bookmarks(Numrapport2).Range.Text = T     End Sub

---

Je pense que c'est super facile pour vous, mais pas pour moi ^^ merci

Salut,

Je suppose que "Numrapport2" est le nom du signet.
Si c'est le cas, il faut qu'il soit entre ".

La méthode GoTo pour accéder à un signet n'est pas la meilleure selon moi, si on ne se trouve pas dans le bon Story, on passe à côté.

Donc, les deux derniers sont un peu mieux.

Par contre, point besoin d'activer l'entête ou le pied de page.

ActiveDocument.Boockmarks("Numrapport2").Range.Text suffit à donner accès au signet. Comme c'est un objet unique, son index ou nom fait l'affaire.

Merci pour la réponse. Mais j'ai toujours ce souci de: membre de méthode ou de données introuvable

Je suis en VBA excel (peut être ici le problème?)

le code:

Code:

---

1 2 3 4

Range("C1").Select Selection.Copy oWord.Visible = True ActiveDocument.Boockmarks("Numrapport2").Range.Text

---

Salut,

Au vu de ta réponse, ton code est exécuté au départ d'une autre application (Excel) ?

Exactement. Le code est dans fichier excel (source de données). Mon word est juste ouvert, le code vient le remplir.
Donc ma donnée qui va au signet dans word provient du fichier excel aussi

Bonjour,

Apparemment rien ne "relie" ton activedocument à ton application Word; et VBA Excel ne sait pas quoi faire avec cela, parce que dans VBA Excel, il n'y pas d'activedocument.

Quand tu fais de l'automation, tous les objets de l'application pilotée doivent être reliés à cette application:

essaie en remplaçant:

Code:

---

ActiveDocument.Boockmarks("Numrapport2").Range.Text

---

par

Code:

---

oWord.ActiveDocument.Boockmarks("Numrapport2").Range.Text

---

Salut,

De plus, tu fais un mix des affectations d'objet.

Dim oWord As Word.Application est généralement suivi de Set oWord = New(Word.Application) ou encore si Word est ouvert Set oWord = Word.Application.

Mais si on déclare en simple objet avec Dim oWord As Object ensuite on l'affecte avec Set oWrd = CreateObject("Word.Application") ou encore Set oWord = GetObject("Word.Application")Et partant de là, on peut alors utiliser les autres objets de la bibliothèque.

J'ai changé oWord non plus en application mais en objet. ça ne change rien...
J'ai aussi mis

Code:

---

oWord.ActiveDocument.Boockmarks("Numrapport2").Range.Text

---

et

Code:

---

ActiveDocument.Boockmarks("Numrapport2").Range.Text

---

pas de différence, toujours problème de méthode non gérée.

Code complet:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub Tableauexport() Dim oWord As Object 'Créer une instance de word Dim oTbl As Table Dim Graphe As ChartObject, w As Integer, h As Integer Dim oBK As Bookmark Set oWord = GetObject(, "Word.Application") 'Word déjà ouvert       Sheets("prp terrain").Select   Range("C1").Select Selection.Copy oWord.Visible = True oWord.ActiveDocument.Boockmarks("Numrapport2").Range.Text     End Sub

---

Salut,

Il faut lui affecter quelque chose.

Soit tu utilises du EarlyBinding pour tous tes objets, soit du LateBinding, mais un mix des deux n'est pas une bonne solution.

Ton code ne va pas fonctionner, si il ne contient rien d'autre, tu obtiens à l'ouverture de Word un document vierge qui ne contient rien dans l'entête.