Discussion :

[Samwesome]

Bonjour à tous,

J'ai une problématique que je n'arrive pas à résoudre et peut être que l'un d'entre vous l'a déjà rencontré.

En fait, je souhaite mettre à jour mes tableaux croisés dynamiques avec les données (date) d'une page résumant les données de ces dit tableaux.

Le problème, c'est que l'exécution du code fonctionne une fois sur 100 (et je ne sais pourquoi) et sinon ça me provoque l'erreur 1004.

J'ai tout essayé sur le format date (placer un CDate, changer le format avec format(mois, "mmmm yy"), etc.) et je ne trouve pas de solution.

Il faut savoir que le champ mois des TCD est sous le format "février 17", mais la donnée est bien transcrite de la manière suivante : "01/02/2017"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
 
Sub MajTCD()
 
Dim mois As Date
 
mois = Sheets("Accueil").Cells(2, 21).Value
 
    With Sheets("A-Bilan M-1").PivotTables("TCD TJM M-1").PivotFields("Mois")
        .ClearAllFilters
        .CurrentPage = mois
    End With
 
    With Sheets("A-Bilan M-1").PivotTables("TCD TJM Prod M-1").PivotFields("Mois")
        .ClearAllFilters
        .CurrentPage = CDate(mois)
    End With
 
End Sub

Merci beaucoup de votre aide si vous en avez le temps :-)

Belle soirée,
Samuel

[Nicolas JACQUIN]

Bonjour, à tester

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub MajTCD()
 
Dim mois As Date
 
mois = Sheets("Accueil").Cells(2, 21).Value
 
    With Sheet.PivotTables("A-Bilan M-1").PivotFields("TCD TJM M-1").ClearAllFilters
    ActiveSheet.PivotTables("A-Bilan M-1").PivotFields("TCD TJM M-1"). _
    PivotFilters.Add Type:=xlBefore, Value1:=Format(mois, "yyyy/mm/dd")
    End With
 
    With Sheet.PivotTables("A-Bilan M-1").PivotFields("TCD TJM Prod M-1").ClearAllFilters
    ActiveSheet.PivotTables("A-Bilan M-1").PivotFields("TCD TJM Prod M-1"). _
    PivotFilters.Add Type:=xlBefore, Value1:=Format(mois, "yyyy/mm/dd")
    End With
 
End Sub

[78chris]

Bonjour

Sinon voir https://www.developpez.net/forums/d1...-excel-2010-a/
au #4

[Samwesome]

Bonjour,

Merci pour vos aides.

Malheureusement, l'erreur est toujours présente. Cela semble considérer que la donnée filtrée n'existe pas (alors qu'elle existe...) je suis certain qu'il y a un problème avec le fait que ce soit une date.

Toujours l'erreur 1004 sur la ligne d'ajout d'un filtre.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub MajTCD()
 
Application.EnableEvents = False
 
Dim mois As String
 
mois = Sheets("Accueil").Cells(2, 21).Value
 
    With Sheets("A-Bilan M-1").PivotTables("TCD TJM M-1").PivotFields("Mois")
        .ClearAllFilters
        .PivotFilters.Add Type:=xlCaptionEquals, Value1:=Format(mois, "mmmm yy")
    End With
 
'    With Sheets("A-Bilan M-1").PivotTables("TCD TJM Prod M-1").PivotFields("Mois")
'        .ClearAllFilters
'        .CurrentPage = CDate(mois)
'    End With
 
Application.EnableEvents = True
 
End Sub