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
Partager