Discussion :

[Malorie]

Bonjour,

Voici mon probleme:

J'ai un template word avec un logo (un Shape) dans le header.

En fonction de la langue choisie via une form, je dois changer le logo et le remplacer par un autre (traduit dans la langue souhaitee) contenu dans un repertoire quelconque.

Le nouveau logo doit etre positionner exactement a la même place que l'ancien, mais je n'y arrive pas, pourriez vous m'aider?

Pour le moment, ce que je fais, je me positionne dans le header et je selectionne mon logo, mais apres pour faire le remplacement, je bloque.

Merci d'avance pour votre aide

Code :

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

1
2
3
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.HeaderFooter.Shapes("Picture 4").Select
'suite ? ......

[Heureux-oli]

Salut,

Pourquoi le changer ?
Il est beaucoup plus simple de l'ajouter.

[Malorie]

Hello,

Tout d'abord, merci de te pencher sur mon probleme.

Je veux le changer car je pars d'un template créé par notre équipe graphiste (ils sont ultra pointilleux) et je dois le modifier en fonction de la langue, et il est plus facile d'adapter mon document de base plutot que de le recréer entierement.

Du moins je pense car le VB word ce n'est pas mon fort, je commence. J'ai lu tout les tutoriels, mais cela reste une introduction, j'ai besoin de fonctions plus avancées.

D'ailleurs si tu as un lien vers du "vb word advanced", je suis preneur. Ca existe peut etre sur ce site, mais je ne l'ai pas trouve

Enfin bon, pour le moment je cherche un peu la meilleure facon de faire...

[Heureux-oli]

Salut,

Pour ce qui est de la partie avancée, elle est en cours de réalisation.

Pour Accéder à l'en-tête ou au pied de page, tu as utilisé l'enregistreur de macro.
C'est une solution, mais ce n'est pas la meilleure.

On accède à l'en-tête par :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub ImageEntete()
 
With ActiveDocument.Sections(1).Headers(wdHeaderFooterEvenPages)
    .Shapes(1).Delete
    .Shapes.AddPicture FileName:="C:\temp\a.jpg", Left:=CentimetersToPoints(1), _
        Top:=CentimetersToPoints(1)
End With
 
 
End Sub

Pour une image Shape, il faut préciser l'endroit où tu vas positionner l'image.

[Malorie]

Je te remercie, je teste ca demain au boulot et je clos si c'est ok.

[Sepia]

Salut,

Un conseil Malorie, évite d'utiliser les Shapes et insère une image, tu auras beaucoup beaucoup de gain avec ta macro surtout dans les entêtes.

Juste un conseil, ne dis rien aux graphistes qui utilisent souvent des shapes par simple mimétisme avec leur outil de PAO (XPress de Quark et InDesign de Adobe) mais qui n'ont aucun intérêt le plus souvent dans Word par rapport à une image mais qui sont beaucoup plus difficiles à manipuler dans Word (pb d'ancrage...).

@+

[Malorie]

Hello,

Merci du conseil Sepia, j'aurais prefere aussi ne pas l'utiliser, mais dans mon cas precis je pense que je ne peux pas faire autrement, en effet, mon logo est formé par une image suivi de texte, et je dois aligner la premiere lettre du texte du logo avec la premiere lettre de la ligne en dessous du logo. Donc le bord gauche du logo est decalle par rapport aux lignes de mon document.

Heureux-oli, je viens de tester ton code et j'ai un probleme, rien n'apparait sur mon document, pourtant j'ai teste la presence de mon shape sur le document et le resultat de mon count m'affiche bien 1. J'ai verifie les dimensions et la taille est normale. Donc je ne sais pas quel est le probleme....

Je n'etait deja pas fan de VBA Word mais avec toutes les difficultes que je rencontre, ca ne va pas s'ameliorer lol

Voici ce que j'ai teste, sur un document vierge pour etre sur de ne pas avoir d'interference:

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
Sub testImage()
 
With ActiveDocument.Sections(1).Headers(wdHeaderFooterEvenPages)
    .Shapes.AddPicture FileName:="C:\Logos\EN_logo4C.png", Left:=CentimetersToPoints(1), _
        Top:=CentimetersToPoints(1)
 
End With
 
MsgBox ActiveDocument.Sections(1).Headers(wdHeaderFooterEvenPages).Shapes.Count
MsgBox ActiveDocument.Sections(1).Headers(wdHeaderFooterEvenPages).Shapes(1).Width
MsgBox ActiveDocument.Sections(1).Headers(wdHeaderFooterEvenPages).Shapes(1).Height
MsgBox ActiveDocument.Sections(1).Headers(wdHeaderFooterEvenPages).Shapes(1).Visible
MsgBox ActiveDocument.Sections(1).Headers(wdHeaderFooterEvenPages).Shapes(1).Left
MsgBox ActiveDocument.Sections(1).Headers(wdHeaderFooterEvenPages).Shapes(1).Top
 
End Sub

J'obtiens comme valeurs de retour:

1
142.05
53.75
-1
28.3
28.3

Tout me semble correcte non? J'ai meme essaye d'insérer mon image via l'interface word pour etre sûre que les png sont bien pris en compte...

Merci d'avance

[Heureux-oli]

Salut,

Tu dois faire un delete avant ?

[Malorie]

J'ai trouve !!! mouahaha Ouf j'avais deja arme le pistolet pour me tirer une balle...

Le probleme venait de la constante.... Comme je travaille sur le header de la premiere page, il fallait utiliser wdHeaderFooterFirstPage au lieu de wdHeaderFooterEvenPages.............

Code :

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

1
2
3
4
With ActiveDocument.Sections(1).Headers(wdHeaderFooterFirstPage)
    .Shapes(2).Delete
    .Shapes.AddPicture FileName:="C:\Logos\EN_logo4C.png", Left:=CentimetersToPoints(1), Top:=CentimetersToPoints(1)
End With

Comment perdre une journee sur des bétises.

En tout cas merci a vous pour l'aide