Bonjour

je cherche a ajouter ume image dans une cellule excel, ça marche sans gros pb. Toute fois l'image déborde, donc il faut la reduire !!!!!

Voila mon code avec un essai qui ne donne pas satisfaction
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
 If Me.TG16.Text = "G" Then
                    Dim Plage As Excel.Range
                    a16 = "G"
                    .Range("B18").Select()
                    appExcel.ActiveSheet.Pictures.Insert("C:\Image chiffre\16.bmp", CSng(Plage.Left), CSng(Plage.Top), 13, 13).Select()
                    .Range("H18").Select()
                    appExcel.ActiveSheet.Pictures.Insert("C:\Image chiffre\16.bmp", ).Select()
                End If
message d'erreur" La référence d'objet n'est pas définie à une instance d'un objet."
merci pour votre aide
@+
Phil