Problème word macros

Orcrist Messages postés 11 Statut Membre -  
m@rina Messages postés 26251 Statut Contributeur -
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!
A voir également:

9 réponses

eriiic Messages postés 25847 Statut Contributeur 7 279
 
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
0
Orcrist Messages postés 11 Statut Membre
 
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
0
eriiic Messages postés 25847 Statut Contributeur 7 279
 
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
0
Orcrist Messages postés 11 Statut Membre
 
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Orcrist Messages postés 11 Statut Membre
 
personne?
0
Orcrist Messages postés 11 Statut Membre
 
Toujours personne?
0
m@rina Messages postés 26251 Statut Contributeur
 
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
0
Orcrist Messages postés 11 Statut Membre
 
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!
0
m@rina Messages postés 26251 Statut Contributeur
 
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
0