dudumomo
XLDnaute Occasionnel
Bon finalement j'ai des soucis avec ma macro pour realiser des pivots tables
Voila ce que j'ai fait (Via l'enregistreur de macro)
Sub Pivot()
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=xxxxxx, Version:=xlPivotTableVersion12). _
CreatePivotTable TableDestination:="Sheet1!R3C1", TableName:="PivotTable1" _
, DefaultVersion:=xlPivotTableVersion12
Sheets("Sheet1").Name = "Test"
J'ai 2 questions:
- Ma sourceData change toutes les semaines de nom. Je me vois mal modifier la macro a chaque fois. Est ce possible d'avoir quelque chose de generique, du genre
SourceData:=ActiveWorkbook.Sheets(1) ? (Ca ne marche pas celui ci)
Pour info, le classeur possede une unique feuille au debut.
- Juste par curiosite, est ce possible quand on ajoute une feuille, de directement la nommer.
Dans mon cas, je passe par 2 etapes= Sheets.Add (qui donne donc Sheet1), puis Sheets("Sheet1").Name = "Test"
C'est possible de faire le tout en une seule commande ?
Merci a tous !
Voila ce que j'ai fait (Via l'enregistreur de macro)
Sub Pivot()
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=xxxxxx, Version:=xlPivotTableVersion12). _
CreatePivotTable TableDestination:="Sheet1!R3C1", TableName:="PivotTable1" _
, DefaultVersion:=xlPivotTableVersion12
Sheets("Sheet1").Name = "Test"
J'ai 2 questions:
- Ma sourceData change toutes les semaines de nom. Je me vois mal modifier la macro a chaque fois. Est ce possible d'avoir quelque chose de generique, du genre
SourceData:=ActiveWorkbook.Sheets(1) ? (Ca ne marche pas celui ci)
Pour info, le classeur possede une unique feuille au debut.
- Juste par curiosite, est ce possible quand on ajoute une feuille, de directement la nommer.
Dans mon cas, je passe par 2 etapes= Sheets.Add (qui donne donc Sheet1), puis Sheets("Sheet1").Name = "Test"
C'est possible de faire le tout en une seule commande ?
Merci a tous !