Développer tous les TCD

Bonjour,

Après différentes recherches sans succès, je me permets de vous demander votre aide.

Je souhaite, à l'aide d'une macro, développer tous les champs de mes TCD (qui se trouvent sur différentes feuilles).

J'ai trouvé comment faire en nommant chacun de mes TCD dans la macro mais je souhaiterais pouvoir le faire sans les nommer afin de pouvoir utiliser cette macro dans différents fichiers sans avoir à renommer chaque TCD (et champs à developper).

Pensez-vous que cela est possible et si oui, pouriez-vous m'aider à construire cette macro?

Merci d'avance pour votre aide.

Raoduk

Bonjour

Sub Afficher_détails()
For Each SH In ThisWorkbook.Worksheets
    For Each TCD In SH.Sheets.PivotTables
        TCD.PivotFields("Années").ShowDetail = True
    Next TCD
Next SH
End Sub

Bonjour,

Merci pour votre aide.

J'avai un message d'erreur à la ligne suivante (Proprété ou méthode non gérée par cet objet):

 For Each TCD In SH.Sheets.PivotTables

J'ai supprimé "Sheets" et tout fonctionne.

Dernière chose, pensez-vous qu'il soit possible de ne pas nommer le champ à développer de manière à ce que tous les champs qui peuvent être développés le soient?

D'avance merci.

Bonjour

Oups faute de frappe de ma part

SH.PivotTables

Sub Afficher_détails()
For Each SH In ThisWorkbook.Worksheets
    For Each TCD In SH.PivotTables
        TCD.PivotFields("Années").ShowDetail = True
    Next TCD
Next SH
End Sub