Bonjour,
J'ai un problème lors de l'insertion d'image, une erreur 1004: "Impossible de lire la propriété Insert de la classe Pictures" apparaît et je n'ai pas trouvé de solution..
Voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 Sheets("Fiche REX").Range("A44:I58").Select Ad = Selection.Address ficimg = Application.GetOpenFileName(".jpg,*.jpg,.gif,*.gif,.jpeg,*.jpeg", , "Choisissez l'image") If ficimg = "Faux" Then Exit Sub Sheets("Fiche REX").Pictures.Insert(ficimg).Select
Merci!
Partager