Discussion :

[freedom126]

Bonjour,

Je suis débutant en vba, j'ai quelques soucis avec la fonction getpivotdata:

Lorsque dans une fonction je tape:

Code :

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

1
2
ActiveCell.Value = _
"=GETPIVOTDATA(""RESULTATS PARAMETRES"",R3C1,""SEMAINE"",1,""MOIS"",""janvier"",""ANNEE"",2012,""ATELIER"",""MELANGEUSE"")"

, cela fonctionne.

Par contre, puisque je souhaite parametre cette fonction, si je remplace
les parametres de recherche par des variables comme ceci:

Code :

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

1
2
3
4
5
6
num_week=1
name_month="janvier"
the_year=2012
the_atelier="MELANGEUSE"
ActiveCell.Value = _
' "=GETPIVOTDATA(""RESULTATS PARAMETRES"",R3C1,""SEMAINE"",num_week,""MOIS"",name_month,""ANNEE"",the_year,""ATELIER"",the_atelier)"

J'obtiens "erreur 2023" que je ne comprend pas.

Merci pour votre aide

[78chris]

Bonjour

Si tu mélanges des variables VBA à la chaîne il faut découper la chaîne et la concaténer avec tes variables :

Code :

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

 "=GETPIVOTDATA(""RESULTATS PARAMETRES"",R3C1,""SEMAINE""," & num_week & ",""MOIS"",name_month,""ANNEE""," & the_year & ",""ATELIER""," & the_atelier & ")"

[freedom126]

Merci pour ta réponse.
mais j'ai toujours la meme erreur.

vu dans la fenetre espion ActiveCell:

: FormulaLocal : "=LIREDONNEESTABCROISDYNAMIQUE("RESULTATS PARAMETRES"; $A$3;"SEMAINE";1;"MOIS";janvier;"ANNEE";2012;"ATELIER";MELANGEUSE)" : Variant/String : Module1.test
: FormulaR1C1 : "=GETPIVOTDATA("RESULTATS PARAMETRES", R3C1,"SEMAINE",1,"MOIS",janvier,"ANNEE",2012,"ATELIER",MELANGEUSE)" : Variant/String : Module1.test
: FormulaR1C1Local : "=LIREDONNEESTABCROISDYNAMIQUE("RESULTATS PARAMETRES"; L3C1;"SEMAINE";1;"MOIS";janvier;"ANNEE";2012;"ATELIER";MELANGEUSE)" : Variant/String : Module1.test

les donnees passées semblent etre bonne.

je ne piges pas.

merci

[78chris]

Re


Il faudrait réencadrer les variables passées de type texte par de ""

janvier et mélangeuse

a priori

Code :

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

 "=GETPIVOTDATA(""RESULTATS PARAMETRES"",R3C1,""SEMAINE""," & num_week & ",""MOIS"","""  & name_month & """,""ANNEE""," & the_year & ",""ATELIER"",""" & the_atelier & """)"

[freedom126]

Alléluia
marche impec

merci