suppression pages

[robert65]

Bonjour
j'ai fait plusieurs tableaux xls transféres sur word sur plusieurs pages et je n'arrive pas a supprimer les pages qui ne m'interessent plus Ceci afin d'éviter que les pages inutiles ne s'impriment pas
merci de votre réponse

 

[xltools]

Re : suppression pages

Bonjour

Souhaitez-vous supprimer ces pages à partir d'Excel ou de Word ?
Vous devez définir à partir de quelle application vous penser piloter les opérations de suppression.

De plus, quel est le critère d'identification des pages qui ne vous intéressent plus ?

Une piste toutefois : chaque tableau que vous insérez dans Word a un indice de référence : Table(x).
Ainsi, x équivaut à sa position dans l'ordre d'insertion de vos tableaux.
Si c'est le n-ième tableau que vous souhaitez supprimer, il vous suffira de mettre dans votre code VBA : ThisDocument.Tables(n).Delete


Si c'est une recherche par critère qui vous fera supprimer tel ou tel tableau, alors le code ressemblerait à ceci :
Dim tableau As Table


For Each tableau In ThisDocument.Tables
If tableau.critère Then
tableau.Select
tableau.Delete
End If
Next

Bon courage

Hanane.

 

[robert65]

Re : suppression pages

bonjour
Ok merci de votre aide précieuse, probleme résolu