Insertion tableau excel

hlander · 09/10/2008, 11h28

Bonjour,

J'ai besoin de programmer une macro, qui reproduit, ce qu'il se passe en choisissant par l'interface insertion / Objet / créer a partir d'un fichier et là je choisi un fichier Excel.

En faite je veux inserer un tableau Excel dans une feuille Excel, avec une fenêtre pour choisir le fichier. J'ai cette macro pour une image

Code :

 
 ficimg = Application.GetOpenFilename(".jpg,*.jpg", , "Choisissez l'image")  ' 
    ActiveSheet.Pictures.Insert(ficimg).Select 
   
    With Selection
        .PrintObject = True          
        .Placement = xlMoveAndSize  
        .Locked=false
    End With

Et comment faire pour que dans le cas ci-dessus l'image s'insère a partir d'une cellule donnée.
Merci

pgz · 09/10/2008, 16h40

Bonjour.

Pour aligner un objet de type Shape, tu peux essayer :

Code :

    .Left = Range("macellule").Left
    .Top = Range("macellule").Top

Bon courage,

PGZ

09/10/2008, 11h28	#1 (permalink)
hlander Invité régulier Date d'inscription: décembre 2006 Messages: 15	Insertion tableau excel Bonjour, J'ai besoin de programmer une macro, qui reproduit, ce qu'il se passe en choisissant par l'interface insertion / Objet / créer a partir d'un fichier et là je choisi un fichier Excel. En faite je veux inserer un tableau Excel dans une feuille Excel, avec une fenêtre pour choisir le fichier. J'ai cette macro pour une image Code : ficimg = Application.GetOpenFilename(".jpg,.jpg", , "Choisissez l'image") ' ActiveSheet.Pictures.Insert(ficimg).Select With Selection .PrintObject = True .Placement = xlMoveAndSize .Locked=false End With Et comment faire pour que dans le cas ci-dessus l'image s'insère a partir d'une cellule donnée. Merci Dernière modification par hlander ; 09/10/2008 à 12h05*

09/10/2008, 16h40	#2 (permalink)
pgz Expert Confirmé Date d'inscription: août 2005 Localisation: AriègePyrénées Messages: 1 768	Bonjour. Pour aligner un objet de type Shape, tu peux essayer : Code : .Left = Range("macellule").Left .Top = Range("macellule").Top Bon courage, PGZ __________________ Vous n'auriez pas l'idée de déclamer : "Oh taon, suspends ton vol!". Alors, de grâce, ne dites plus "Autant pour moi!". Dites : "Au temps pour moi!".

		Forum des développeurs > Hardware, Systèmes et Logiciels > Microsoft Office > Excel > VBA Excel
Insertion tableau excel

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email