Copie TCD et base de donnée

Bonjour à tous,

Voici mon problème :

J'ai une page avec un tableau de donnée. A partir de ce tableau de donnée, je crée un TCD sur la même page (qui me permet d'obtenir des graphiques).

Mon souhait est que lorsque je copie cette page, le TCD se fasse à partir de la plage de données de la page copié.

Je vous joint un exemple de ce que je veux faire (sauf que n'y arrivant pas, le TCD reprend la plage de donnée de la 1ère)

Merci par avance pour votre aide !

Honorine

Bonjour,

Essaye ce code dans le module "ThisWorkbook" :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Application.DisplayAlerts = False
    On Error Resume Next
    With ActiveSheet.PivotTables("Tableau croisé dynamique11")
        .SourceData = ActiveSheet.Name & "!A1:C13"
    End With
    Application.DisplayAlerts = True
End Sub

Astuce : Faire la copie toujours à partir du Feuil1

Bonjour,

Bonjour Raja,

J'ai supprimé les noms inutiles du gestionnaire des noms.

Cdlt.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    With Sh.PivotTables(1)
        .SourceData = Sh.ListObjects(1).Range.Address
    End With
End Sub

Merci Raja et merci Jean-Eric, vos deux solutions fonctionnent

Ça va me sauver la mise pour bien plus d'un problème !