piloter un fichier excel intégré dans un fichier word
piloter un fichier excel intégré dans un fichier word - VB/VBA/VBS - Programmation
MarshPosté le 02-09-2007 à 12:47:02
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 mon document 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 effet zoom... je peux activer l'objet et ainsi arriver à la feuille excel, mais plus de propriété height...
Ca parait simple sur le papier... mais en fait ça l'est pas du tout !!! (enfin pour moi et mes copains informaticiens qui calent aussi !!!)
Marsh Posté le 02-09-2007 à 12:47:02
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 mon document 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 effet zoom...
je peux activer l'objet et ainsi arriver à la feuille excel, mais plus de propriété height...
Ca parait simple sur le papier... mais en fait ça l'est pas du tout !!! (enfin pour moi et mes copains informaticiens qui calent aussi !!!)
Un coup de mains ?