tableau croisé dynamique Destination

Question

Je sais que cela peut être résolu avec un script plus compliqué, mais je veux simplement avoir l'action .ShowDetails pour tout tableau croisé dynamique dans mon cahier de travail (je 15+) pour envoyer les données associées à un particulier Pivoter l'élément dans une feuille de calcul désignée à chaque fois. J'ai ce script, mais je crois que j'ai codé quelque chose de façon incorrecte (je reçois une déclaration de procédure compilant une erreur lorsque je tente de l'exécuter).

Sub Workbook_SheetBeforeDoubleClick() 

Dim WS As Worksheet 

If Application.Range(ActiveCell.Address).PivotCell.PivotCellType = xlPivotCellValue Then 
    For Each WS In ThisWorkbook.Worksheets 
     If WS.Name = "PivotTable Details" Then 
     WS.Delete 
     End If 
    Next WS 
    Selection.ShowDetails 
    ActiveSheet.Name = "PivotTable Details" 
End If 

End Sub 

Answer 1

choses Couple ...

1. je crois qu'il devrait être ShowDetail, pas ShowDetails.
2. ShowDetail est une propriété qui doit être définie sur True si vous souhaitez afficher les données de la cellule sélectionnée.

La ligne suivante devrait fonctionner.

Selection.ShowDetail = True