les donnees de Pivot Table

Bonjour tout le monde
Voici mon problème j'ai un pivot table dans Sheet1 et des données dans sheet2 j'ai besoin après des changements dans sheet2 de changer data source de mon pivot table afin qu'il prend en compte mes changements j'ai essayé ainsi mais ça me fait des erreurs:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub Change_Pivot_TableDataSource()   Dim oPT As PivotTable Dim oPC As PivotCache Dim ORange As Range     Set oPT = Sheets("sheet1").PivotTables("PivotTable1") Set oPC = oPT.PivotCache Set ORange = Sheets("sheet2").Range("A2:AB" & Sheets("shee").Range("C65536").End(xlUp).Row)   oPC.SourceData = "TD_Reporting_EU_Breakdown!" & Application.ConvertFormula(ORange.Address, xlA1, xlR1C1)   oPT.RefreshTable If Not oPT Is Nothing Then Set oPT = Nothing If Not oPC Is Nothing Then Set oPC = Nothing End Sub

---

merciiiiiiii d'avance

Bonjour.

Tu peux éviter d'avoir à mettre à jour la source.

1. Tu définis un nom (nfSource) = DECALER(Sheet1!$A$2;0;0;NbVAL(Sheet1!$C:$C);28)
2. Tu écris ensuite comme source du TCD : = nfSource

Et plus besoin de procédure VBA.

Cordialement,

PGZ

Merci beaucoup pour ta réponse j'ai fait comme tu m'a dit de créer un ranging name et ensuite quand je clique sur change data source et j'ecris le name que j'ai crée il m'affiche un message d'erreur en me disant que le Field sélectionné n'est pas correcte.

Est ce que t'aurais une idée
Merciii

Re,

Tu dois d'abord vérifier que le nom est correctement défini. Dans le gestionnaire des noms, tu sélectionnes nfSource, commande MODIFIER. Dans la fenêtre de définition du nom, zone Fait référence à, tu cliques à droite sur le réducteur de fenêtre. Tu passes alors à la sélection des cellules dans la feuille Sheet1.
Tu vérifies alors que la plage (encadrée en pointillés) est correcte.

PGZ