Bonjour à tous,
Malheureusement sans succès, j'ai déjà fait part du problème suivant sur Developpez.net ([XL-2010] Sélectionner champs colonne suivant dans un TCD - Forum du club des développeurs et IT Pro)
Mon objectif est de sélectionner un critère, défini à partir d'une cellule fixe de mon classeur, dans un des champs de page de mon TCD, alimenté via une base de données OLAP.
J'ai imaginé cette option car je n'arrive pas (non plus!) à désélectionner l'item coché dans la liste de données du champs en page de mon TCD et de sélectionner l'item suivant automatiquement. (Mais si vous avez une idée pour faire ça je suis preneur..)
l'intitulé de chaque item en page est formé comme suit : AAAA MM. (Par exemple 2012 11).
J'ai d'abord défini dans une cellule de mon classeur la formule suivante:
=TEXTE(ANNEE(D3)&" "&SI(NBCAR(MOIS(D3))=1;"0"&MOIS(D3);MOIS(D3))
Cela me permet de voir apparaître la date que je veux sélectionner dans mon TCD, et ce au format adapté (en tout cas c'est ce que je pensais...)
Attention, Je suis débutant en VBA...
Voici les codes que j'ai testé:
Sheets("CR Passage").PivotTables("Tableau croisé dynamique2").PivotFields( _
"[Dim Date Prd].[Date].[Année]").CurrentPage = ActiveSheet.Range("E3").Value
J'ai alors le message d'erreur "Erreur d'exécution 1004: impossible de définir la propriété CurrentPage de la classe PivotField"...
Auriez-vous une idée à me souffler s'il vous plait?
Merci d'avance pour votre aide!
Malheureusement sans succès, j'ai déjà fait part du problème suivant sur Developpez.net ([XL-2010] Sélectionner champs colonne suivant dans un TCD - Forum du club des développeurs et IT Pro)
Mon objectif est de sélectionner un critère, défini à partir d'une cellule fixe de mon classeur, dans un des champs de page de mon TCD, alimenté via une base de données OLAP.
J'ai imaginé cette option car je n'arrive pas (non plus!) à désélectionner l'item coché dans la liste de données du champs en page de mon TCD et de sélectionner l'item suivant automatiquement. (Mais si vous avez une idée pour faire ça je suis preneur..)
l'intitulé de chaque item en page est formé comme suit : AAAA MM. (Par exemple 2012 11).
J'ai d'abord défini dans une cellule de mon classeur la formule suivante:
=TEXTE(ANNEE(D3)&" "&SI(NBCAR(MOIS(D3))=1;"0"&MOIS(D3);MOIS(D3))
Cela me permet de voir apparaître la date que je veux sélectionner dans mon TCD, et ce au format adapté (en tout cas c'est ce que je pensais...)
Attention, Je suis débutant en VBA...
Voici les codes que j'ai testé:
Sheets("CR Passage").PivotTables("Tableau croisé dynamique2").PivotFields( _
"[Dim Date Prd].[Date].[Année]").CurrentPage = ActiveSheet.Range("E3").Value
J'ai alors le message d'erreur "Erreur d'exécution 1004: impossible de définir la propriété CurrentPage de la classe PivotField"...
Auriez-vous une idée à me souffler s'il vous plait?
Merci d'avance pour votre aide!