Salut docteur,

tiré de l'aide Ms

Set myDocument = Worksheets(1)
myDocument.Shapes.AddPicture _
"c:\microsoft office\clipart\music.bmp", _
True, True, 100, 100, 70, 70


AddPicture, méthode


Cette méthode crée une image à partir d'un fichier existant. Elle renvoie un objet Shape qui représente la nouvelle image.

Syntaxe

expression.AddPicture(FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height)

expression Obligatoire. Expression qui renvoie un objet Shapes.

FileName Argument de type String obligatoire. Fichier à partir duquel l'objet OLE doit être créé.

LinkToFile Argument de type Long obligatoire. Cet argument a la valeur True pour lier l'image au fichier à partir duquel elle a été créée. Il a la valeur False pour transformer l'image en une copie indépendante du fichier.

SaveWithDocument Argument de type Long obligatoire. Cet argument a la valeur True pour enregistrer l'image liée avec le document dans lequel elle est insérée. Il a la valeur False pour stocker seulement les informations de liaison dans le document. Cet argument doit avoir la valeur True si l'argument LinkToFile a la valeur False.

Left, Top Argument de type Single obligatoire. Position (en points) du coin supérieur gauche de l'image par rapport au coin supérieur gauche du document.

Width, Height Argument de type Single obligatoire. Largeur et hauteur de l'image, en points.

A+
Michel

Bonjour

Tu peux remplacer toutes tes lignes par celle-ci qui devrait fonctionner.

ActiveSheet.Pictures.Insert ([B15])

ou pour la postionner à un endroit précis

ActiveSheet.Shapes.AddPicture [B15], True, True, 100, 100, 70, 70
en faisant varier les positions par exemple
ActiveSheet.Shapes.AddPicture [B15], True, True, [A10].Left, [A10].Top,  [A10].Width ,  [A10].Height  
pour positionner en A10