Ouverture programmer sur TCD

Pierrot93

XLDnaute Barbatruc

• 30 Novembre 2006

• #2

Re : Ouverture programmer sur TCD

Bonjour Yves

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

Code:

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
@+

 

Vote positif 0 Vote négatif

ziopizza

XLDnaute Occasionnel

• 30 Novembre 2006

• #3

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

 

Pièces jointes

• exempleTCD.xls

  23.5 KB · Affichages: 49
• exempleTCD.xls

  23.5 KB · Affichages: 48
• exempleTCD.xls

  23.5 KB · Affichages: 50

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 30 Novembre 2006

• #4

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.

@+

 

Pièces jointes

• Testtcd.xls

  27 KB · Affichages: 51
• Testtcd.xls

  27 KB · Affichages: 53
• Testtcd.xls

  27 KB · Affichages: 51

Dernière édition: 30 Novembre 2006

Vote positif 0 Vote négatif

ziopizza

XLDnaute Occasionnel

• 30 Novembre 2006

• #5

Re : Ouverture programmer sur TCD

Grand Merci Pierrot,

Et bonne journée Yves

 

Vote positif 0 Vote négatif