copie tableau word avec conservation des propriétés d'affichage

[CSR94]

Bonjour
Je souhaiterais copier un tableau Word vers un second tableau word d'un même document ou d'un autre document tout en conservant les propriétés liées à la police mais aussi à la trame de fond. Est ce possible pour les trames ?
Avec mes remerciements pour ce pb que je ne parviens pas à résoudre depuis plusieurs semaines.

[Heureux-oli]

Salut,

Suis surpris de ta demande, par défaut, lors de la copie, tout est gardé, les polices, les bordres, ...

Code :

1
2
3
4
ActiveDocument.Tables(1).Select
Selection.Copy
Selection.EndKey unit:=wdStory
Selection.Paste

[CSR94]

merci pour ta réponse qui fonctionne effectivement parfaitement mais hélas je n'avais pas été assez précis car en fait le premier tableau possède des colonnes de largeurs variables sur chaque ligne bien qu'en même nombre (4). Je dois donc recopier chacune des cellules du premier tableau vers les second qui lui a , heureusement, des colonnes de même dimension. Je suis donc amené à faire une double boucle sur lignes et colonnes et recopier chaque cellule. Dans ce cas les attributs de police sont conservés mais je ne parviens pas à conserver les trames de fond qui sont essentielles pour une visualisation rapide des données car le vrai tableau final contient plusieurs centaines de lignes.

Voila ce que j'ai écrit, par exemple, pour un tableau 3x4

Code :

1
2
3
4
5
6
7
8
9
10
11
Public Sub tableau()
For R = 1 To 3
For c = 1 To 4
ActiveDocument.Tables(1).Cell(R, c).Select
Selection.Copy
 
ActiveDocument.Tables(2).Cell(R, c).Select
Selection.Paste
Next
Next
End Sub

Avec mes remerciements

[Sepia]

Salut CSR94,

Avec ta solution tu perds en effet des infos de colonne et/ou de ligne ==> vérifie si tu peux copier ton tableau dans ton document final tel quel puis l'adapter pour avoir ton besoin plutôt que de faire l'inverse (mais cette solution n'est pas toujours possible, hélas).

@+

[CSR94]

Merci, je vais tenter cette solution mais je crains d'autres difficultés. Si je parviens à un résultat je mettrais la solution en ligne.
@+

[Sepia]

Salut CSR94,

On reste là pour t'aider si besoin

Bon courage