[VBA-WORD] je voudrais insérer des images automatiquement.

[SharkAngel]

Bonjour,

En faite j'essaye de faire des cartes de membres, pour le moment j'ai un dossier avec plein de photos d'identités, que j'ai scanné. Ainsi qu'un document WORD où j'ai mis en place les cartes.

J'utilise le syteme de publipostage avec une petite source de donnée créé avec WORD pour insérer les informations de chaque membre sur la carte, cela fonctionne trés bien, mais j'aurai besoin d'insérer la photo aussi.

Je voudrais faire une macro qui pourrait insérer une image à partir d'un texte sélectionné dans le document WORD. Ou ce qui serait encore mieux, c'est que la macro reconnaisse chaque endroit qu'il faut insérer la photo du membre. Ou encore le "must" ça serait qu'il y ai un moyen d'insérer les images dans la source de donnée, mais j'ai pas l'impression que c'est possible.

Pour ma 1ere solution avec la sélection du texte, j'avais réussi à faire fonctionner avec le code suivant:

Code :

1
2
3
4
5
6
nom = Selection.Text
 
Selection.InlineShapes.AddPicture _
       FileName:= "F:\Mes documents\Mes images\" & nom & ".jpg", _
       LinkToFile:=False, _
       SaveWithDocument:=True

mais je sais pas pourquoi ça ne marche plus. J'ai un message d'erreur me disant "fichier non valide". Mais de toute façon elle est pas terrible cette solution. Ca donne du semi-automatique!

Je me disais aussi... qu'indiquer un chemin relatif serait mieux, j'ai cherché un peu sur le net, mais j'ai pas réussi à trouver comment faire.

J'ai en plus une grosse contrainte... , j'ai un peu moins de 24h pour trouver la solution.

Alors y'aurai-t-il quelqu'un pour venir à mon secours! lol

Un grand MERCI d'avance pour toutes réponses.

[ouskel'n'or]

24 heures, c'est court...
Pour insérer une image, j'utilise la commande

Code :

    Selection.InlineShapes.AddPicture FileName:=NomFichier

J'utilise donc une variable comme nom de fichier, incluant bien sûr le chemin complet.
Ici, "Selection" car je me positionne à l'endroit où je souhaite l'insérer. Mais tu peux utiliser un signet sans avoir à sélectionner.
... si je n'arrive pas trop tard