Bonjour,

Je suis actuellement en train de travailler sur une macro excel et mon problème est le suivant:

Je crée une liste de founisseurs, puis je souhaite m'en servir pour modifier les filtres de mon TCD.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
'On crée la collection de Fournisseurs:
Dim ListeFournisseurs As New Collection
 
'On remplit la collection
...
 
'Voici ensuite la ligne de manipulation TCD:
 
ActiveSheet.PivotTables("TCD SPLIT").PivotFields("fournisseur").PivotItems(ListeFournisseurs(2)).Visible = True
Cette ligne ne fonctionne pas car ListeFournisseurs(2) == PUMA
Or, il foudrait que ça ressorte "PUMA", avec les guillemets.

J'ai essayé
Code : Sélectionner tout - Visualiser dans une fenêtre à part
ActiveSheet.PivotTables("TCD SPLIT").PivotFields("fournisseur").PivotItems(" & ListeFournisseurs(2) & ").Visible = True
mais bien évidement le programme interprete & ListeFournisseurs(2) & comme une chaine de caractères...

J'ai fait quelques autre tentatives mais sans succès.

Quelqu'un a t-il la solution à ce problème?

Merci d'avance!