modifier une en-tete word a partir de vba excel

bonjour à partir d'une feuille de calcul excel, je veux faire un programme VBA pour transférer les infos dans un rapport ( proposition de vente, facture, bon de livraison..) fait avec WORD.

Je me suis fait un fichier template qui a le logo de la compagnie, le numéro de page, et de soumission dans l'en-tête. Je sais comment ajouter le nom du client, liste d'item.

Je cherche a savoir comment modifier seulement le numéro de soumission qui est dans l''en-tête .

j'ai ce code, mais il remplace tout l'en-tete

merci de votre aide

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim WordApp As Word.Application Dim WordDoc As Word.Document   Set WordApp = CreateObject("Word.Application") WordApp.Visible = True Set WordDoc = WordApp.Documents.Open("r:\temp\PROPOSITION TEMPLATE.doc") With WordDoc.Sections(1) .Headers(wdHeaderFooterPrimary).Range.Text = "Le titre" .Headers(wdHeaderFooterPrimary).Range.Paragraphs.Alignment = wdAlignParagraphCenter .Footers(wdHeaderFooterPrimary).PageNumbers.Add End With

---

Bonjour,

Utilise l'enregistreur de macros propre à Word :zoubi:

Tu le lances dans ton fichier puis tu vas dans l'entête que tu modifies comme tu veux et tu regardes ce que ça t'a donné niveau code :ccool:

En gros,

Code:

---

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

---

pour trouver ton Header. Après tu peux faire ce que tu veux dedans, cela dépend de ton fichier, tu peux te déplacer etc :

Code:

---

Selection.MoveRight Unit:=wdCharacter, Count:=20

---

Par la suite tu peux effacer, taper du texte...

Bref, à toi de voir :mouarf:

EDIT : dans ton fichier, lorsque je lance l'enregistreur de macros pour modifier ta référence en #B0600, j'obtiens ça :

Code:

---

1 2 3 4 5 6 7 8

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader Selection.MoveRight Unit:=wdCharacter, Count:=13 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.TypeText Text:="0600" ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

---

Il ne te reste plus qu'à adapter comme tu le souhaites ! :mouarf:

Hello!
Juste un petit truc qui n'a rien à voir avec du vba, ton fichier à l'air d'être un fichier professionnel.
Je te signale donc une petite faute d'orthographe:
"n'inclus", tu as mis un "s" au lieu d'un "t" à la fin.
Voili voilou

Merci....Dans word, quand j'enrégistre une macro, je ne peux pas aller dans l'entete, mais avec ton code, ca marche sper bien....

re-:ccool:merci