Bonjour,

J'ai le code suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
If el = "Vêtements de protection obligatoire" Then
Set objPict = objFeuille.Pictures.Insert(ActiveWorkbook.Path + "\Pictogrammes\Pictodobligation\3.jpg")
Qui marche, c'est à dire que si la condition est remplie, l'image s'affiche.

J'enregistre.

Quand j'ouvre mon fichier, l'image s'affiche, sauf si je supprime le repertoire "\Pictogrammes\Pictodobligation\3.jpg"

Or j'aimerai transmettre ce fichier, à quelqu'un qui n'a pas le répertoire en question sur son poste. J'aimerai donc que l'image inséréé soit insérée une bonne fois pour toute dans le fichier, sans aller la chercher ailleurs...


Pouvez m'aider svp ??!!

Merci d'avance !
Marc