[E-03] Modifier une entête d'un document Word

Bonjour à tout le forum

Je tente de renseigner un document Word via un formulaire dans Excel.

Mais dans ce document Word j’ai une entête de page (3 colonnes) que je voudrais modifier en même temps
que le reste.
Surtout la 3eme Colonne

Code:

---

1 2 3

ActiveDocument.Sections(1).Header(wdHeaderFooterPrimary).Range.Select Selection.Tables(1).Cell(1, 3).Select Selection.TypeText "Révision A" & Chr$(10) & "10466/21/100"

---

Fonctionne bien sous Word Mais plante sur

Code:

---

Selection.Tables(1).Cell(1, 3).Select

---

Quand il est dans un module Excel
(Propriété ou méthode non gérée par cet Objet)

J'ai bien trouvé
Comment modifier l'entête et/ou le pied de page d'un document Word ?
Dans la FAQ mais cela ne semble pas coller pour modifier une colonne

Une piste?
Par avance merci

Quand tu travailles depuis Excel, tu dois renseigner ton application Word au début de ta ligne. Ainsi, si je considère que appWord est l'objet de contrôle de Word depuis Excel et que tu as déjà ouvert Word depuis Excel tu dois mettre:

Code:

---

appWord.Selection.Tables(1).Cell(1, 3).Select

---

J'espère que c'était ça...

PS: et je ne parle même pas de ce que beaucoup pensent de Select :mrgreen:

Bonjour,

pour compléter decondelite

Code:

---

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

Dim appword As Word.Application Dim Worddoc As Word.Document       'ouvre session word Set appword = New Word.Application 'ouvre du document Word Set worddoc = Appword.Documents.Open(ledocumentaouvrir) DoEvents 'Yields execution so that the operating system can process other events. Worddoc.Sections(1).Header(wdHeaderFooterPrimary).Range.Select Worddoc.Selection.Tables(1).Cell(1, 3).Select Worddoc.Selection.TypeText "Révision A" & Chr$(10) & "10466/21/100"

---

Non! c'est pas ça : On est dans le document

Code:

---

ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Select

---

Je pense la mème chose que beaucoup de select :mouarf:

tout le problème ici, c'est de trouver comment s'en séparer :yaisse2:

Mais non justement! Tu n'es pas dans le document tu es dans Excel! :roll:

Là ce que tu donne dans Excel ça doit être:

Code:

---

appword.ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Select

---

Et c'était du select à la fin de cette ligne dont je parlais, pas de l'autre (j'avais même pas vu le selection au début de la ligne).

Avec 0 sélection, ça donne ça:

Code:

---

1 2	Worddoc.Sections(1).Header(wdHeaderFooterPrimary).Range. _ Tables(1).Cell(1, 3).TypeText "Révision A" & Chr$(10) & "10466/21/100"

---

Je sais pas si ça marche, mais en tout cas la logique voudrait que ce soit comme ça.

Bonjour Godzestla

J'ai déja essayé comme cela mais j'ai toujours eu le même message :(

Il me semble que cela ne vient pas de selection

Code:

---

WordDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range.Tables(1).Cell(1, 3).Select

---

Ne fonctionne pas alors que l'on peu l'écrire avec le menu après chaque point

Oui decondelite

Seulement la logique ne semble pas être respectée :(

Un petit fichier Word pour le test, tu aurais ça, stp? :D

Ci joint Fichier

Merci

Ah OK erreur toute bête:
c'est Headers et pas Header: on a affaire à une collection. :D

J'ai vérifié à la main le chemin jusqu'à la case, et ceci j'en suis 100% sûr (note que j'ai jamais fait de VBA Word). Après, j'ai eu du mal à retrouver le texte interne de ta case: on est obligé de sélectionner pour taper du texte!!!

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim appword As Word.Application Dim Worddoc As Word.Document 'ouvre session word Set appword = New Word.Application 'ouvre du document Word Set Worddoc = appword.Documents.Open("D:\Mes Documents\TestC.doc") DoEvents 'Yields execution so that the operating system can process other events. Worddoc.Sections(1).Headers(wdHeaderFooterPrimary).Range. _ Tables(1).Cell(1, 3).Select Worddoc.Selection.TypeText "Révision A" & Chr$(10) & "10466/21/100"

---

Alors ça marche?

Dernière précision: n"oublie pas de fermer ton classeur word une fois que t'as fini et SURTOUT de fermer l'application Word!
Pour t'aider, j'ai du fermer plusieurs fois l'application Word en arrière plan via le gestionnaire des tâches.

Toujours Problème sur

Code:

---

Worddoc.Selection.TypeText "Révision A" & Chr$(10) & "10466/21/100"

---

Cette fois mème message d'erreur

Oui je Ferme Word en final :mrgreen:

Selection est une propriété application. Ce n'est pas Worddoc mais appword.selection que tu dois utiliser
Bonne aprem'

Bonjour Ouskel'nor

J'ai déja essayé avec appword.Selection : mème combat

Comme je n'ai qu'une seule feuille, j'ai trouvé une solution en remplacant l'entête par un tableau à 3 colonnes

Je sais : Pas Bien :oops:

Mais il y avait urgence

Merci pour tout et à tous
Mais le problème n'est pas résolu

bonsoir


Une solution sans Select :

Code:

---

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

Dim WordApp As Word.Application Dim WordDoc As Word.Document Dim Fichier As String   Fichier = "C:\TestC[1].doc" Set WordApp = CreateObject("Word.Application") WordApp.Visible = True Set WordDoc = WordApp.Documents.Open(Fichier)   WordDoc.Sections(1).Headers(wdHeaderFooterPrimary). _ Range.Tables(1).Cell(1, 3). _ Range.Text = "Révision A" & Chr$(10) & "10466/21/100"

---

bonne soirée
michel

Bonjour à tous, Bonjour SilkyRoad :king::king:

En fait tout viens du Range.Text :king:
Un petit pas de plus

Merci aussi à decondelite pour Headers :king:

Et bien sur merci à Ouskel'n'or :king:

Bonne journée à tous :yaisse2: