Discussion :

[ptitmilano]

bonjours a tous, je viens vers vous pour un problème qui m'empêche de finir mon projet pour le taf. Si quelqu'un peut m'aider car je seche la, se serai vraiment cool.

voila, j'ai un workbook qui contient plusieurs tableau croisé dynamique(TDC) répartis sur plusieurs feuilles.
Tous ces TDC sont issue de la même source externe de donnée.
Ils sont juste trier différemment, Hormis un champs qu'ils ont tous en commun, une date.

ma question: Est-il possible de tous les actualiser d'un coup sur une date choisie?

Code :

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

1
2
3
4
5
Dim SHIPDATE As String
   SHIPDATE = [i10]  'i10 contient une date au format 22/12/2010 par exemple
 
    ActiveSheet.PivotTables("Tableau croisé dynamique7").PivotFields("senddate"). _
        CurrentPage = "22/12/2010"  'j'ai essayé de modifier CurrentPage = "22/12/2010" par CurrentPage = SHIPDATE

mais

[mayekeul]

bonjour,

a mon avis, tu devrais faire comme ceci

Code :

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

1
2
3
4
5
 
DIM T AS DATE
 
T=[I10]
ActiveSheet.PivotTables("Tableau Croisé Dynamique7").PivotFields("senddate").CurrentPage = T

[ptitmilano]

Je doit avoir un probleme de format de cellule:
je rentre une date 24/12/2010 dans I10
toutes les dates de mon tableau sont au meme format:

lorsque je lance mon code je me retrouve avec 24/12/2010 dans le tableau et donc il ne retrouve pas les données.

Code :

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

1
2
3
4
DIM T AS DATE
 
T=[I10]
ActiveSheet.PivotTables("Tableau Croisé Dynamique7").PivotFields("senddate").CurrentPage = T

[mayekeul]

c'est à dire?
le code fonctionne mais le résultat est qu'il ne renvoie plus rien dans la table pivot?

[ptitmilano]

non, le code fonctionne, il n'y a pas d'erreur.
seulement le mois et le jour se retrouve inverser dans le pivot. J'ai réussi a force de bidouillé a le faire fonctionner. maintenant reste a trouver ce que j'ai fait lol