Ajout de tableau [Résolu]

[spad22]

Bonjour,

Débutant en VBA sous Office 2000, je cherche à créer un document Word automatiquement.

Mon problème concerne les tableaux :
J'ai ajouté un premier tableau avec ce code

Code :

1
2
3
4
5
6
7
8
9
10
Selection.Font.Size = 12
    Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=3, NumColumns:= _
        2, DefaultTableBehavior:=wdWord9TableBehavior
    Selection.Font.Bold = True
    ActiveDocument.Tables(1).Columns(1).Cells(1).Range.Text = "texte1 :"
    Selection.Font.Bold = True
    ActiveDocument.Tables(1).Columns(2).Cells(1).Range.Text = "texte2 :"
    Selection.Font.Bold = True
    ActiveDocument.Tables(1).Columns(1).Cells(3).Range.Text = "texte3 :"

A la suite j'effectue quelques modifications de mise en forme.
Mon curseur reste positionné dans la colonne 1, cellule 1 et si j'ajoute le même code pour ajouter un nouveau tableau, il est inséré dans la cellule 1 colonne 1. Ce que je veux, c'est qu'il soit ajouter en dessous du premier.

Si quelqu'un peut me donner l'instruction qui me permet de sortir du tableau ça m'aiderait beaucoup.

Merci

[Heureux-oli]

Le tableau sera-t-il inséré à la fin du document, ou simplement juste en dessous ?

[spad22]

Juste en dessous, enfin je veux pouvoir ajouter une ou deux lignes vides quand même.

[Heureux-oli]

Alors comme c'est encore tout frais !

Code :

1
2
3
4
5
Sub splittableaux()
ActiveDocument.Tables(1).Rows.Last.Range.Select
Selection.SplitTable
 
End Sub

essaie, ça fonctionne,

[spad22]

Effectivement ça fonctionne, mais pas comme je l'attendais!

En effet, ça me coupe mon tableau en 2. Seulement les tableaux que je souhaite faire n'ont pas le même nombre de colonnnes.
Je pense qu'il y a sûrement un moyen de fusionner les cellules, mais n'existe t'il pas autre chose pour placer le curseur en dehors du tableau et continuer à écrire ce que l'on veut?
Parce que du coup, si je veux juste écrire du texte après un tableau j'aurai un tableau inutile après la coupure.

J'espère t'avoir donné suffisamment d'éléments pour me guider.

[Heureux-oli]

Si, on peut le faire, mais la difficulté réside dans le fait de savoir où on va mettre le tableau, on peut toujour compter le nombre de paragraphes, ou aller à la fin du document.

Code :

1
2
3
 
    Selection.EndKey Unit:=wdStory
    ActiveDocument.Tables.Add Range:=Selection.Range, numrows:=2, numcolumns:=2

[spad22]

Voilà exactement ce que je cherchais!

Selection.EndKey Unit:=wdStory

ce code me permet de placer le curseur après le tableau, ensuite j'ajoute exactment ce que je veux où je veux!

Merci beaucoup pour votre aide et à bientôt pour de nouvelles aventures!