Modifier un pivotfield via une cellule avec VBA

[Vincepom]

Bonjour à toutes et tous,

J'ai une liste de x vendeurs dans une cellule excel que j'ai nommé PFVPAA.
J'essaye de faire une macro qui ira modifier le pivotfield "Vendeur" d'un TCD en fonction du nom selectionné.

J'ai tapé ce code mais il bug à la ligne i = Range("PFVPAA")


sheets("Bdonnées PAA").Select
Dim i As Integer
i = Range("PFVPAA")
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Vendeur"). _
CurrentPage = i

Avez vous une solution ??

D'avance Merci

 

[Pierrot93]

Re : Modifier un pivotfield via une cellule avec VBA

Bonjour,

peut être modifier le type de variable :

Dim i As String

bon après midi
@+

 

[Vincepom]

Re : Modifier un pivotfield via une cellule avec VBA

Tout simplement !

Ca fonctionne à merveille !!

Mille mercis Pierrot !!!

Bonne soirée