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.

[jackborogar]

Alors effectivement Daniel au départ mon TCD a été créé pour un .xls => mon code fonctionnait parfaitement.

Maintenant que j'ai basculé sur .xlsx ça ne fonctionne plus.

L'erreur est la même que sur ton fichier envoyé.

Enfin oui j'ai bien vérifié que tous les items sont visibles.

Tu crois que c'est parce que mon fichier est toujours en .xls?

[Daniel.C]

Tu crois que c'est parce que mon fichier est toujours en .xls?

Je ne sais pas... J'ai créé le mien au format xlsm et tu as le même problème. Est-ce que tu pourrais mettre en PJ un classeur exemple ?

[jackborogar]

désolé pour le temps j'ai du recréer un classeur, et j'obtiens le même problème. Je suis plûtot rassuré sur ce côté.

[Daniel.C]

Pfff... je dors cette après-midi :

Code :

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

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

[jackborogar]

je suis désolé mais encore la même erreur. Test le dans le fichier que je t'ai envoyé mais perso cela ne fonctionne pas

[Daniel.C]

Tu peux bien sûr écrire :

Code :

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

.PivotItems("5/10/2013").Visible = False

mais tu veux sans doute passer la date en paramètre ?

[jackborogar]

Non rien ne fonctionne Daniel je t'assure. As tu vu que je t'ai mis en PJ un fichier?

je veux pouvoir désélectionner plusieurs dates pour pouvoir faire des calculs automatique après.

[Daniel.C]

Tu as raison, et moi aussi. Ca plante avec Excel 2010 et ça passe avec Excel 2013 (avec lequel je teste). On y retourne...

[jackborogar]

j'ai cherché toute l'aprem je pense que c'est un bug tout simplement d'excel 2010

[Daniel.C]

Code :

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

.PivotItems("5/10/2013").Visible = False

fonctionne.

[jackborogar]

Désolé pour ma réponse tardive.
Cependant je suis navré mais sur mon excel que je t'ai envoyé ce code me met toujours la même erreur.

[Daniel.C]

Oups, j'avais bidouillé dans ton classeur le code suivant fonctionne en partant de ton classeur d'origine :

Code :

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

1
2
3
4
5
6
    With ActiveSheet.PivotTables("Tableau1").PivotFields("Ech, F,")
        For Each Pi In .PivotItems
            Pi.Name = Pi.SourceNameStandard
        Next Pi
        .PivotItems("5/10/2013").Visible = False
    End With

La boucle ne doit être faite qu'une fois, le temps de convertir les dates au format US.

[jackborogar]

ça fonctionne parfaitement. Je comprends pas trop pourquoi le format FR n'est pas pris en compte mais cela me permet de continuer.

Un grand merci et bon courage pour la suite,

Cordialement,

T