Tcd data source variable
Résolu
CHARLYJACK
Messages postés
345
Date d'inscription
Statut
Membre
Dernière intervention
-
CHARLYJACK Messages postés 345 Date d'inscription Statut Membre Dernière intervention -
CHARLYJACK Messages postés 345 Date d'inscription Statut Membre Dernière intervention -
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
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:
- Tcd data source variable
- App data - Guide
- Tcd excel - Guide
- Windows data recovery - Télécharger - Récupération de données
- Get data back - Télécharger - Récupération de données
- Power data recovery - Télécharger - Sauvegarde
1 réponse
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
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
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