Discussion :

[jpsept]

Bonjour à tous ,

Par une macro VBA

Je souhaiterai insérer une ou plusieurs images de 9 pictogrammes différents (depuis des URL images) dans un tableau word en fonction de la valeur du champ "Pictogrammes" présent dans le fichier Word.

exemple le champ déclencheur du choix des Pictogrammes : SGH05, SGH07, SGH08 ( dans ce cas 3 picto sur 9 sont présents dans le fichier)

merci de votre aide

JP

[Invité]

Bonsoir,

Le vidage d'écran ci-dessous montre un objet QuickPart que j'ai créé dans votre document en sélectionnant votre tableau et en créant une nouvelle entrée dans la galerie des objets Quickpart. Il aurait fallu avoir l'ensemble des pictogrammes dans le tableau.
En ayant tous les pictogrammes et insérant l'objet Quickpart une fois créé, je peux l'implanter n'importe pas où dans le document. Il suffit ensuite d'enlever les pictogrammes inutiles.

Je ne pense pas qu'une macro soit nécessaire.

Pièce jointe 407105

[jpsept]

Eric,

Merci de votre réponse, elle est bien sur fonctionnelle , elle me conviendrait parfaitement, cependant l'exigence des utilisateurs multiples de ce fichier généré par une application web, requiert de leur fournir une solution moindre effort !

J'insiste donc sur une macro VBA qui affiche sur une ligne les pictos désignés sur le champ source "Pictogrammes" le must que cette macrs se déclenche à l'ouverture du fichier généré par l'appli web.

merci encore de votre aide

JP

[Invité]

Bonjour,

Une solution consisterait à :

• Développer une boite de dialogue avec l'image de vos pictogrammes et une case à cocher associée à chacun d'eux.
• Insérer un bouton de validation pour lancer la macro qui ira générer un tableau avec les pictogrammes retenus à l'emplacement en cours.

Cette boite pourrait être lancée depuis le ruban d'accès rapide et serait stockée dans un modèle de document .dotm.

[Sepia]

Salut jpsept,

La solution de Eric KERGRESSE est correcte et répond à ton besoin. Il existe cependant une possibilité d'exécuter une macro de façon automatique dans Word soit l'ouverture de Word (macro "AutoExec") soit à chaque ouverture de fichier dans Word (macro "AutoOpen").

Pour cela, écris ta macro avec un nom fonctionnel, teste-la puis lorsque tu es sûr que c'est OK, tu copies ta macro dans un modèle et renomme-la en "AutoExec" ou "AutoOpen". La recopie n'est pas obligatoire, tu peux utiliser le modèle "Normal.dotx" mais attention, il s'agit d'une macro automatique (ça tombe bien c'est ce que tu demandes), mais elle va donc s'exécuter à chaque fois donc tu dois vérifier que ton fichier est bien à traiter par la macro sinon tu vas avoir de désagréables surprises.

@+
Sepia