Rapport de message :*
 

Structure d'un Tableau Croisé Dynamique

Titre du sujet : Structure d'un Tableau Croisé Dynamique
par JackyAmiens le 10/08/2010 16:28:29

Bonjour,

J'ai besoin d'établir à partir d'un TCD un rapport de sa structure.
Liste des Champs
Liste des Champs Calculés
Liste des données

Voici le programme établi pour un TCD se trouvant dans un onglet  "Feuil2"
 
Sub DefTbx()

 'Nom du TCD
Cells(2, 9) = Worksheets("Feuil2").PivotTables(1).Value
With Worksheets("Feuil2").PivotTables(1)
    For i = 1 To .PivotFields.Count
        'Nom des champs
        Cells(i + 1, 10) = .PivotFields(i).Name
                 
    Next i
   

     For i = 1 To .CalculatedFields.Count
      'Nom des champs calculés
     Cells(1 + 1, 11) = Worksheets("Feuil2").PivotTables(1).CalculatedFields(i).Value
     Next i
   
   
    For i = 1 To .PivotFields("Données").PivotItems().Count
     'Nom des données
         Cells(i + 1, 12) = Worksheets("Feuil2").PivotTables(1).PivotFields("Données").PivotItems(i).Value
        

    Next i
End With
End Sub

La macro restitue les noms qui sont visibles par une double clic sur leur intitulé
(provocation de l'affichage des fenêtres :
      champ Dynamique
      ou 
      champ Pivot Table avec les informations Nom et champ Source et la Synthèse.)

Ma question est : comment obtenir la restitution des noms d'origine après   avoir été renommés?

Exemple pour un Pivot Table : 
obtenir le
Nom ="TxJ+1 ,"
le Champ Source = "Le_Taux_A_moins_de_1_jour"
la formule de la synthèse = Moyenne


Merci d'orienter mes recherches