Objet package

[Dominique]

Bonjour,

J'ai pour but de faire apparaitre une image dans une feuille.
J'y suis presque arrivé, cepandant, j'ai un petit soucis.

Je tape la ref de la photo, qui est recherchée dans une liste contenant les chemins complets des photos.

Tout se déroule bien mais ce qui apparait, cest un petit cadre contenant le nom du fichier.
Lorsque je double clique sur le fichier, la photo s'ouvre dans un logiciel d'édition de photos (photoshop, qui est mon programme d'édition par défaut).

J'ai lu par ailleurs que pour afficher directement la photo sur la feuille, il faut que la liaison soit établie de préférence avec l'explorateur windows ou un logiciel acceptant le drag and drop.
Preuve en est, je ne parviens pas à obtenir un affichage de l'image même avec photoshop comme logiciel de liaison mais je sais tirer la photo vers la feuille et la dimensionner.

il ne reste plus que cela pour finaliser mon application, c'est dommage.

merci d'avance

 

[Hellboy]

Bonjour Dominique

j'espère que ceci pourra t'aider:

Public Sub insertImg()
Dim fichImg As Variant
    fichImg = Application.GetOpenFilename('Fichier image(*.gif;*.jpg;*.bmp),*.gif;*.jpg;*.bmp' _
    , , 'Choix de l'image', , False) 'false selection simple
    If fichImg = False Then Exit Sub
    ActiveSheet.Pictures.Insert(fichImg).Select
End Sub

http://dj.joss.free.fr/media.htm#inserimg