XL 2010 creation un croisé dynamique en vba

FCMLE44

XLDnaute Impliqué
Supporter XLD
Bonjour

Je viens d'essayer de mettre ce code pour créer automatiquement un tableau croisé dynamique.

Ma source Feuille ABS
Ma cible Feuille TCD

J'obtiens un débogage. Pouvez-vous me dire ce qui ne va pas

VB:
Sub CREERTCD()
'
' CREERTCD Macro
'
' Sélection des données
    Sheets("ABS").Select
    Columns("A:G").Select

' Création du TCD
    ActiveWorkbook.Worksheets("TCD").PivotTables( _
        "Tableau croisé dynamique7").PivotCache.CreatePivotTable TableDestination:= _
        "", TableName:="Tableau croisé dynamique4", DefaultVersion:= _
        xlPivotTableVersion12

' Actualiser
    Range("A3").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotCache.Refresh

End Sub
 

Pièces jointes

  • ABS test.xlsm
    50.8 KB · Affichages: 29

Discussions similaires

Statistiques des forums

Discussions
312 801
Messages
2 092 245
Membres
105 314
dernier inscrit
SABER ABD