Problème d'insertion d'image en vba

Bonjour,

J’ai créé une macro qui permet d’insérer une image dans un fichier excel. Cette image est située dans un répertoire intitulé « photos », lequel répertoire est lui-même situé au même endroit que mon classeur excel. Une fois toutes les photos insérées, je voudrais que le classeur puisse être copié sur un autre ordinateur qui ne contiendrait pas forcément le répertoire « photos ». Or, si je déplace le classeur, les photos n’apparaissent plus et un message s’affiche : impossible d’afficher l’image liée.

Voici le code que j’utilise :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

chemin = ActiveWorkbook.Path Set celprefixe = Worksheets("photos").Cells(1, 2) prefixe = celprefixe.Value Set celnumphoto = Worksheets("fichesdetail").Cells(lfiche + 2, 12) numphoto = celnumphoto.Value   If (numphoto <> "") Then With celnumphoto .Value = "" End With   'Worksheets("fichesdetail").Pictures.Insert(chemin & ":photos:" & prefixe & numphoto & ".jpg").Select ‘ cette ligne et la suivante ont le même résultat   Worksheets("fichesdetail").Pictures.Insert(":photos:" & prefixe & numphoto & ".jpg").Select

---

Auriez-vous une solution pour que je puisse déplacer mon fichier vers un autre ordinateur ?

En vous remerciant,

Aurore

Bonsoir Aurore,

Essais avec "Shapes.AddPicture" pour les enregistrer (ou non) avec le classeur, je te poste un petit exemple, adapte à tes besoins :

Code:

---

1 2 3 4 5 6 7 8

Dim Image As Shape Dim Chemin As String Dim Fichier As String   Chemin = ActiveWorkbook.Path & "\" Fichier = "MaPhoto.jpg" Set Image = Worksheets("fichesdetail").Shapes.AddPicture(Chemin & Fichier, False, True, 0, 0, 100, 100)

---

Hervé.

Je te remercie, cette méthode fonctionne.
En revanche, cela implique un autre problème que je me permet de vous soumettre. Celui-ci concerne la mise en place et le dimensionnement des images. Voici le code que j'utilisais avec le Picture.Insert :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

If (Selection.Height < Selection.Width) Then 'photo paysage With Selection .ShapeRange.Left = Cells(lfiche + 2, 7).Left + 1.5 .ShapeRange.Top = Cells(lfiche + 2, 7).Top + 40 .Width = 228 End With Else With Selection 'photo portrait .ShapeRange.Left = Cells(lfiche + 2, 7).Left + 40 .ShapeRange.Top = Cells(lfiche + 2, 7).Top + 1 .Height = 230 End With End If Selection.Placement = xlMoveAndSize

---

Mais remplacer le "With Selection" par un "With Image" ne convient pas. D'où cela peut-il provenir ?
De plus, comment puis-je différencier les cas où ma photo est en paysage ou en portrait ?

En vous remerciant,

Aurore

Il s'avère que la réponse concernant le dimensionnement était presque son mon nez, je la donne pour ceux que ça intéresserait.

Code:

---

Set Image = Worksheets("fichesdetail").Shapes.AddPicture(":photos:" & prefixe & numphoto & ".jpg", False, True, Cells(lfiche + 2, 7).Left + 1.5, Cells(lfiche + 2, 7).Top + 30, 228, 171)

---

Concernant la différence paysage / portrait, je n'ai pas trouvé mais ce n'est pas très grâve.

Aurore