Pb compatibilité TCD

Bonjour

J'ai un code pour modifier mes champs d'un TCD. La longueur des lignes et la feuille choisie étant variables.

Ce code fonctionne sur excel2007 mais pas sur 2003.

Auriez vous une idée pour que ça fonctionne sur la version 2003

    Sheets("dossier_prod").PivotTables("Tableau croisé dynamique1").ChangePivotCache _
        ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        Sheets(demande).Range("A1:F" & lg), _
        Version:=xlPivotTableVersion10)

Merci beaucoup

Bonsoir,

Essaie comme ceci :

Sheets("dossier_prod").PivotTables("Tableau croisé dynamique1").ChangePivotCache _
        ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        Sheets(demande).Range("A1:F" & lg)

Si ok, clique sur le v vert à côté du bouton Éditer lors de ta réponse afin en clôturer le fil

Crdlt

Bonjour et bonne année à tous.

J'ai toujours le même résultat erroné avec le code que tu me soumets.:

"Erreur d'exécution 438, Propriété ou méthode non-gérée par cet objet"

Quelle difficulté ce code. Je n'y comprends rien.

Merci si tu as d'autre pistes.

EDIT: Je suis passé par le gestionnaire de noms et ça fonctionne. Merci.