Placer curseur apès un tableau [Résolu]

[Syrrus]

Bonjour,
Je suis pas sure de poster au bon endroit mais j'essaye quand même...
Je sais qu'il y a d'autres message qui traite du curseur mais je n'ai pas trouvé mon bonheur.

Je développe une application sous access. A un moment je rempli un doc word (en vba depuis access). Ce document contient déjà des tableaux et un peu de texte. Mais il y a aussi des tableaux que j'insére en vba, le pb avec eux c'est qu'il n'y en a jamais le même nombre donc je ne peux pas les insérer par signets (je ne vais pas m'amuser à mettre une centaine de signets pour être sure de toujours tous les mettre).

Donc l'idée est simple :
j'ai un signet pour le début de l'insertion
je déplace le curseur sur ce signet
tant qu'il y a un tableau à insérer
>> j'insere le tableau là où est le curseur
>> je bouge le curseur après le tableau que je viens d'insérer
fin tant que

Ce que j'ai fait en code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Dim myWord As Word.Application, Doc As Word.Document
Dim comptTab As Integer
 
Set myWord = New Word.Application
Set Doc = myWord.Documents.Open(final2, , False)
comptTab = 8
 
myWord.Selection.GoTo What:=wdGoToBookmark, Name:="tab1" 'positionne le curseur au signet tab1
Set tablo2 = Doc.Tables.Add(myWord.Selection.Range, 1, 2)
 
With tablo2
                .Borders(wdBorderLeft).LineStyle = wdLineStyleSingle
               ' .... mise en page tableau
                 .Cell(1, 2).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
               .AllowPageBreaks = False
End With
 
Doc.Tables(comptTab).Select
myWord.Selection.MoveDown unit:=wdLine, Count:=1
myWord.Selection.InsertParagraphAfter
comptTab = comptTab + 1

Le pb c'est que le curseur va bien sur le signet mais après il bouge pas, les tableaux sont les uns dans les autres et je comprends pas pourquoi, j'avais trouvé le code sur un autre forum où apparement ça marchait...

Ah oui et au passage ça non plus ça marche pas :

Code :

.AllowPageBreaks = False

C'était pour que les lignes soient toujours entières et pas coupées sur deux pages.

Merci par avance, la moindre idée est la bienvenue

[Heureux-oli]

Pour se rendre au premier paragraphe qui suit une table.

Code :

1
2
ActiveDocument.Tables(1).Range.Select
Selection.Move unit:=wdParagraph

[Heureux-oli]

Pour garder les lignes ensembles c'est

Code :

.KeepTogether = True

[Syrrus]

Merci beaucoup Heureux-oli, tu viens de me sortir de 2 jours de recherches

Y'a quand même un petit hic, c'est au sujet de :

Code :

.KeepTogether = True

il me le prend pas, aprés recherche ça s'applique à un paragraphe pas à un tableau.
J'ai quand même essayer tab.rows.keeptogether mais sans succés non plus.

Une idée pour l'appliquer à un tableau ?

[Heureux-oli]

Mea culpa, j'ai pas vu que c'était pour un tableau.

Code :

1
2
3
4
Dim tbl As Table
ActiveDocument.Tables(1).Select
 
Selection.Rows.AllowBreakAcrossPages = False

[Syrrus]

Merci beaucoup encore une fois ça marche nikel.