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 :
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 :
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