[VBA-E]probleme Insert image
bonjour,
j'ai un problème avec ce code j'ai toujours une erreur pouvez vous me dire d'où ça provient
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
| Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 03/04/2006 por SUPPORTER
'
'
' declaration des variables
Dim test As String
Dim name As String
' supprimer les photos en cours
ActiveSheet.Pictures.Delete
' récupérer le nom dans la case
test = ActiveCell.Text
'ajouter l'extencion au nom
name = test + ".jpg"
' choisir la cellule du coin supérieur gauche de votre image :
Range("C3").Select
' insérer la photo avec le nom désiré :
ActiveSheet.Pictures.Insert(name).Select
End Sub |
l'erreur est la suivante impossible de lire la proprieté insert de la class picture
Pouvez vous m'aider
Merci beaucoup