Passez un image en entete et pied de page [Résolu]

fred2567 42 Messages postés mardi 1 août 2006Date d'inscription 31 janvier 2008 Dernière intervention - 14 sept. 2007 à 15:35 - Dernière réponse : fred2567 42 Messages postés mardi 1 août 2006Date d'inscription 31 janvier 2008 Dernière intervention
- 18 sept. 2007 à 08:51
rebonjour,
donc je cherche comment mettre un image en entete et pied de page
dans une macro ?
Sachant que la macro automatique ne fonctionne pas?
Mon problème se trouve sur les lignes en rouge je ne comprend pas l'utilisation de l'appepl d'entete et pied de page

docWord.ActivePane.View.SeekView = wdSeekCurrentPageHeader

With docWord
    .InlineShapes.AddPicture Filename:="C:\Documents and Settings\fmorin\Bureau\entet.jpg", LinkToFile:=True, SaveWithDocument:=True
    .InlineShapes(1).ConvertToShape
    .Shapes(1).ZOrder msoSendBehindText
    .Shapes(1).IncrementTop 0#
End With

ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

quelqu'un a t'il déjà rencontré cela??
ou une proposition a me fournir?
merci d'avance
 
Afficher la suite 

7 réponses

Répondre au sujet
fred2567 42 Messages postés mardi 1 août 2006Date d'inscription 31 janvier 2008 Dernière intervention - 18 sept. 2007 à 08:51
+3
Utile
Ok donc en mélangeant plusieurs sources j'ai réussi à réaliser ce que je voulais donc je post le code au cas ou cela pourrai servir a qq'un d'autre :

'on met en place l'entete du document

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

merci à JM247L pour sa participation
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de fred2567
fred2567 42 Messages postés mardi 1 août 2006Date d'inscription 31 janvier 2008 Dernière intervention - 14 sept. 2007 à 16:12
0
Utile
bon j'ai trouvé comment accéder a l'entete !
mai je n'arrive pas à y insérer mon image

objWord.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
With docWord.ActiveWindow.ActivePane
    .InlineShapes.AddPicture Filename:="C:\Documents and Settings\fmorin\Bureau\entet.jpg", LinkToFile:=True, SaveWithDocument:=True
    .InlineShapes(1).ConvertToShape
    .Shapes(1).ZOrder msoSendBehindText
    .Shapes(1).IncrementTop 0#
End With
objWord.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
Commenter la réponse de fred2567
JM247L 444 Messages postés mardi 27 mars 2007Date d'inscription 1 mars 2011 Dernière intervention - 14 sept. 2007 à 17:48
0
Utile
Bonsoir,
Moi ça fonctionne avec ce code :
  ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
  Selection.InlineShapes.AddPicture FileName:= _
    "C:\Documents and Settings\dz3hby\My Documents\My Pictures\TestJML.JPG", _
    LinkToFile:=False, SaveWithDocument:=True
  ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

Cliquer "Réponse Acceptée" Quand La Réponse Est OK
JML. Partageons notre savoir et nos acquis

Commenter la réponse de JM247L
fred2567 42 Messages postés mardi 1 août 2006Date d'inscription 31 janvier 2008 Dernière intervention - 17 sept. 2007 à 09:09
0
Utile
oui en fait c'est vrai que ça marche hors ce que j'essaie de faire c'est metttre mon image en entete et derriere le texte sinon mon entete arrive à mi page
Commenter la réponse de fred2567
JM247L 444 Messages postés mardi 27 mars 2007Date d'inscription 1 mars 2011 Dernière intervention - 17 sept. 2007 à 11:38
0
Utile
Je crains qu'il n'existe pas de possibilité individuelle pour traiter un objet mais peut être au niveau globale du document
Voir :wdWrapMergeBehind, ----
wdWrapMergeFront, ----
wdWrapMergeInline Default, ----
wdWrapMergeSquare, ----
wdWrapMergeThrough, ----
wdWrapMergeTight, ----
wdWrapMergeTopBottom
Inséré dans :
Sub PicWrap()
    With Application.Options
       .PictureWrapType = "Une des options ci-dessus
    End With
End Sub

             Cliquer "Réponse Acceptée" Quand La Réponse Est OK

JML. Partageons notre savoir et nos acquis
Commenter la réponse de JM247L
fred2567 42 Messages postés mardi 1 août 2006Date d'inscription 31 janvier 2008 Dernière intervention - 17 sept. 2007 à 16:28
0
Utile
non tjs pas je commprend pas pkoi avec mon ancienne action ça fonctionne pas.

il arrive bien a mettre mon image en arriere plan mais pas dans l'entete arrrrrrrgggggggghhhhhhhh

j'ai essayé comme ça:

docWord.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
objWord.Selection.InlineShapes.AddPicture Filename:="C:\Documents and Settings\fmorin\Bureau\entet.jpg", LinkToFile:=False, SaveWithDocument:=True
docWord.Options.PictureWrapType = wdWrapMergeBehind
docWord.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

mais pas de mise en arriere plan
Commenter la réponse de fred2567
JM247L 444 Messages postés mardi 27 mars 2007Date d'inscription 1 mars 2011 Dernière intervention - 17 sept. 2007 à 17:50
0
Utile
En fait cette manip s'exécute manuellement mais lors de l'enregistrement de macro il devient impossible de sélectionner l'image
Par contre si l'image existe alors on peut la sélectionner mais les options ne sont pas disponible

J'ai trouvé ça sur le site ... ce n'est pas la réponse mais le gars commence en disant qu'il à une macro permettant d'insérer une image en pied de page
Peut être a t il une solution

http://www.vbfrance.com/infomsg_MACRO-INSERTION-MODIFICATION-IMAGE-PIED-PAGE_37980.aspx

Petite astuce ... lorsque tu as enregistré ton message, une liste en dessous indique les points similaires existants sur le site ... Ca m'a permis de trouver des réponses !!!

             Cliquer "Réponse Acceptée" Quand La Réponse Est OK

JML. Partageons notre savoir et nos acquis
Commenter la réponse de JM247L

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.