XL 2010 Champ calculé VBA avec variable complexe

kevenpom

XLDnaute Junior
Bonjour,

Je souhaite créer un champ calculé avec un variable (string) qui change de mois en mois
J'essai en vain de mettre ceci (qui fonctionne parfaitement)

VB:
ActiveSheet.PivotTables("pvt1").CalculatedFiCalculatedFields.Addelds.Add "$inv - $max", "='2019-02 TOTAL'-'2019-02 $ Final max'", True
en cela


VB:
myLastMonthYears ="2019-02"

    myLastMonthYears1 = myLastMonthYears & " TOTAL"
    myLastMonthYears2 = myLastMonthYears & " $ Final max"
    ActiveSheet.PivotTables("pvt1").CalculatedFiCalculatedFields.Addelds.Add "$inv - $max", "='" & myLastMonthYears1 & "'-'" & myLastMonthYears2 & "'", True
Mais j'ai toujours un message d'erreur et j’essaie de jouer avec le ' et " mais rien ne semble fonctionner...
 

kevenpom

XLDnaute Junior
Voici j'ai réduit au maximum les données.
Mon but est simple c'est à chaque mois recalculé les tableaux croisé dynamique car il y a des colonnes qui s'ajoute.

Merci pour votre aide :D
 

Pièces jointes

  • Book1.xlsm
    33.9 KB · Affichages: 6

eriiic

XLDnaute Barbatruc
Bonjour,

idem sur 2010, même celle sensée passer échoue.
C'est quoi .CalculatedFiCalculatedFields ?
Ca ressemble à CalculatedFields collé 2 fois, dont le 2nd collé aurait bouffé la fin du 1er.

Ca y ressemble tellement qu'on retrouve la fin dans .Addelds qui serait un .Add qui aurait mal fini.
"Ils le savent qu'on roule bourrés !!!" Coluche

eric
 

Discussions similaires