Bonjour,

Le code suivant me permet d'ouvrir un UserForm qui me permet de sélectionner :
- le nom d'un salarié,
- une date de début
- une date de fin

La code modifie un TCD qui affiche les données sélectionnées dans le UserForm.

Tout fonctionne bien sauf que la première date de mes données n'est jamais sélectionnée.
Exemple : si je veux afficher les saisies journalières pour la période du 12/02/2015 au 15/02/2015 de ma table de données, je code me sélectionne du 12/02/2015 au 15/02/2015. Il exclue Systématiquement la première date.

Avez-vous une piste de travail à me donner?

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Sheets("Graphique Salarié").Select
ActiveWorkbook.RefreshAll
 
'ActiveSheet.PivotTables("Tableau croisé dynamique3").ManualUpdate = True
'ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Date").ShowAllItems = True
 
DD = Format(Me.DTPicker1, "dd/mm/yyyy")
DF = Format(Me.DTPicker2, "dd/mm/yyyy")
 
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Date"). _
        ClearAllFilters
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Date"). _
        ShowAllItems = False
 
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Date"). _
        CurrentPage = "(All)"
 
    With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Date")
        ActiveSheet.PivotTables("Tableau croisé dynamique3").NullString = "(Blank)"
        ActiveSheet.PivotTables("Tableau croisé dynamique3").DisplayNullString = False
 
        For Each Pi In .PivotItems
            Pi.Name = Pi.SourceNameStandard
            MsgBox Pi.Name
            If Format(Pi.Name, "dd/mm/yyyy") >= DD And Format(Pi.Name, "dd/mm/yyyy") <= DF Then .PivotItems(Pi.Name).Visible = True Else .PivotItems(Pi.Name).Visible = False
        Next Pi
 
    End With
 
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Salarié"). _
        CurrentPage = nomsal
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Tâches").ClearAllFilters
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Tâches").PivotFilters.Add Type:=xlCaptionDoesNotEqual, Value1:="(vide)"
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotCache.Refresh
 
Range("C10").Activate
 
MenuGraphique.Hide
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
 
End Sub