Tcd data source variable

Résolu/Fermé
CHARLYJACK Messages postés 353 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 16 mai 2023 - 4 déc. 2013 à 16:52
CHARLYJACK Messages postés 353 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 16 mai 2023 - 7 déc. 2013 à 11:32
Bonjour,

j'ai automatise la creation d un tcd
tout se passe bien sauf que je n'arrive pas a rendre variable la data source.

Selection.CurrentRegion.Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase,-
SourceData:="'ETG 11-2013'!R1C1:R10000C33")
.CreatePivotTable TableDestination:="", _
TableName:="Tableau croisé dynamique3", DefaultVersion:= _
xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select

La selection va s'effectuer chaque mois sur un onglet dont le nom change.

Comment faire

Par avance merci

A voir également:

1 réponse

melanie1324 Messages postés 1505 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 154
4 déc. 2013 à 17:26
bonjour,

essaie :


tab = ETG 11-2013



Selection.CurrentRegion.Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase,-
SourceData:="'" & tab &"'!R1C1:R10000C33")
.CreatePivotTable TableDestination:="", _
TableName:="Tableau croisé dynamique3", DefaultVersion:= _
xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
0
CHARLYJACK Messages postés 353 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 16 mai 2023 1
7 déc. 2013 à 11:32
Bonjour Melanie,

ca n a pas marche !
je suis quand même arrive à mes fins.

j'ai enregistre un nom simplifié

et je fais évoluer la valeur de ma variable dans la suite du programme

Encore merci de ton aide
0