Changer sources TCD par VBA

Question

Je cherche à savoir si il est possible par VBA de changer la sources de donnée d'un TCD. J'essai de créer une copie d'un onglet/feuille excel avec un TCD mais lors de la copie le TCD récupère ses données sur la feuille originale et non pas sur la copie. Merci d'avances de vos réponses...

SandrineAnne · Answer

Tu veux un code VBA pour changer la source de données en automatique ou créer un tcd identique avec des données sources différentes? Sandrine...

James007 · Answer

Tu peux avec une macro modifier le PivotCache ... Sub ChangerPivotCache() ' Modifier le PivotCache de tous les TCD dans toutes les feuilles Dim pt As PivotTable Dim wks As Worksheet For Each wks In ActiveWorkbook.Worksheets For Each pt In wks.PivotTables pt.CacheIndex = Sheets("Pivot").PivotTables(1).CacheIndex Next pt Next wks End Sub En espèrant que cela t'aide .....

Jean-Eric · Answer

Merci de joindre un petit fichier pour illustrer tes propos. Cdlt...

Jean-Eric · Answer

Re,

Une proposition à étudier et à adapter.

Les données ont été mises sous forme de tableau.

Cdlt.

251test-copie-onglet.xlsm (27.96 Ko)

Option Explicit

Public Sub Copie_onglet()
Dim wb As Workbook, ws As Worksheet
Dim lo As ListObject, pt As PivotTable
Dim strName As String

    strName = InputBox("Choix du Produit")
    If strName = "" Then Exit Sub

    Set wb = ThisWorkbook
    Set ws = ActiveSheet
    ws.Copy After:=wb.Worksheets(Worksheets.Count)

    With ActiveSheet
        .Name = strName
        Set lo = .ListObjects(1)
        Set pt = .PivotTables(1)
    End With
    pt.ChangePivotCache wb.PivotCaches.Create(xlDatabase, lo.Range)

    Set pt = Nothing: Set lo = Nothing: Set ws = Nothing: Set wb = Nothing

End Sub