remplacement de texte dans word

Bonjour,
A partir d'une macro excel je cherche à remplacer du texte dans un document word.
Cela fonction pour le corps de texte mais ne vas pas dans l'entête et les pieds de page
j'utilise le code :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim wordApp As Word.Application Dim wordDoc As Word.Document   Set wordApp = New Word.Application wordApp.Visible = True 'le fichier word visible   'Ouvre le document Word Set wordDoc = wordApp.Documents.Open(mondocword) wordDoc.Content.Find.Execute FindText:="texte_a_chercher", ReplaceWith:="texte_de_remplacement" , Replace:=wdReplaceAll

---

Auriez vous l'astuce? Car le 'ReplaceAll' ne semble pas marcher
Merci d'avance.

Bonjour,

C'est normal, les en-têtes et pied de page sont gérés dans des sections.
Tu peux faire quelque chose de ce style :

Code:

---

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

ActiveDocument.Sections(1).Headers(1).Range.Select With Selection.Find   .Text = "toto" .Replacement.Text = "tata" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll

---

Je l'ai fait sous Word, c'est pour cela la présentation de ce style à toi de garder ce qui t'intéresse.
Attention, selon le type de sections, il se peut que ce soit ActiveDocument.Sections(1).Headers(1, 2 ou 3)
Pour les pieds de page, c'est Footers au lieu de Headers