Discussion :

[Mrfreeze117]

Bonjour à tous et à toutes,

J'ai un soucis pour mettre à jour mon TDC, avant de le rafraîchir je dois redimensionner ma source de donnée car mon nombre de lignes peut changer.

Code :

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

Sheets("TDCPPA").PivotTables("TDC prio").SourceData = " 'PPA SYNTHESES Priorités!'R4C3:R19C10"

Mon soucis viens du faite que mon nom d'onglet contient des espaces, car quand je renomme l'onglet en PPASYNTHESESPriorités le code :

Code :

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

Sheets("TDCPPA").PivotTables("TDC prio").SourceData = "PPASYNTHESESPriorités!R4C3:R19C10"

Fonctionne.

Pouvez-vous m'aider?

Merci d'avance

[78chris]

Bonjour


Si tu mets ta source sous forme de liste (onglet Données, Créer une liste) et les données sont bien ajoutées au niveau du * bleu, la source du TCD s'auto-adaptera.

Sinon, il faut encadrer le nom d'onglet par des apostrophes : le ! ne doit pas être inclus dans les apostrophes et vérifie aussi tes espaces entre " et '.

[Mrfreeze117]

J'ai essayé ça:

Code :

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

Sheets("TDCPPA").PivotTables("TDC prio").SourceData = "'PPA SYNTHESES Priorités'!R4C3:R19C10"

mais ça me fait:

Code :

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

Le rapport de tableau croisé dynamique à été enregistré sans les donnée sources. Utilisez la commande Actualiser les données pour mettre à jour le rapport.

[78chris]

Re

Et si tu le fais avec l'enregistreur macro, cela donne quoi ?

[Mrfreeze117]

ça donne ça:

Code :

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

1
2
3
4
    ActiveSheet.PivotTables("TDC prio").ChangePivotCache ActiveWorkbook.PivotCaches _
        .Create(SourceType:=xlDatabase, SourceData:= _
        "C:\Users\Documents\2- Projets\PPA\[PPA SEM vierge v 1.92.xls]PPA SYNTHESES Priorités!R4C3:R19C10" _
        , VERSION:=xlPivotTableVersion10)

que je transforme en ça:

Code :

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

1
2
3
      Sheets("TDCPPA").PivotTables("TDC prio").ChangePivotCache ActiveWorkbook.PivotCaches _
        .Create(SourceType:=xlDatabase, SourceData:= _
        "PPA SYNTHESES Priorités!R4C3:R26C10")

Mais j'ai aucune idée si ça marche sous 2003. J'ai un PC équipé en 2010 et pour avoir un PC équipé 2003 je galère. J'ai déjà utilisé le code que je présente au début de ce post mais dans le nom d'onglet il n'y avais pas d'espace. Et je sais qu'il marche sous 2003. C'est pour ça que j'aimerai adapté mon 1er code pour qu'il fonctionne avec des espace dans le nom de l'onglet.

[78chris]

Bonjour


La gestion des TCD est différente entre 2003 et 2010.

Donc difficile de tester si tu n'as que 2003.

Je reviens à ma proposition initiale, la source peut-elle être déclarée en liste, auquel cas ce code devient inutile.