copier dans l'en-tête d'un .doc

  • Initiateur de la discussion Initiateur de la discussion fabfaz
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

fabfaz

XLDnaute Nouveau
Bonjour, j'aimerais copier un contenu d'une page Excel (2002) vers l'en-tête d'un fichier word. J'ai essayé de modifier et d'adapter 2 ou 3 scripts mais sans succès. (Précision, je débute!) Quelqu'un pourrait-il m'aider?

Voici ma sauce:(le fichier word est déjà créé et ouvert avant ça. Le fichier Excel est également ouvert)

Worksheets("Tampon Word (2)").Range("A1:G10").Copy

objWord.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Set img = DocWord.Sections(1).Headers(wdHeaderFooterPrimary).Shapes.Paste

Je me suis inspiré de ça:(sauf qu'ici le gars veux insérer une image du disque dur)

docWord.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Set img = docWord.Sections(1).Headers(wdHeaderFooterPrimary).Shapes.AddPicture(Filename:="C:\Documents and Settings\fmorin\Bureau\entet.jpg", LinkToFile:=False, SaveWithDocument:=True)
With img
.ZOrder msoSendBehindText
End With
docWord.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
 
Re : copier dans l'en-tête d'un .doc

OK merci j'ai trouvé un truc interessant mais quand j'applique, Excel me dit que l'objet n'est pas définie:

Sub enteteEtPiedDePageWord()
'necessite d'activer la reference microsoft Word xx.x Object Library
Dim wordDoc As Word.Document

Creer_fichier:

With Worksheets(1)
Set objHyper = _
.Hyperlinks.Add(Anchor:=.Range("A1"), _
Address:="entete.doc")
objHyper.CreateNewDocument _
Filename:="c:\entete.doc", _
EditNow:=True, Overwrite:=True
End With

With wordDoc.Sections(1) 'c'est ici que ça coince!mais je sais pas quoi lui dire
.Headers(wdHeaderFooterPrimary).Range.Text = "Le titre"
.Headers(wdHeaderFooterPrimary).Range.Paragraphs.A lignment = wdAlignParagraphCenter
.Footers(wdHeaderFooterPrimary).pageNumbers.Add
End With
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour