Discussion :

[jcderchain]

Bonjour à toutes et à tous,

Peut-on dans une macro lors de la creation d'un TCD, utiliser le nom d'une plage dans la zone SOURCEDATA ?

par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _ 
SourceData:=  ("Données!DB")).CreatePivotTable

Merci a vous

[SilkyRoad]

Bonjour,

Tu peux tester :

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
'Testé sous Excel 2007
Dim RefPlage As String, Cible As String
Dim Ch As Chart
 
'Crée la référence des sources style: Feuil1!R1C1:R6C2
RefPlage = Range("NomPlage").Address(ReferenceStyle:=xlR1C1, _
    RowAbsolute:=True, ColumnAbsolute:=True)
Cible = "Données!" & RefPlage
 
Sheets.Add
'Crée le TCD dans la cellule A1 de la noucelle feuille
ActiveWorkbook.PivotCaches.Add(SourceType:=xlConsolidation, _
    SourceData:=Cible).CreatePivotTable _
    TableDestination:=ActiveSheet.Range("A1"), _
    TableName:="Tableau croisé dynamique1"

bonne soirée
michel