Insertion image dans cellule active

[remibob]

Bonjour !

Voici mon problème.
J'ai une base de donnée avec description de produits et une photo du dit produit.

La photo se trouve en colonne B sur la ligne correspondante à son produit.
(Ex : produit X
A1 : description produit, B1 : photo produit, C1 : prix produit ...)

J'utilise actuellement ce code trouvé sur un site et modifié par mes soins.
Ma recherche veut que l'image se mette au format de la cellule active.

Comment faire en sorte qu'au lieu de "C2" ce soit la cellule active qui fonctionne?

Merci d'avance pour votre réponse,
bonne soirée.

voici le code :

Sub Macro1()
    Dim Photo As Variant
    Dim Gauche, Sommet, Largeur, Hauteur As Single
 
    Photo = Application.GetOpenFilename()
    Gauche = Range("C2").Left
    Sommet = Range("C2").Top
    Largeur = Range("C2").Width
    Hauteur = Range("C2").Height
 
    If Photo <> False Then
        Feuil1.Shapes.AddPicture Photo, True, True, Gauche, Sommet, Largeur, Hauteur
    End If
End Sub

 

[Hervé]

Re : Insertion image dans cellule active

salut

essayes de remplacer Range("C2") par activecell

a plus

 

[remibob]

Re : Insertion image dans cellule active

merci infiniment,

ceci était tout bête
ca fonctionne à merveille !

Merci encore,
bonne soirée.