Problème word macros Fermé

Question

Bonjour,


Je suis en train de créer un fichier word comportant des boutons qui permettent, grâce à une image active d'afficher plusieurs images successivement dans un même cadre.

J'utilise pour cela la macro suivante : 
Sub Bouton10_Clic()
Dim image As String, chemin As String
image = "nom de l'image"

chemin = ThisWorkbook.Path & "\photos\"
Sheets(3).Image1.PictureSizeMode = 3
Sheets(3).Image1.Picture = LoadPicture(chemin & image & ".jpg")
End Sub

Or si cela marchait parfaitement dans Excel (cf mon post précédent) il n'en est pas de même pour word.
L'erreur vient probablement du "Thisworkbook" ainsi que du "sheets(3)" mais je ne vois pas quoi mettre à la place.
Je ne sais pas non plus comment récupérer le nom du bouton dans image.

Si quelqu'un peut m'aider.

Merci d'avance!

eriiic · Answer

Bonjour,

menu 'outils / macro / nouvelle macro...', 
Tu fais tes actions et elles seront enregistrées.
Tu auras une bonne partie des renseignements que tu cherches dedans.

eric

Orcrist · Answer

Bonjour,

Merci pour ta réponse, mais je n'arrive pas  à trouver les infos dont j'ai besoin en enregistrant une macro.
Je ne trouve toujours pas le remplaçant de "ThisWorkbook" ou de "Sheet()" sous word, ni la manière de récupérer le nom du bouton dans la macro...

Si d'autres personnes ont une idée, merci d'avance!

Orcrist

eriiic · Answer

Bonjour,

Qu'est-ce que tu veux faire exactement  ?
"ThisWorkbook" ou "Sheet()" sont des objets d'excel.
J'ai l'impression que tu mélanges les choses.
Si tu insères une feuille excel dans ton document tu obtiens bien le code...
Le premier bouton s'appellera commandbutton1 jusqu'à ce que tu renommes.
Ceci je ne suis pas un spécialiste des macros word.
eric

Orcrist · Answer

Bonjour,

Ce que je souhaite faire c'est créer un/des boutons sous word qui me permettent d'afficher une/des images dans une zone dédiée à cela. Les images étant extérieures au doc. Grosso-modo, j'essaie de faire la même chose que ce que j'ai fait sous Excel (merci michel_m) cf la macro écrite dans mon premier message, mais sous word. Ce qui semble possible, mais je n'y arrive pas... j'aimerai éviter d'avoir à insérer une feuille Excel dans mon word afin d'avoir une mise en page particulière.

orcrist

Orcrist · Answer

personne?

Orcrist · Answer

Toujours personne?

m@rina · Answer

Bonjour,

Ce qu'on ignore, c'est l'endroit où tu souhaites ajouter ces images. Word est bien plus complexe qu'Excel au niveau des macros, car il faut tout préciser. Les pages ne sont pas des objets contrairement aux sheets d'Excel.

Donc ta zone dédiée à l'image, elle est où ? C'est une Shape (objet avec habillage) ou une InlineShape (couche texte) ? Et à quel endroit ?

m@rina

Orcrist · Answer

En fait, Word 2007 permet de créer des "zones d'images" je pense que c'est ce que vous appelez shape.
Je pensais, étant donné que la présentation est exactement la même que sous excel, que le fonctionnement était similaire. J'ai simplement essayé de transcrire ce que j'ai fait avec excel sous word.

J'abandonne le sujet, ayant laissé de côté la version word de mon travail,

Merci pour votre aide!

m@rina · Answer

Bonjour,

Puisque tu as abandonné Word, on ne va pas prolonger inutilement cette discussion. Je reviens néanmoins sur les notions de Shape et de InlineShape qui n'ont rien à voir avec la zone de dessin. C'est réellement la notion d'habillage qui détermine s'il s'agit d'un Shape ou d'un InlineShape. Une zone de dessin peut être l'un ou l'autre selon si elle a un habillage ou pas.

m@rina