Destination TCD

Ken Hutchinson · 29 Août 2008

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.

Code:

    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 · 29 Août 2008

Re : Destination TCD

Bonjour
Peut tu mettre un bout de ton fichier?

Ken Hutchinson · 29 Août 2008

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 :

Code:

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

Il fallait rajouter :

Code:

    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...

Code:

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

Destination TCD

Ken Hutchinson

XLDnaute Occasionnel

CB60

XLDnaute Barbatruc

Ken Hutchinson

XLDnaute Occasionnel

Discussions similaires

Destination TCD

Ken Hutchinson

XLDnaute Occasionnel

CB60

XLDnaute Barbatruc

Ken Hutchinson

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency