Discussion :

[formabox]

Bonjour l'équipe,

Je bloque sur un problème avec un tableau croisé dynmique. Mon objectif est qu'en activant une macro, celle-ci modifie le filtre des dates en allant rechercher des critères dates dans des cellules. J'ai donc ajouter deux variables Janvier_deb et Janvier_fin par exemple.

Dans le code qui change le filtre, j'ai remplacé les critères dates placés entre "" par mes deux variables sans les "".

Code :

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

1
2
3
4
5
6
7
8
9
10
jan_deb = Sheets("Saisie Contacts").Range("A2").Value
jan_fin = Sheets("Saisie Contacts").Range("A32").Value
 
 
    ActiveSheet.ChartObjects("GE_Janvier").Activate
        Sheets("GE_Jan").PivotTables("TCD_GE_Janvier").PivotFields("Premier contact"). _
        ClearAllFilters
    Sheets("GE_Jan").PivotTables("TCD_GE_Janvier").PivotFields("Premier contact"). _
        PivotFilters.Add Type:=xlDateBetween, Value1:=jan_deb, Value2:= _
        jan_fin

Je ne comprends par pourquoi mais quand j'exécute la macro, il bug sur les deux valeurs et me donne l'erreur 1004 "La date tapée n'est pas valide". La cellule qui contient la variable est bien en format date...

Est-ce que quelqu'un a déjà eu le même problème que moi ?

Merci pour votre aide précieuse

[amnorian]

tente, a tout hasard, de dimensionner tes variables en date (au démarrage), et de convertir en cdate() tes variable

[formabox]

J'ai déjà ajouté la définition de la variable en commençant mon code par

Dim jan_deb as date
Dim jan_fin as date

en vain... Par contre, t'entends quoi par convertir mes variables en cdate ?

[amnorian]

t'es 2 variables la

Code :

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

1
2
jan_deb = Sheets("Saisie Contacts").Range("A2").Value
jan_fin = Sheets("Saisie Contacts").Range("A32").Value

tu les converti pas CDATE() soit

Code :

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

1
2
jan_deb = cdate(Sheets("Saisie Contacts").Range("A2").Value)
jan_fin = cdate(Sheets("Saisie Contacts").Range("A32").Value)

[AlainTech]

Bonjour à tous,

Si les dates dans les cellules sont déjà de vraies dates (et pas du texte), la conversion est inutile.
Pour le savoir, il suffit de changer l'affichage en numérique.
Si les dates sont converties en nombres, ce sont de vraies dates.