Discussion :

[Bamban]

Bonjour,

J'ai un problème assez épineux avec une macro de tri. En fait, j'ai un fichier qui contient 2 tableaux de données mis à jours automatiquement avec Access. J'ai d'autre part une feuille qui contient deux tableaux croisés dynamiques qui synthétisent les deux tableaux précédents. Le seul filtre appliqué à ces TCD est un filtre sur la date du jour.

J'ai une macro qui fait les choses suivantes :
-actualisation des TCD
-suppression du filtre sur la date de la veille
-application du filtre de la date du jour

Problème : un beau jour, cette macro a cessé de fonctionner. Je dis bien un beau jour car elle a du fonctionner au moins deux mois sans sourciller. Malheureusement je n'ai vu aucune idée de ce qu'il a pu advenir...

Explication du titre (le terme illogique, pour de la programmation, n'est pas franchement adapté, au mieux on peut dire incompréhensible) : j'ai lancé l'enregistreur de macro puis ai sélectionné une date disponible dans les filtres. J'ai tenté de relancer cette macro sans succès (erreur 1004). Ce qui est enregistré avec l'enregistreur de macro ne peut être reproduit ??? Gros doutes ...

Voici le code utilisé pour mettre à jour le filtre de la date :

Code :

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

1
2
3
4
5
6
7
8
9
    With Sheets("TdB").PivotTables("TdbI").PivotFields("Date Inter")
        .ClearAllFilters
        .CurrentPage = Right(Left(StrJour, 5), 2) & "/" & Left(StrJour, 2) & "/" & Right(StrJour, 4)
    End With
 
    With Sheets("TdB").PivotTables("TdbP").PivotFields("Date Inter")
        .ClearAllFilters
        .CurrentPage = Right(Left(StrJour, 5), 2) & "/" & Left(StrJour, 2) & "/" & Right(StrJour, 4)
    End With

Pas de problèmes du coté droit du "=" du .currentpage, j'ai testé avec du debug.print. Pas de problème avec la méthode ".clearAllFilters" (pas à pas ça roule). J'ai testé la méthode sur un autre tableau croisé dynamique de mon fichier, et l'enregistreur de macro fonctionne cette fois sans broncher.

Une idée ?? =)

Merci pour votre aide !

[Daniel.C]

Bonjour,

Ce qui est enregistré avec l'enregistreur de macro ne peut être reproduit ???

L'enregistreur est la source de plus d'une erreur, par exemple quand il enregistre des références L1C1 (VBA ne connaît que le R1C1) ou des nombres avec des virgules (pour VBA, c'est le séparateur des milliers) etc. Dans ton cas, il serait intéressant de savoir comment tu renseignes la variable "StrJour"

Essaie :

Code :

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

1
2
StrJour = Format(Date, "m/d/yyyy")
ActiveSheet.PivotTables(1).PivotFields("Date").CurrentPage = StrJour

[SfJ5Rpw8]

Bonsoir,

je ne crois pas que ton enregistreur de macro à créé cette ligne :

Code :

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

.CurrentPage = Right(Left(StrJour, 5), 2) & "/" & Left(StrJour, 2) & "/" & Right(StrJour, 4)

j'aurais plutôt mis une date au format date et pas une chaine de caractére à droite de ton égal..

[Daniel.C]

Bonjour bbil,

Et pourtant, si tu exécutes cette ligne, avec un champ de page contenant des dates :

Code :

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

Var = ActiveSheet.PivotTables(1).PivotFields("Date").CurrentPage

tu récupères une variable string contenant une date au format "m/j/aaaa".

[Bamban]

Désolé pour la réponse tardive, long weekend !

Voila ce que me donne l'enregistreur de macro (qui ne se reproduit toujours pas)

Code :

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

1
2
3
    ActiveSheet.PivotTables("TdbI").PivotFields("Date Inter").ClearAllFilters
    ActiveSheet.PivotTables("TdbI").PivotFields("Date Inter").CurrentPage = _
        "16/05/2012"

J'ai utilisé un string pour ma date du jour (StrJour) car dans l'enregistreur de macro, c'est un string qui est inséré après currentPage.

J'essai quand même avec la date, sait-on jamais.

Merci pour votre aide, j'espère qu'on arrivera à bout du problème.

[Bamban]

J'ai testé avec ceci

Code :

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

1
2
3
4
    With Sheets("TdB").PivotTables("TdbI").PivotFields("Date Inter")
        .ClearAllFilters
        .CurrentPage = Format(Date - 3, "dd/mm/yyyy")
    End With

Mais ce n'est toujours pas concluant.

Au fait, je reviens sur ce que j'ai dit dans mon premier post : si je met le même champ dans un autre TCD du fichier, les macro de tri automatique ne marchent pas non plus ! J'ai bien un problème dans l'appel du champ il faut croire... (mais pourquoi ça fonctionnait avant ??? T_T )