tableau croise dynamique en VBA

bonsoir à tous,

j'ai quelques soucis avec mon TCD que je ne parviens pas à actualiser.

J'ai créé 2 feuilles "données" et "synthèse", quand je clique sur le bouton MAJ mon TCD devrait se mettre à jour , mais QUENINI!!!!
j'ai le message suivant "erreur d'execution 1004 , le nom du champ de tableau croisé dynamique n'est pas valide"

Voici mon code de départ :

Code:

---

1 2 3 4 5 6 7 8

dim vTableau as string Sheets("donnees".Range("a5").currentRegion.Select vTableau="donnees!" + Selection.Address(ReferenceStyle:=xlR1C1) Sheets("donnees").Range("a1").Select Sheets("Synthese").select ActiveSheet.PivotTables("Tableau croisé dynamique1").SourceData = vTableau ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh

---

Voilà mon problème!!! j'espère avoir été claire.
Toutes les bonnes idées sont les bien venues.
A l'avance

Ben

bonjour,

et bien ton code fonctionne... tu n'as rien de plus à nous dire sur ton probléme, la ligne de code concernée ?

Une version epurée des select de ton code :

Code:

---

1 2 3 4 5 6 7

Sub YaMAk() Dim vTableau As String vTableau = "donnees!" & Sheets("donnees").Range("a5").CurrentRegion.Address(ReferenceStyle:=xlR1C1) Sheets("Synthese").PivotTables("Tableau croisé dynamique1").SourceData = vTableau Sheets("Synthese").PivotTables("Tableau croisé dynamique1").PivotCache.Refresh End Sub

---

Bonjour.

Le TCD est dans quelle feuille?

PGZ

Citation:

---

Envoyé par pgz

Bonjour.

Le TCD est dans quelle feuille?

PGZ

---

:koi: synthese :aie:

bonsoir,

mon TCD se situe dans la feuille "synthèse"

J'ai modifié mon code comme précisé ci-dessus, mais j'ai toujours le même message sur la ligne de code :

Code:

---

1 2	Sheets("Synthese").PivotTables("Tableau croisé dynamique1").SourceData = vTableau

---

pourtant "vTableau" prend la bonne valeur

le message d'erreur est le suivant :
le nom du champ de TCD n'est pas valide. POur créer un rapport de TCD vous devez des données sous forme de liste avec des étiquettes de colonnes. Si vous changez le nom d'un champ de TCD, vous devez taper un nouveau nom de champ.

Merci

RE,

Et avec :

Code:

---

1 2 3 4 5 6

Sub YaMAk() Dim vTableau As String vTableau = "donnees!" & Sheets("donnees").Range("a5").CurrentRegion.Address() Sheets("Synthese").PivotTables("Tableau croisé dynamique1").SourceData = vTableau ... End Sub

---

Tu es sûre que la première ligne de la zone sélectionnée contient bien des noms de champs?

PGZ

désolé, mais j'ai toujours ce même message d'erreur. J'avoue que je ne comprends pas.
Si quelqu'un voit une solution?.....

A l'avance merci

bonjour,

au dessus de ta ligne 5 , il y as t'il quelque chose ? qu'elle valeur prends vTableau ?

bonjour,

au-dessus de ma ligne 5 il y a 2 cellules dans lesquelles je fais une somme de colonnes.
Vtableau prend la valeur suivante :

Code:

---

donnees!R5C1:R731C11

---

cela correspond à l'ensemble de mes données

Bien à toi

excuses moi mais la valeur de vTableau est

Code:

---

donnees!$A$5:$K$731

---

Bonjour.

Et sur la ligne 5 de A à K, il y a quoi?

PGZ

bonjour,

il ya mes titres de colonnes : "titre; année, mois; intitulé; détail; montant..."

Bien à toi

Que du texte, pas une valeur numérique qui traîne sur cette ligne?

PGZ

que du texte sur cette ligne et rien d'autre tout a fait:D

Je reviens vers vous, est ce que quelqu'un aurait une idée sur le problème?

Merci:roll:

bonjour,

essai de faire cela "manuellement" , reléve la valeur que contient vTableau, utilise ensuite l'assistant de création TCD, pour modifier ton tableau et remplacer la plage source, par la valeur mémorise de vTableau..

et tu dis quoi ..

je l'ai fait de façon manuelle, (pour l'exemple, la valeur vTableau est "données!$a$5:$j$733" alors que dans l'assistant la plage de données est :"données!$a$5:$j$730", j'ai donc modifié la plage de l'assistant et là mon TCD était bon. Par contre, suite à cela si je clique de nouveau sur le bouton "mises à jour" il me met le message d'erreur suivant :"impossible de lire la propriété pivotables de la classe woksheet":cry:

Citation:

---

Envoyé par Benwad

j...et là mon TCD était bon. ..

---

il à été mis à jour ..?

bonsoir,
tout à fait il s'est mis à jour (en l'ayant fait de façon manuelle, en reprenant la bonne plage)