Discussion :

[sash6]

Bonjour à tous,

J'ai le souci suivant: mon code manipule des TCD mais il arrive que ces derniers ne contiennent pas tous les champs listés. Du coup le code plante. Est-ce qu'il y a une syntaxe pour y remédier? Pour illustration:

Code :

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

1
2
3
4
5
With ActiveSheet.PivotTables("MonTCD").PivotFields( _
        "Pole")
        .PivotItems("A").Visible = True
        .PivotItems("B").Visible = False
        .PivotItems("C").Visible = False

Ici la non existence du champ "B" provoque l'erreur. J'avoue que j'ai tenté de mettre en place une solution trouvée sur le tuto de silky...

Code :

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

ActiveSheet.PivotTables("MonTCD").PivotCache.MissingItemsLimit = xlMissingItemsNone

...mais soit j'ai mal compris l'objet du code, soit ça marche pôoo

[sash6]

Pour ceux que ça intéresse et qui ne se contentent pas que de supprimer les posts
La solution est toute simple, il suffit de mettre un bon vieux

Code :

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

On error resume next

et de ne pas oublier d'initialiser l'erreur à la fin du passage en question

Code :

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

Error = 0