Discussion :

[petibonohm]

bonjour,

je suis en train de faire un devoir pour l'école...

j'affiche des images, mais quand je mailerai le dossier, les liens des images sera perdus...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Image1.Picture = LoadPicture("C:\Documents and Settings\USER\Bureau\Projet VBA\Image\bateau2.jpg")

y a t'il une façon de donner le lien en relatif et non en absolue ?

merci

[jfontaine]

En utilisant le chemin du classeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.Path

[petibonohm]

ça donnerais ça ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Image1.Picture = LoadPicture(ThisWorkbook.Path,"Image\bateau2.jpg")

[jfontaine]

plutot comme ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Image1.Picture = LoadPicture(ThisWorkbook.Path & "\Image\bateau2.jpg")

[petibonohm]

nikel !!