Discussion :

[fred bx]

Bonjour,

Lors de la liaison d'excel vers word je souhaite insérer une image dans le pied de page du doc. Word (logo de l'entreprise), cependant je ne trouve pas le code approprié. Quelqu'un à une idée ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
'Insertion d'un pied de page
laDate = Format(Sheets("Activité").Range("C8"))
With docword.Sections(1)
.Footers(wdHeaderFooterPrimary).Range.Text = "Désignation de l'entreprise - TB Activité" & " " & laDate & " -"
.Footers(wdHeaderFooterPrimary).Range.Paragraphs.Alignment = wdAlignParagraphCenter
.Footers(wdHeaderFooterPrimary).PageNumbers.Add
End With

Merci d'avance...

[SfJ5Rpw8]

continu avec ...:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Footers(wdHeaderFooterPrimary).Range.InlineShapes.AddPicture "c:\tmp\monImage.jpg"