j'aurais besoin de savoir s'il est possible de modifier le contenu d'un en-tête de document Word via une macro Excel, et si oui, comment ?
J'arrive, depuis cette macro, à ouvrir le document concerné, à modifier le contenu principal du document, mais dès que la macro doit modifier le contenu de l'en-tête (comme remplacer un mot par un autre, par exemple), c'est la panique !
J'ai essayé plusieurs méthodes, un peu à tatons, mais rien n'y fait... Est-ce que quelqu'un a la solution, svp ?...
Sub EnteteEtPiedDePageWord()
'necessite d'activer la reference microsoft Word xx.x Object Library
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim Fichier As String
Fichier = "C:\Documents and Settings\michel\Doc2.doc" 'adapterle chemin
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Open(Fichier)
With WordDoc.Sections(1)
.Headers(wdHeaderFooterPrimary).Range.Text = "Le titre"
.Headers(wdHeaderFooterPrimary).Range.Paragraphs.Alignment = wdAlignParagraphCenter
.Footers(wdHeaderFooterPrimary).PageNumbers.Add
End With
Ca y est ça marche ! J'ai essayé comme tu m'as dit et tout fonctionne. Encore merci, tu as sauvé le reste de mes cheveux que je n'avais pas encore arraché :-)
