Macro pour imprimer les pages désirées selon un champ

[steffguibo]

Bonjour,
J'ai un document Word avec des champs de fusions qui se mettent à jour selon des conditions, le champ est soit "N" ou "Y" , les champs sont rassemblés dans un tableau sur une page de mon document, j'aimerais pouvoir ensuite faire appel à une macro qui m'imprime uniquement les pages en relation avec ce champ quand il est Y.
exemple Y page 2, Y page5, Y page 8, impression uniquement de la page 2,5 et 8.
Merci de votre aide, je suis débutant en macro

[Heureux-oli]

Il faut sélectionner le tableau, boucler sur les cellules.
Vérifier la valeur de la cellule, si Y, alors imprimer la page qui est contenue dans un autre cellules.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Sub ImprimerDeTableau()
Dim oTbl As Table
Dim oCl As cell
Dim i As Integer, j As Integer
Dim stPage As String
 
i = 1
j = ActiveDocument.Tables(1).Rows.Count
 
Set oTbl = ActiveDocument.Tables(1)
 
For i = 1 To j
    Debug.Print oTbl.cell(i, 1).Range.Text
    If UCase(Left(oTbl.cell(i, 1).Range.Text, 1)) = "Y" Then
        stPage = stPage & Left(oTbl.cell(i, 2).Range.Text, (Len(oTbl.cell(i, 2).Range.Text) - 2)) & ","
    End If
 
Next i
 
ActiveDocument.PrintOut Pages:=stPage
 
Debug.Print stPage
 
 
End Sub

Essaie ce code pour voir

[steffguibo]

Merci pour cette macro
Je ne comprend malheureusement pas sa gestion
pour info ci joint le document le tableau avec les Y se situe page 2
et les documents à imprimer sont dans le même dossier
Merci de votre aide précieuse