Bonsoir,

J'ai un tableau croisé dynamique sur lequel je voudrais appliquer une macro qui permettrait de faire une sélection en automatique en fonction de la valeur d'une cellue.

Voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 21/11/2012 par Nicolas Baudry
'
'sur la feuille TCD 1 prendre la valeur de la cellule C2
N°_Commande = Range("C2").Value
 
 
'sélectionner la feuille TCD 2 où l'on souhaite modifier un des filtres du tableau croisé dynamique
    Sheets("TCD 2").Select
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "Commande")
        .PivotItems(N°_Commande).Visible = True
     End With
    Range("A6").Select
End Sub
Il me met une erreur exécution 1004 : Impossible de lire la propriété PivotItems de la classe PivotField

Est ce que quelqu'un peut m'aider ?

Par avance merci

Nini