Macro pivot table - SourceData toujours differente

[dudumomo]

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 !

 

[Pierrot93]

Re : Macro pivot table - SourceData toujours differente

Bonjour,

modifie peut être ainsi, non testé... :

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDa tabase, SourceData:=xxxxxx, Version:=xlPivotTableVersion12). _
CreatePivotTable TableDestination:=Sheets(1).Name & "!R3C1", TableName:="PivotTable1" _
, DefaultVersion:=xlPivotTableVersion12

bonne journée
@+

 

[Pierrot93]

Re : Macro pivot table - SourceData toujours differente

Re,

pour ta 2ème question :

Worksheets.Add(after:=Sheets(Sheets.Count)).Name = "mafeuille"

@+

 

[dudumomo]

Re : Macro pivot table - SourceData toujours differente

Merci Pierrot93,
Pour la table pivot, je pense que ta commande ne marchera pas comme souhaite, puisque mon probleme est le source data et non la destination.

Pour ton 2eme message, je vais tester cela. Je te remercie

 

[Pierrot93]

Re : Macro pivot table - SourceData toujours differente

Re,

Aarf, désolé mais vu le source data indiqué "SourceData:=xxxxxx"... cela n'a pas "flashé".... devrait fonctionner selon le même principe....

 

[dudumomo]

Re : Macro pivot table - SourceData toujours differente

Merci Pierrot de ta reponse
En revanche, ca ne semble pas fonctionner.

    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=Sheets(1).name, Version:=xlPivotTableVersion12). _
        CreatePivotTable TableDestination:="Sheet1!R3C1", TableName:="PivotTable1" _
        , DefaultVersion:=xlPivotTableVersion12

Ne fonctionne pas.

une autre idee ? (J'ai teste sans le .name, mais c'est pareil)

Merci !!

 

[Pierrot93]

Re : Macro pivot table - SourceData toujours differente

Re,

regarde si tu peux t'inspirer de ceci :

Dim pc As PivotCache, TCD As PivotTable
Set pc = ThisWorkbook.PivotCaches.Add(xlDatabase, Sheets(1).Range("A1:C17"))
Set TCD = pc.CreatePivotTable(Sheets(1).Range("G1"))

@+

 

[MJ13]

Re : Macro pivot table - SourceData toujours differente

Bonjour Dudumomo, Pierrot

Dudumomo: teste ce fichier: