Discussion :

[minisu]

Bonjour à tous !

Je tiens d'abord à m'excuser si je ne poste pas au bon endroit et s'il existe déjà un topic identique (j'ai pourtant tenté de chercher ) mais je suis désespérée !!

Je requiers l'aide de tout ceux apte à régler mon souci ; je m'explique :

Je travaille actuellement sous visual studio en visual basic.
Dans le cadre de mon boulot, je dois afficher un tableau sur un document word.

Je dois placer ce tableau à un endroit précis du document word, et je dois pouvoir le modifier par la suite (supression de ligne et/ ou ajout de ligne)
Ce tableau peut prendre différentes tailles de base.

Je sais juste qu'il faut placer un signet à l'endroit de l'insertion sous Word mais après je ne sais pas du tout comment procéder dans le code.
J'arrive seulement à insérer du texte à la suite d'un signet

Donc si quelqu'un aurait un tutoriel ou je ne sais quoi qui puisse m'aider ce serait très appréciable !

voici mon code et ce que j'ai tenté :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim objWord As Word.Application
 Dim docWord As Word.Document
 
 docWord.Activate()
        objWord.Visible() = True
 
        Dim tableau As Word.Table
        tableau = objWord.ActiveDocument.Tables.Add(Range:=docWord.Bookmarks.Item("tableau_tnr"), NumRows:=5, NumColumns:=6)
 
        objWord.ActiveDocument.Tables(1).Cell(1, 1).Range.Text = "Mon Texte"

Si je dois préciser des choses, n'hésitez pas à me le demander !!

Merci beaucoup d'avance

[anonymousse]

bonsoir,

As-tu parcouru ce tuto http://msdn.microsoft.com/fr-fr/libr...ice.11%29.aspx
tu ne dois pas avoir beaucoup d'adaptation à faire je pense.

bon code ...

[minisu]

Ah Merci infiniment !

J'ai réussi à insérer un tableau ! c'est un bon début

J'avais trouvé des tuto mais uniquement en VBA et même à force de tripoter je n'arrivait à rien.


Pour info, voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 Dim objWord As Word.Application
 Dim docWord As Word.Document
 
 objWord = CreateObject("Word.Application")
docWord = objWord.Documents.Open(CType(fichier, Object))
 
Dim tbl As Word.Table = docWord.Tables(1)
 
 With docWord
 
tbl = docWord.Tables.Add(Range:=.Bookmarks.Item("tableau_tnr").Range,  NumRows:=2, NumColumns:=2)
                tbl.Rows.Add()
                tbl.Cell(1, 1).Range.Text = "youpi"
            End With

voilà, après j'ai pas encore tout à fait réglé la où je voulais insérer mon texte mais le principal c'est d'avoir trouvé comment ça fonctionnait au niveau du code !!
J'espère que ça pourra en aider d'autre


Bonne journée, en espérant que je ne rencontre pas de nouveaux problèmes