Création d'une image automatiquement

[Eric D]

Bonjour à toutes et tous,

J'ai une image sur ma feuille, grace à la collaboration de certain, que je peux changer,

Sub Cson()
Dim imag As String
Range("BA11").Value = Range("BA11").Value * -1
imag = IIf(Range("BA11").Value < 0, "C:\HP2.JPG", "C:\HP1.JPG")
ActiveSheet.Shapes("Son").Fill.UserPicture imag
End Sub

Mais au départ j'en ai pas, donc comment la créer et lui donner un nom.
Merci, pour votre aide.
Eric D

 

[john]

Re : Création d'une image automatiquement

Bonjour,
Je comprend pas ce que tu veux exactement !!!! peux-tu me donner un fichier en exemple ??

Merci

John

 

[pierrejean]

Re : Création d'une image automatiquement

bonjour EricD

Salut john

en supposant que j'aie compris :

a adapter:

ActiveSheet.Pictures.Insert("E:\Mes documents\Mes images\IMG_3604.jpg").Select
    Selection.Name = "LeNom"

 

[Eric D]

Re : Création d'une image automatiquement

Bonjour pierrejean,

C'est impec, Merci pour ton aide.
Eric D