Modifier une en-tête d'un doc Word depuis une macro Excel [Résolu]

Messages postés
7
Date d'inscription
jeudi 27 mai 2004
Dernière intervention
10 avril 2005
- - Dernière réponse : poolipoo
Messages postés
7
Date d'inscription
jeudi 27 mai 2004
Dernière intervention
10 avril 2005
- 14 sept. 2004 à 09:15
Bonjour à tous,

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 ?...

Merci d'avance !
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
402
Date d'inscription
vendredi 6 août 2004
Dernière intervention
12 octobre 2008
19
2
Merci
bonsoir

tu peux essayer

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

End Sub

bonne soiree
michel

Dire « Merci » 2

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 115 internautes nous ont dit merci ce mois-ci

Messages postés
7
Date d'inscription
jeudi 27 mai 2004
Dernière intervention
10 avril 2005
0
Merci
Merci Michel, je vais essayer dès que possible. Je te tiens au courant !
Messages postés
7
Date d'inscription
jeudi 27 mai 2004
Dernière intervention
10 avril 2005
0
Merci
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é :-)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.