Bug données TCD lors d'une copie d'onglet

Bonjour,

Ayant parcouru le forum, je ne suis pas tombé sur la solution. Je suis peut être passé à côté. Le cas échéant, je veux bien le lien vers le post. Sinon, voici mon problème:

J'ai une feuille de calcul dans laquelle est présent un tableau croisé dynamique synthétisant certaines données.

Je souhaite copier (dans le même classeur) cette feuille de calcul afin de saisir d'autres données d'entrées et conserver les calculs opéré sur cette feuille.

Lorsque je copie ma feuille, le tableau croisé dynamique de la nouvelle feuille conserve le lien avec la base de donnée de la feuille copiée (ancienne feuille).

Je cherche à intégrer une macro pour redéfinir la base de donnée de mon TCD sur la nouvelle feuille copiée (les emplacements des cellules sont identiques).

Vous remerciant par avance pour vos conseils, je suis bien évidemment disponible si ma demande n'est pas clair ou doit être d'avantage détaillée.

Bonne journée à vous.

Bonjour,

exemple

Sub Macro1()
    ActiveSheet.PivotTables(1).ChangePivotCache _
        ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Feuil2!R1C1:R5C2", Version:=xlPivotTableVersion15)
End Sub

où Feuil2!R1C1:R5C2 est la nouvelle plage de données

Rholala!

Dire que j'était juste à côté...

Je travaillais la dessus:

Set wb = ActiveWorkbook: Set ws = ActiveSheet: Set pt = ws.PivotTables(1)

'Cells(27) = Cellule AA1

strSRC = ws.Range("A8:V25").CurrentRegion.Address

strSRC = ws.Name & "!" & strSRC

pt.ChangePivotCache wb.PivotCaches.Create(xlDatabase, strSRC)

Je ne comprends pas pourquoi ça ne marchais pas...

Merci pour ta solution. Parfait! Et surtout hyper réactif