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 !