Macro importer image

Bonjour à tous,

Je bloque sur un point, j'avais créé une macro pour importer une image dans une feuille, cela fonctionnait parfaitement et je ne sais pas pourquoi, maintenant cela ne marche plus.

Je vous joins mon fichier pour bien comprendre.

Merci d'avance,

ValD

Bonjour,

il suffit de lire l'erreur quand tu lances ta macro c'est affiché : End sub ( attendu )

ensuite après correction : End with ( attendu )

çà veut dire qu'il manque à la fin de ta macro :

Sub Perspective()
r?pertoirePhoto = ThisWorkbook.Path & "\1- Perspective du projet\"

nom = "Projet"

Set c = Range("d5").MergeArea
With ActiveSheet
On Error Resume Next

.Pictures.Insert(r?pertoirePhoto & nom & ".jpg").Name = nom

.Shapes(nom).LockAspectRatio = msoTrue
.Shapes(nom).Width = c.Width
.Shapes(nom).Left = c.Left
.Shapes(nom).Top = c.Top

End With
End Sub