Discussion :

[Belegeorn]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SilkyRoad]

bonsoir

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


bonne soirée
michel

[Belegeorn]

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

[Swiper]

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...).

[Belegeorn]

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 !

[Belegeorn]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

" ' "

(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 :

Sélectionner tout - Visualiser dans une fenêtre à part

"'" & 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 ?