IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

VBA/EXCEL : Problème affichage date du jour par défaut dans mon tableau croisé


Sujet :

Macros et VBA Excel

  1. #1
    Membre du Club
    Profil pro
    Inscrit en
    Juillet 2004
    Messages
    66
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2004
    Messages : 66
    Points : 44
    Points
    44
    Par défaut VBA/EXCEL : Problème affichage date du jour par défaut dans mon tableau croisé
    J ai un champ de page date, me listant toutes les dates ayant des données de 2005 à auj
    Quand j’ouvre mon tableau croisé dynamique et que je clique sur actualiser pour qu’ils me mettent à jour mes données
    J aimerais qu il m affiche par défaut les dernières données du jour ou de la veille selon disponibilité

    Comment je procède : je cherche dans mon fichier source la date max de mes données, que je mets dans une cellule de mon classeur
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    Range("E1").Select
      	ActiveCell.FormulaR1C1 = "=MAX([Table.xls]TABLA!C7)"
    Par exemple, ça me sort 23/12/2006 dans la cellule E1

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("DATE").CurrentPage = Range(“E1”).value
    Mais ça me sort cela comme erreur : Erreur 1004 au moment de l’exécution
    On ne peut assigner la propriété _Default de l’objet pivotitem

    Mais par contre quand je mets en dur
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("DATE").CurrentPage = “23/12/2006
    ça marche très bien, mon tableau croisé dynamique affiche les données du 23/12/2006

    Qqun saurait pourquoi
    Merci d’avance pour vos réponses

  2. #2
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Points : 15 543
    Points
    15 543
    Par défaut
    ActiveCell.FormulaR1C1 = "=MAX([Table.xls]TABLA!C7)"
    Par exemple, ça me sort 23/12/2006 dans la cellule E1

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("DATE").CurrentPage = Format(cdate(Range(“E1”).value),"dd/mm/yyyy")
    Essaie ça et dis-nous
    A+

  3. #3
    Membre du Club
    Profil pro
    Inscrit en
    Juillet 2004
    Messages
    66
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2004
    Messages : 66
    Points : 44
    Points
    44
    Par défaut
    ca marche du tonnerre
    merci bcp

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. insérer la date du jour par défaut dans un DBgrid
    Par amar200 dans le forum Bases de données
    Réponses: 3
    Dernier message: 30/07/2011, 15h31
  2. Date du jour par défaut dans champ text
    Par hugodu28 dans le forum Langage
    Réponses: 6
    Dernier message: 01/04/2011, 13h03
  3. [infomaps] date du jour par défaut
    Par bibi78 dans le forum Outils BI
    Réponses: 0
    Dernier message: 09/07/2010, 14h52
  4. date pdu jour par défaut dans create table
    Par r83 dans le forum SQL Procédural
    Réponses: 1
    Dernier message: 20/10/2006, 22h45
  5. Mettre la date du jour par défaut
    Par Oberown dans le forum MS SQL Server
    Réponses: 3
    Dernier message: 01/03/2005, 15h35

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo