Bonjour,
Je souhaite accéder à l'en-tête de Word depuis Excel pour faire du copier/coller. Seulement j'ai un problème de script, je ne trouve pas comment le modifier. Autre problème, je débute!
Voilà ce que j'ai fait:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub enteteEtPiedDePageWord()

'necessite d'activer la reference microsoft Word xx.x Object Library
Dim wordApp As Word.Application
Dim wordDoc As Word.Document

Creer_fichier:            
 With Worksheets(1)
    Set objHyper = _
        .Hyperlinks.Add(Anchor:=.Range("A1"), _
            Address:="entete.doc")
    objHyper.CreateNewDocument _
        Filename:="D:\Chauffage\test\Essais Visual Basic\entete.doc", _
        EditNow:=True, Overwrite:=True
End With

Worksheets("Tampon Word (2)").Range("A1:G10").Copy
         
entete:
With wordDoc.Sections(1)'ici ça coince.Problème d'objet,je n'arrive pas à le définir.
.Headers(wdHeaderFooterPrimary).Range.Paste '(ce qui remplace le titre)
.Headers(wdHeaderFooterPrimary).Range.Paragraphs.Alignment = wdAlignParagraphCenter
.Footers(wdHeaderFooterPrimary).PageNumbers.Add
End With

End Sub
Y aurait-il quelqu'un de sympa pour m'aider.
Merci