Bien le bonjour à tous,
J'ai une erreur 1004 "Erreur défine par l'application ou par l'objet"
Sur ce code :
Dim wb As Workbook
Dim ws As Worksheet
Dim TCD_CSV As PivotTable
Set wb = ActiveWorkbook
Set ws = ActiveSheet
Set TCD_CSV = ws.PivotTables("TCD_CSV")
'MsgBox (TCD_CSV.GetPivotData("INDEX", "N° COMPTEUR CSV", "AEP002"))
Dim test As Range
test = TCD_CSV.GetPivotData("INDEX", "N° COMPTEUR CSV", "AEP002")
MsgBox test.Value
Le problème intervient sur cette ligne :
TCD_CSV.GetPivotData("INDEX", "N° COMPTEUR CSV", "AEP002")
Sauf que je l'ai codé comme défini absolument partout alors je ne comprend pas le problème...
Je voulais que mon MsgBox me sorte "50"
L'objectif pour moi sera de créer une boucle sur les "N° compteur CSV" dans ce TCD pour en récupérer l'index et aller le reporter dans un autre fichier pour le même compteur.
Mais déjà si j'ai pas la 1ère étape ça risque pas de marcher
Merci d'avance pour vos réponses,
Cordialement,