Tableau dynamique croisé

Bonjour a tous,

je souhaiterais copier une feuille de calcul avec un tableau dynamique sur une autre feuille (même classeur) mais la source de données de la nouvelle feuille est la source de données de la feuille copier.

merci pour votre aide

a plus

Bonjour,

Un exemple.

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

Cdlt.

Public Sub Create_sheet()
Dim lo As ListObject, pt As PivotTable
    Worksheets("Mod?le").Copy after:=Worksheets(Worksheets.Count)
    With ActiveSheet
        Set lo = .ListObjects(1)
        Set pt = .PivotTables(1)
    End With
    pt.ChangePivotCache ActiveWorkbook.PivotCaches.Create(xlDatabase, lo.Range)
End Sub

Bonjour jean-Eric,

Merci pour ton retour.

mais quand je copie la feuille modèle la nouvelle feuille modèle 2 la source de données de la feuille modèle 2 est le tableau de la feuille modèle.

pour faire la copie je clique droit sur l'onglet puis déplacer ou copier est ce le bon procédé.

merci.

cordialement

Re,

J'ai répondu un peu à la question.

Je regarde mais j'ai des doutes sur une réponse favorable.

Cdlt.

Re,

Après un peu de réflexion !...

J'ai modifié certaines choses.

La procédure doit s'exécuter à partir d'une commande (Bouton ou CommandButton).

A te relire après essais.

Cdlt.

Re,

avec ton premier jet et quelque petite chose en plus voila ce qui en sors.

dis moi ce que tu en pense.

en plus ce que je souhaiterais : dans la cellule c23 ajouter du texte et lorsque je clique sur le bouton il me nomme l'onglet créer en fonction de cette cellule.

a+

cordialement

Re,

Dans mon précédent fichier, j'ai intégré des champs calculés dans le TCD pour tes calculs, ainsi que la désignation !?

J'ai ajouté le nom de la feuille pour C23.

Cdlt.

Merci Jean-Eric,

a+

cordialement