Pb avec PivotItems pour TCD

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:

---

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:

---

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

---

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

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

Code:

---

On error resume next

---

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

Code:

---

Error = 0

---