Discussion :

[latop]

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 :

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

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

[patricktoulon]

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 :

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

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 :

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

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

[latop]

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

Code :

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

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