Bonjour,

Novice en VBA, quelqu'un pourrait-il m'aider à résoudre le message d'erreur suivant : erreur d'exécution 13. Je souhaite que mon image s'insère dans la cellule C7

Voici le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub validation_Click()
 
Dim chemin As String
Dim NomImage As String
Dim Image As String
 
chemin = "C:\Users\STEPH\Pictures\fms\"
NomImage = Range("A2")
Image = ".bmp,.jpg"
 
ActiveSheet.Shapes.AddPicture Filename:=chemin & NomImage & Image, linktofile:=msoFalse, savewithdocument:=msoTrue, Left:=("C7"), Top:=("C7"), Width:=("C7"), Height:=("C7")
End Sub