Code pour insérer tableau croisé dynamique dans fiche existante

Bonjour,

J'ai un code actuellement qui marche plutôt bien pour créer un tableau croisé dynamique, mais à chaque fois ça crée une nouvelle fiche. Comme je la fais tourner assez souvent j'ai beaucoup de nouvelles fiches au bout d'un petit moment.

Ce que j'aimerais faire c'est que ça mette le tableau croisé dans le même fichier que j'ai nommé "PivotTable"

Bref, voici le code existant:

Dim dataname As String
Dim newsheet As String

    dataname = ActiveSheet.ListObjects(1).Name

    Sheets.Add
    newsheet = ActiveSheet.Name

    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        dataname, Version:=6).CreatePivotTable _
        TableDestination:=newsheet & "!R3C1", _
        TableName:="Tableau croisé dynamique2", DefaultVersion:=6
    Sheets(newsheet).Select
    Cells(3, 1).Select
    With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Reseau " _
        )
        .Orientation = xlColumnField
        .Position = 1
    End With

Et ci-dessous le code que je tente mais j'ai l'errer 438: Propriété ou méthode par cet objet

Dim dataname As String
Dim newsheet As String

    dataname = ActiveSheet.ListObjects(1).Name

    Sheets("PivotTable").Select
    Cells.Select
    Selection.ClearContents

    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        dataname, Version:=6).CreatePivotTable _
        TableDestination:=Sheets("PivotTable") & "!R3C1", _
        TableName:="Tableau croisé dynamique2", DefaultVersion:=6
    Sheets("PivotTable").Select
    Cells(3, 1).Select
    With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Reseau " _
        )
        .Orientation = xlColumnField
        .Position = 1
    End With

Pourriez-vous me dire où je me trompe svp?

Merci

Rechercher des sujets similaires à "code inserer tableau croise dynamique fiche existante"