code d'insertion d'image, défaut

J'ai tenter de trouver un code pour insérer des images dans des cellules.

Mon image est contenu dans un dossier de mon disque dur.

Je tape le nom de mon image dans une text box.

Mon image se trouve inserer dans ma cellule active.

Voici mon code, Qu'en pensez vous?

Code:

---

1 2 3 4 5 6 7 8

Dim l As Variant l = TextBox8 CheminImage = "C:\Users\Benjamin\Desktop\bureau\societe\Nomenclature débit,achat\image pièces" & "l" & ".bmp"   ActiveSheet.Pictures.Insert (CheminImage) ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Top = ActiveCell.Top ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Left = ActiveCell.Left

---

Ce code me dit

"erreur d'éxecution 1004.
La méthode insert de la classe picture a échoué"

Donc j'ai essayé pas mal de chose, mais la je vois pas, je suis pas assez expérimenté sans doute :)

Bonjour
2 solutions
'insertion d'une image avec le dimention et position de la cellule active avec la fonction "Addpicture" ca ne respecte donc pas les proportions de l'image

Code:

---

1 2 3

Sub test() Sheets(1).Shapes.AddPicture "C:\Users\Public\Pictures\Sample Pictures\Chrysanthemum.jpg", True, True, ActiveCell.Left, ActiveCell.Top, ActiveCell.Width, ActiveCell.Height End Sub

---

'insertion d'une image avec position de la cellule active et sa largeur en gardant les proportion rationelle de l'image avec la fonction "picture.insert" en respectant ses proprtions
' elle sera donc dans la cellule mais avec ses proportions

Code:

---

1 2 3 4 5 6 7 8 9

Sub test2() Set myimage = Sheets(1).Pictures.Insert("C:\Users\Public\Pictures\Sample Pictures\Chrysanthemum.jpg")   With myimage .Top = ActiveCell.Top .Left = ActiveCell.Left .Height = ActiveCell.Height End With End Sub

---

attention quand je dis dans la cellule c'est a dire au meme niveau visuellement
car on ne peut pas mettre une image dans une cellule
;)

j'ai choisis ton deuxième code...

Code:

---

1 2 3 4 5 6 7 8 9

Dim myimage As Variant   Set myimage = Sheets(2).Pictures.Insert("C:\Users\Benjamin\Desktop\bureau\societe\Nomenclature débit,achat\image pièces\l.png")   With myimage .Top = ActiveCell.Top .Left = ActiveCell.Left .Height = ActiveCell.Height End With

---

le nom du fichier que j'ai appelé "l" dans ton code est apparu correctement sur mon tableur.

Mais je n'arrive pas à déclarer une variable correspondant à la valeur de ma textbox.

je remplace le "l", par exemple, par "valeur_saisie"

La variable "valeur_saisie" correspond au contenu de textbox8