Discussion :

[jackborogar]

Bonjour à tous,

Je rencontre un problème concernant cette ligne de code:

Code :

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

1
2
With ActiveSheet.PivotTables("Tableau1").PivotFields("Ech, F,")
        .PivotItems("10/05/2014").Visible = False

Le format "date" est la raison de ce soucis. Ne sachant pas comment contourner ce problème, je me permets de vous écrire ce post.
Message d'erreur : 'Impossible de lire la propriété PivotItems de la classe PivotFields'

Cdt,

T

[Daniel.C]

Bonjour,

Code :

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

.PivotItems(Format("10/05/2014", "m/d/yyyy")).Visible = False

[jackborogar]

Merci beaucoup. Malheureusement j'ai essayé avec ce code:

Code :

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

1
2
 With ActiveSheet.PivotTables("Tableau1").PivotFields("Ech, F,")
        .PivotItems(Format("01/05/2014", "dd/mm/yyyy")).Visible = False

Toujours pas. Même erreur.

J'ai oublié une petite précision, mon code fonctionnait sous excel 2003.
Je viens de trouver que ce serait surement un bug sous excel 2007/2010. A confirmer...

[Daniel.C]

Retranscris le format comme je l'ai mis : "m/d/yyyy". Par la même occasion, tu as changé la date.

[jackborogar]

J'ai mis ce code avec l'actualisation de mon TCD pour avoir une date de type "10/05/2014 " Daniel mais de même une erreur.

Code :

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

1
2
With ActiveSheet.PivotTables("Tableau1").PivotFields("Ech, F,")
        .PivotItems(Format("10/05/2014", "m/d/yyyy")).Visible = False

[Daniel.C]

Oui, au fait, c'est quoi, l'erreur, précisément ? Tu as bien vérifié qu'il y a au moins un item de visible ? Est-ce que ta macro a été écrite pour un classeur au format xls ? Regarde le classeur joint et teste les boutons.