Discussion :

[Manu91]

Bonjour

Je crèe une application en vb2005Express pour réaliser mes devis, ces derniers sont en WORD et intègrent des tableaux EXCEL.

le fichier word créé, s'appelle Base Devis.doc, et le fichier excel que je colle dans word : essai.xls, ci dessous vous avez le bout de code qui me permet de faire la manip :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Dim oWord As Object
        Dim oDoc As Object
        oWord = CreateObject("Word.Application")
        oDoc = oWord.documents.open("C:\Base devis.doc")
 
        oDoc.Bookmarks("GR").range.InlineShapes.AddOLEObject(ClassType:="Excel.Sheet.8", FileName:="C:\essai.xls", _
        LinkToFile:=False, DisplayAsIcon:=False)

Mon soucis est que je n'arrive pas à récupéré l'index de l'InlineShapes ainsi créé (il y en a 29 dans le fichier Word), et donc je ne peux pas travailler dessus,
De la meme maniere, je souhaiterais pouvoir modifier le nombre de lignes visualisées dans la fenêtre...
Je ne trouve pas de tutos.. et je seche desespérément....

merci pour votre aide !

[Skalp]

J'imagine que tu as essayé de donner un indice entre 0 et 28 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

oDoc.Bookmarks("GR").range.InlineShapes(1)

Sinon, j'ai vu que la fonction AddOLEObject() te renvoie l'objet InlineShape, tu pourrais travailler sur les instances de ces objets, sans avoir à te soucier de l'indice... Bon, c'est sûr, ça fait 29 objets à gérer, c'est lourd, mais c'est mieux que rien.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim oInlineShape As Word.InlineShape
oInlineShape = oDoc.Bookmarks("GR").Range.InlineShapes.AddOLEObject(...)

Pour modifier le nombre de lignes visualisées, tu peux essayer la propriété :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

oInlineShape.Height

Pour plus d'infos sur le modèle objet Word, il existe des fichiers d'aide dans ton install Office :
C:\Program Files\Microsoft Office\OFFICE11\1036
Le fichier s'intitule VBAWD10.CHM (enfin, pour Office 2003...)

Ils pourront sûrement t'être d'une aide très précieuse !

Bon courage !

[Manu91]

je teste et je reviens demain, mais grand merci pour t'être penché sur mon problème...

[Manu91]

la récupération de l'objet excel marche parfaitement, merci à toi Skalp...
Pour info la ligne de prog :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
        Dim oInlineShape As Word.InlineShape
        oInlineShape = CType(oDoc.Bookmarks("GR").range.InlineShapes.AddOLEObject(ClassType:="Excel.Sheet.8", FileName:="C:\essai.xls", _
        LinkToFile:=False, DisplayAsIcon:=False), Word.InlineShape)

oInlineShape récupère alors toutes les caractéristiques de l'objet ajouter sauf que... les caractéristiques de l'objet ne me permettent pas d'entrer dans cet objet, donc la fonction Height redessine la dimension extérieure de l'objet présent dans Word, mais je n'arrive toujours pas à ouvrir le fichier excel et à determiner que les cellules visibles seront les cellules Range("A1","C10") par exemple...

une idée ???

[Skalp]

Tu peux faire ça sous Word ?
Tu fais comment ?

[Manu91]

Ben... le programmer sous Word, si je savais le faire .....

Pour le faire manuellement c simple, tu insères une table excel dans word, tu double click sur celle-ci, puis tu prends le bas de ta fenêtre et tu montes ou descends... et la tu determines la partie du tableau Excel qui est visible... c'est ça que je veux faire

La fonction Height joue sur l'objet, cad qu'elle prend l'image apparaissant du fichier excel et la réduit ou l'augmente, concretement dans Word, tu click 1 fois sur le tableau, même procédure que précédemment, et tu zoom l'objet.