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
message d'erreur" La référence d'objet n'est pas définie à une instance d'un objet."
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
merci pour votre aide
@+
Phil
		
		
        



   


  Répondre avec citation

 
 
 
 
 
				
 
Partager