piloter un fichier excel intégré dans un fichier word

piloter un fichier excel intégré dans un fichier word - VB/VBA/VBS - Programmation

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 ?  

Reply

Marsh Posté le 02-09-2007 à 12:47:02   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed