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