Charger l'image

Re : Charger l'image

J'ai créé un dossier images sur le D dedans j'ai un papillon en .jpg et... il ne passe rien 🙁

Ou alors erreur sur
ChDir chemin 🙁

Re : Charger l'image

Re,
N'as tu pas oublié "\" à la fin du chemin en A1 feuille2 ?
De plus modifies la macro comme ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
chemin = Sheets(2).Range("A1").Value
If Not Intersect(Target, Range("F4")) Is Nothing Then
ChDir chemin
On Error Resume Next
ActiveSheet.Shapes("Image").Delete
Range("D2").Select
Image = ActiveSheet.Pictures.Insert(chemin & Range("F4") & ".jpg").Select
Selection.Name = "Image"
Range("F4").Select
End If
End Sub

Par ailleurs, il faudra peut-être redimensionner ton image:
...
Selection.Name = "Image"
Selection.Width = ...
Selection.Height = ...
...
A+
kjin