commande de Feuille excel dans doc word

Question

Bonjour... Je réalise actuellement avec VB2005 express un logiciel d'aide à la réalisation de devis , je crèe donc un fichier excel, j'incorpore des informations de calcul , j'envoi ensuite ce fichier excel sur mondocument word sur le signet adéquat en fonction du produit choisi. Ligne de commande : Dim oWord As Object Dim oDoc As Object Dim oInlineShape As Word.InlineShape oWord = CreateObject("Word.Application") oDoc = oWord.documents .open ("C:\Base devis.doc") oInlineShape = CType(oDoc.Bookmarks("GR"). range .InlineShapes.AddOLEObject(ClassType:="Excel.Sheet.8", FileName:="C:\ essai.xls", LinkToFile:=False, DisplayAsIcon:=False), Word.InlineShape) Mon souci : La fenêtre de visualisation du fichier excel se dimensionne automatiquement en fonction des éléments qui sont sur la feuille, je dois donc la modifier afin de cacher certaines lignes de calcul, or ça... j'y arrive pas... L'objet oInlineShape se redimensionne avec par ex. height mais avec un effetzoom... je peux activer l'objet et ainsi arriver à la feuille excel, mais plus de propriété height... Je cale... un coup de main , SVP???

cs_Manu91 · Answer

Je reviens sur cette demande, pour essayer de contourner le problème... Comment ouvrir une feuille excel dans word avec un nombre de lignes et de colonnes prédéterminé ???? La ligne : oDoc.Bookmarks("GR"). range .InlineShapes.AddOLEObject(ClassType:="Excel.Sheet.8", FileName:="C:\ essai.xls", LinkToFile:=False, DisplayAsIcon:=False) m'impose le nombre de lignes et colonnes, et je ne trouve par de propriétés dimensions sur l'OLEObject... Merci à ceux qui pourraient s'interesser !!!!

Commande de Feuille excel dans doc word

1 réponse

Votre réponse

Discussions similaires