Ouverture programmer sur TCD

[ziopizza]

Bonjour le Forum,

J'ai un TCD sur une feuille, avec comme choix( Mois et Jour), je voudrais qu'à l'activation de la feuille le TCD s'ouvre sur le mois et le jour de la date du jour.
Exemple:Aujourd'hui le 30/11/06
Donc mois =11
Jour=30.
Merci d'avance.
Salut Yves

 

[Pierrot93]

Re : Ouverture programmer sur TCD

Bonjour Yves

si j'ai bien compris... peut être comme ci-dessous si ce sont des champs de page :

Private Sub Worksheet_Activate()
ActiveSheet.PivotTables(1).PivotSelect "", _
    xlDataAndLabel
ActiveSheet.PivotTables(1).PivotFields("Mois"). _
        CurrentPage = Month(Date)
ActiveSheet.PivotTables(1).PivotFields("Jour"). _
        CurrentPage = Day(Date)
End Sub

bon après midi
@+

 

[ziopizza]

Re : Ouverture programmer sur TCD

Bonjour Pierrot93,

Je joins un petit fichier,qui je pense sera plus clair,j'ai collé ton code mais cela ne marche pas?,moi perso je suis largué.
Salut et Merci Yves

 

[Pierrot93]

Re : Ouverture programmer sur TCD

Re Yves

ci joint ton fichier modifié, j'ai placé un On Error Resume next pour éviter les messages d'erreurs au cas ou tu n'ais pas de valeur pour le mois ou le jour concerné.

Teste et dis moi si ca te conviens.

@+

 

[ziopizza]

Re : Ouverture programmer sur TCD

Grand Merci Pierrot,

Et bonne journée Yves