piloter un fichier excel intégrer dans un fichier word

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:

---

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....:cry:

merci pour votre aide !

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

Code:

---

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:

---

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:

---

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 !

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

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

Code:

---

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:mrgreen: 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...:arf:

une idée ???

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

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

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.

Effectivement, Height fait jouer le zoom de l'objet.

En fait, dans Word, quand tu cliques sur l'objet, Excel est démarré (tu peux le voir dans le gestionnaire des tâches) et tu utilises Excel ! ... ça veut dire qu'il te faudrait piloter Excel... en pilotant Word ! :aie:

Regardes ce que tu peux faire en VBA à partir de Word (en utilisant Word manuellement) et essaye, soit d'adapter le code VBA dans ton programme, soit de coder une macro que tu exécuterais en pilotant Word...

Bon courage...

Tiens-nous au courant !

Salut Skalp

J'ai malheureusement deja essayé le lancement de enregistreur macro dans word pour voir le code résultant : l'enregistreur s'arrete dès que je touche à l'objet et n'enregistre plus rien !!!
:evilred::evilred:
Je réussi à activer la feuille excel dans Word grâce au lignes qui suivent :

With oInlineShape.OLEFormat
.ActivateAs(ClassType:="Excel.Sheet")
.Activate()
End With

Mais je ne parviens pas à trouver la solution pour toucher à la fenêtre.... c désespérant.... :alerte:

Je garde le moral !!!!

Citation:

---

Envoyé par Manu91

J'ai malheureusement deja essayé le lancement de enregistreur macro dans word pour voir le code résultant : l'enregistreur s'arrete dès que je touche à l'objet et n'enregistre plus rien !!!

---

Ah-aaah ! Je vois que tu connais les astuces du pilotage Office ;)
J'ai eu le résultat que toi : on ne peut pas accéder à l'objet pendant l'enregistrement d'une macro :(

Mais ce n'est pas ce que je voulais dire dans mon précédent post. Je te proposais de faire ça en VBA, sans passer par l'enregistrement de macro, mais en codant la macro directement :aie: Je te dis ça car je sais qu'il est possible de piloter d'autres applications office en VBA :fleche: FAQ VBA

Je suis sur la piste depuis hier soir.... je me met à la programmation VBA de Word... vais finir par en faire mon métier si ça continue comme ça !!!:aie::aie:

mais meme en VBA je ne trouve pas la manière de changer la taille de cette :evilred: de fenêtre !!! :D

Je continue... mais j'ai du mal !!!

signé : l'écumeur de tutos et de posts !!!!! :mouarf:

Bonjour en ce beau Dimanche... lol

Serieusement, mon problème est... hardu...
le VBA de Word ne donne rien, en effet pour changer la taille de la partie visible de la fenetre, tu dois rentrer dans Excel.
Quand tu rentres dans excel, et change la taille, tu peux remarquer qu'elle saute de ligne en ligne (donc c pas une fonction height... la vérité est ailleurs...)
Toujours quand tu changes cette taille, tu t'apperçois que la case nom reprend la dimension da la partie visible (comme si elle était sélectionnée)

Question : est ce que la modification ne se ferait pas par une API non documentée ? (en tous les cas pas documentée chez moi !)

:mur:Le côté sombre de la Force nous emportera tous !!!! :mur: