Discussion :

[ennamsaoui]

Bonjour
je veut créer un document word dynamiquement,c àd que sans utilisé les signet.
j'ai réussit a inserer un tableau mais dés que j'essai de insérer un deuxieme il me le fait mais dans la première cellule du premier tableau.


le code que j'utilise est le suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim tbl_MomTableau As Word.Table
Dim tbl_MomTableau2 As Word.Table
 
 
    Set tbl_MomTableau = wrd_DocWord.ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=8, NumColumns:=2)  
 
    tbl_MomTableau.Cell(1, 1).Range.Text = "Constructeur"
    tbl_MomTableau.Cell(2, 1).Range.Text = "Modèle"
    tbl_MomTableau.Cell(3, 1).Range.Text = "Numéro de série"
    tbl_MomTableau.Cell(4, 1).Range.Text = "BIOS(fabricant et version)"
    tbl_MomTableau.Cell(5, 1).Range.Text = "Vitesse d'horloge"
    tbl_MomTableau.Cell(6, 1).Range.Text = "Type de CPU"
    tbl_MomTableau.Cell(7, 1).Range.Text = "Multiprocesseur"
    tbl_MomTableau.Cell(8, 1).Range.Text = "Mémoire"

merci pour votre aide

[ouskel'n'or]

Tu sépares chaque tableau ou tu veux qu'il n'en forme qu'un seul

Code :

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

1
2
3
4
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=3, NumColumns:= 4
    Selection.EndKey Unit:=wdStory 'envoie à la fin du doc
    Selection.TypeParagraph 'insère une ligne pour séparer les tableaux
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= 3

Avec...

Code :

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

1
2
    Selection.EndKey Unit:=wdStory
    Selection.TypeParagraph

... tu vas en fin de doc et tu insères une ligne avant de créer ton second tableau

A+

[ennamsaoui]

Merci
ca marche comme je le voulais
encore un grand merci
a+