Discussion :

[Denis_67]

Bonjour,

Ma question:
Je souhaite lancer l'impression des documents dont les noms complets figurent dans une liste dans un tableau en cliquant sur un bouton.

Voir mon fichier joint.

Mes essais:
Je pensais m'en sortir avec mes connaissances VBA Excel, mais je suis perdu avec l'enregistreur de macro, notamment je ne sais pas s'il me génère du code relatif ou absolu dans les déplacements dans le tableau. Comme c'est ma première macro Word, un petit coup de pouce permettrait de me lancer.

Merci à vous pour vos conseils, bouts de code assez explicites pour m'aider.
Denis

[Heureux-oli]

Salut,

Contrairement à Excel, Word ne traite pas le tableau comme un tableau lorsque l'on enregistre une macro, mais comme une simple sélection.

L'enregistreur de marcro ne te sera d'aucune utilité dans ton cas.

Première chose, les cellules d'un tableau contiennent deux caractères parasites qui doivent être éliminés.
Pour y parvenir, j'utilise une fonction de nettoyage maison.

On accède aux cellules par la table. Les tables ne peuvent pas être nommée, il faut passer par leur index.

Code :

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

1
2
3
Dim oTbl As Table
 
Set oTbl = ActiveDocument.Tables(1)

on récupère ensuite le contenu d'une cellule par son range.

Code :

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

oTbl.Cell(1,1).RAnge.Text

Il te suffit de faire une boucle sur les cellules de ta table pour en récupérer le contenu.

Tu peux trouver un exemple de la fonction de nettoyage là : http://heureuxoli.developpez.com/off...t-tiroir/#L2-B

[Denis_67]

Merci pour le tuyau,
Ce que j'ai testé.

Je lis séquentiellement mes tableaux et j'affecte un nom dans une table à chaque indice.

Il me suffit ensuite de lire le nom du tableau à imprimer pour aller ensuite sélectionner la table à imprimer en fonction de son indice retrouvé depuis la table.

Ce qui est dommage c'est qu'on ne puisse sélectionner qu'un seul objet à imprimer. il faut donc relancer autant d'impression que d’objets à sélectionner et à imprimer.
Denis