Destination TCD

[Ken Hutchinson]

Bonjour à tous,

Voici un bout de code. Je cherche à créer un TCD et un GCD en même temps. Pour le GCD pas de problème. Par contre pour le TCD, je n'arrive pas à le mettre dans la feuille TCD... C'est dans la dernière ligne de code : il spécifie Range(A1"). Comment lui dire que c'est Range("A1") dans la feuille TCD ? J'ai bien essayé Sheets("TCD").range("A1") mais ça ne marche pas.

    Sheets("Synthèse").Select
    Sheets.Add
    Sheets("Feuil1").Select
    Sheets("Feuil1").Name = "TDB"
    Sheets("Synthèse").Select

    Range("A1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
    Selection.EntireRow.Delete

    Range("A1").Select
    Selection.CurrentRegion.Select
    Selection.Name = "SourceTab"


    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "SourceTab").CreatePivotTable TableDestination:=Range("A1"), _
        TableName:="Tableau croisé dynamique1"

 

[CB60]

Re : Destination TCD

Bonjour
Peut tu mettre un bout de ton fichier?

 

[Ken Hutchinson]

Re : Destination TCD

Merci Bruno de t'être proposé pour m'aider. Je viens de trouver la solution.

Après avoir rajouté la destination du TCD :

    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "SourceTab").CreatePivotTable TableDestination:=Sheets("TDB").Range("A3"), _
        TableName:="Tableau croisé dynamique1"

Il fallait rajouter :

    Sheets("TDB").Select

Sinon la suite ne fonctionne pas car la feuille active reste celle d'origine et VB ne peut pas créer le TCD dans la feuille des données...

Sub TCD_GCD()

'
' Macro12 Macro
' Macro enregistrée le 29/08/2008 par M
'

'
    Sheets("Synthèse").Select
    Sheets.Add
    Sheets("Feuil1").Select
    Sheets("Feuil1").Name = "TDB"
    Sheets("Synthèse").Select

    Range("A1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
    Selection.EntireRow.Delete

    Range("A1").Select
    Selection.CurrentRegion.Select
    Selection.Name = "SourceTab"


    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "SourceTab").CreatePivotTable TableDestination:=Sheets("TDB").Range("A3"), _
        TableName:="Tableau croisé dynamique1"
    Sheets("TDB").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique1").SmallGrid = False
    ActiveSheet.PivotTables("Tableau croisé dynamique1").AddFields RowFields:= _
        Array("Période", "Données"), PageFields:="Relation"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("PAT*N")
        .Orientation = xlDataField
        .Position = 1
    End With