Pivottables format date ?

jeanpierre -  
Le Pingou Messages postés 12276 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

j'ai un TCD avec plusieurs champs que je souhaite filtrer automatiquement :

un champs année : yyyy
mois : mm
jour : dd

ci dessous le code vba. Je ne comprends pas je n'arrive pas à filtrer automatiquement sur le champs "MOIS" sur le mois en cours.
avant de faire sur les autres champs, il faut que ça fonctionne sur ce champs.

merci pour votre aide,

Sub ExactDate()
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("MOIS")
'--any existing filters need to be cleared first or will error
.ClearAllFilters

'--use international date format to avoid formatting mismatches
.PivotFilters.Add Type:=xlAfter, _
Value1:=Format(Date, "mm")
End With
End Sub

8 réponses

  1. Le Pingou Messages postés 12276 Date d'inscription   Statut Contributeur Dernière intervention   1 478
     
    Bonjour,
    Pouvez-vous mettre un fichier exemple sur https://www.cjoint.com/ et poster le lien ?

    0
  2. jeanpierre
     
    bonjour,

    pardonnez mes manières ; lien ci dessous :

    http://www.cjoint.com/c/FBdqplqKjh1
    0
  3. jeanpierre
     
    en fait je veux pouvoir programmer (filtrer) en VBA une màj automatique au démarrage du fichier en fonction de la date du jour.

    un fichier incluant la date du jour

    un fichier incluant la date du mois en cours et le mois d'après.
    0
  4. Le Pingou Messages postés 12276 Date d'inscription   Statut Contributeur Dernière intervention   1 478
     
    Bonjour,
    Dans un premier temps, les valeurs Jours, mois et année devrait être du même type soit nombre et pas du texte et nombre.
    Je ne trouve pas le code VBA que vous avez mentionnée…… !
    En principe cela fonction si on fait le filtre manuellement …. Alors pourquoi un code VBA…… ?

    0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. jeanpierre
     
    et que celle ci se lance automatiquement au démarrage du fichier !
    0
  7. Le Pingou Messages postés 12276 Date d'inscription   Statut Contributeur Dernière intervention   1 478
     
    Et que bonjour c'est mieux
    Et que votre code n'est toujours pas trouvable et sans réponse ...!
    Et que je ne sait pas si je poursuit ...!
    0
  8. jeanpierre
     
    Et que je m'excuse pour mes Et que :)

    le code est mis dans mon premier message.
    0
  9. Le Pingou Messages postés 12276 Date d'inscription   Statut Contributeur Dernière intervention   1 478
     
    Bonjour,
    A bien plaire la proposition que j’avais préparé : https://www.cjoint.com/c/FBeilRDLegs
    Désolé mais je m’arrête ici.

    0