Discussion :

[Dj Thunder]

Bonjour. Je suis novice en matière de VB. Je dois faire programme qui créer des tableaux dans Word mais je n'arrive pas à en créer plus d'un. Voici le code que j'utilise:


For cpt As Integer = 1 To NbTab

Dim rng As Word.Range = WordApp.ActiveDocument.Range()
rng.SetRange(rng.End, rng.End)

WordApp.ActiveDocument.Tables.Add( _
Range:=rng, _
NumRows:=2, NumColumns:=3)

...

[DontShootMe]

bonjour,

à tout hasard, sans verifier, est ce que tu n'aurais pas superposé tous tes tableaux les uns sur les autres ce qui te donne l'impression qu'il y en a qu'un ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
For cpt As Integer = 1 To NbTab

Dim rng As Word.Range = WordApp.ActiveDocument.Range()
rng.SetRange(rng.End, rng.End)

WordApp.ActiveDocument.Tables.Add( _
Range:=rng, _
NumRows:=2, NumColumns:=3)
refait ici un coup de range pour replacer le curseur:
rng.SetRange(rng.End, rng.End)

Voila en esperant t'avoir aider, dis nous ce que cela fait !
Bon courage !