Modification de la source d'un TCD

Bonjour à tous

cherche a changer les données sources d'un TCD en changeant la feuille source
J'ai cherché dans le forum et j'ai trouvé la ligne de code adéquate mais j'ai une erreur 1004 référence non valide sur la ligne en gras

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim sem_travail As String sem_travail = Sheets("Indicateur").[K13].Value Dim objCellule As Range Dim Pvt As PivotTable 'Définit la nouvelle plage source Set objCellule = ThisWorkbook.Sheets(sem_travail).Range("A1:K60") 'Définit le TCD qui va être mis à jour. Set Pvt = Sheets("Indicateur").PivotTables("Tableau croisé dynamique1") Pvt.PivotTableWizard SourceType:=xlDatabase, SourceData:=objCellule.Address(, , xlR1C1, True)

---

est-ce quelqu'un pourrait me sortir de ce mauvais pas ?
merci d'avance

bonsoir

Je viens de retester avec Excel2002 et Excel2007, sans problème.
Quelle version utilises tu?


bonne soirée
michel

bonjour,
merci d'avoir répondu

je suis sous excel 2000

il y aurait alors autre chose a utiliser en fonction de la version ?

par rapport a ce que je voudrais faire, est-ce que ce ne serait pas plus simple de recréer le tableau croisé dynamique a chaque appel de la macro ?

Jean

Ca éviterais ce genre de problème, mais par contre si le TCD se trouve dans une boucle, ca pourrait rallongé pas mal le temps d'execution à cause des opérations en plus(supprimer le tableau, en recréer un...).

La mise a jour n'est pas dans une boucle.
Le but est juste de changer la feuille d'origine du TCD sachant que chaque feuille a la meme structure

C'est pour ca que je voulais juste changer la source du TCD, le reconstruire a chaque fois ca me donne l'impression d'utiliser un Rafale pour atttraper une mouche...

mais bon, si c'est la solution la plus adaptée, je verrais pour la mettre en place mais dans ce cas, pauvre mouche !

J'ai trouvé la source du probleme en bidouillant pour créer le TCD via la macro

en fait, ce qui ne passe pas c'est le :

Code:

---

" ' "

---

(avec les espaces histoire de voir qquelque chose mais ils n'y sont pas dans la macro)

que je suis obligé de mettre pour pouvoir utiliser ma variable comme nom de feuille comme par exemple dans

Code:

---

"'" & Sheets("Indicateur").[K13].Value & "'"

---

du coup que j'essaie juste de mettre a jour mon TCD ou que j'essaie de le reconstruire completement, j'arrive au meme probleme

vous voyez une solution ?

Il n'y aurait pas moyen de passer par un Sheet(sem_travail) dans la déclaration du TCD ? ou une méthode similaire ?

Bon finalement, j'ai trouvé une solution a l'aide de NB.SI, de copier coller entre les feuilles et sans tableau croisé dynamique

merci pour votre aide