Discussion :

[nhug1]

Bonjour,

Tout d'abord merci à tous ceux qui prendront le temps de me lire!

Mon problème:

1) J'ai un Template word que je dois remplir via d'autres fichier. Il se présente sous la forme d'un tableau.
2) Dans ce tableau, certaines cellules contiennent elles-mêmes des tableaux.
3) Lorsque j'essaye de faire une boucle lister ces tableaux, ma boucle ne "voit" que le tableau principal et pas les autres

pour reproduire mon problème il suffit de prendre un fichier word, de créer deux tableaux. S'ils sont l'un en dessous de l'autre (ou à côté hein!) la boucle fonctionne. Si par contre, on déplace un tableau dans une cellule de l'autre tableau, la boucle ne le "voit" pas!


J'espère avoir été clair sinon je suis à votre disposition pour toute info supplémentaire


Cordialement,


Nico

[Jean-Philippe André]

SAlut,

et quel est ton code actuel qui ne loope pas sur les tableaux ?

[nhug1]

Voici le petit morceau de code que j'ai bidouillé cet aprèm. Cela me règle en partie le problème puisque je peux enfin accéder aux cellules que je veux mais c'est lourd pour pas grand chose je pense. Je pense qu'il est possible de l'écrire en une seule ligne au lieu de boucler pour rien.

MonDocumentActif.Tables(1).cell(X,X).Tables(X).cell(X,X).range... etc

Merci de ta réponse par ailleurs!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub AppliquerSRRIauDICI()
 
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
WordApp.Documents.Open "C:\Users\XXXX\Desktop\fichier de travail word.docx"
Set DocumentActif = WordApp.ActiveDocument
 
For Each Table In WordApp.ActiveDocument.Tables(1).Cell(6, 1).Tables
 
        Table.Cell(1, ?).Range.Shading.BackgroundPatternColor = RGB(242, 157, 131)
 
Next
 
End Sub