Discussion :

[pacolapin]

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é :

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

Je vous remercie d'avance.