Bonjour,
J'ai essayé à plusieurs reprise de créer un TCD depuis mais sans succès pourriez vous m'aidez svp.
J'aimerai pouvoir utiliser tout le tableau fichier texte que j'ai converti en excel, pouvoir le passer en TCD par VBA en appuyant sur un bouton depuis une boite de dialogue.
et voici le code que j'ai essayé :
Je vous remercie d'avance.
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
18
19
20 Private Sub TCD_Click() ' ' CREERTCD Macro ' ' Sélection des données Sheets("21-05-2019").Select Columns("A:AE").Select ' Création du TCD ActiveWorkbook.Worksheets("21-05-2019").PivotTables("TCD").PivotCache.CreatePivotTable TableDestination:="TCD", TableName:="TCD", DefaultVersion:=xlPivotTableVersion12 ' Actualiser Range("C9").Select ActiveSheet.PivotTables("TCD").PivotCache.Refresh End Sub
Partager