Bon,
Ca fonctionne... presque
Voici ou j'en suis...
Lorsque je tape la valeur en C2, si une photo correspondante existe, elle s'affiche au bon endroit, mais ne s'ajuste pas au format de la shape
voici le code...
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Image As Picture
Dim design As String
Dim c
Set c = Range("H19").MergeArea
On Error Resume Next
ActiveSheet.Shapes("PhotoShape").Delete
If Intersect(Target, Range("C2")) Is Nothing Then: Exit Sub
[H19].Select
design = ThisWorkbook.Path & "\" & [C2].Value & ".jpg"
Set Image = ActiveSheet.Pictures.Insert(design)
With Image.ShapeRange
.Name = "PhotoShape"
.Shapes(Name).Left = c.Left
.Shapes(Name).Top = c.Top
.Shapes(Name).LockAspectRatio = msoFalse
.Shapes(Name).Height = c.Height
.Shapes(Name).Width = c.Width
End With
[C2].Select
End Sub
pour ce fichier exemple, le fichier et une photo se retrouve dans le même répertoire
en mettant le nom du fichier (ex. test) fera apparaître la photo test.jpg dans la shape placé en H19
ne reste qu'a réduire la photo au format de la shape (et si possible en conservant le ratio de la photo)
merci de votre temps et votre aide