Filtrer automatiquement l'outils chronologie sur la date max

Bonjour à tous,

Je bloque actuellement sur une macro,

je souhaite filtrer automatiquement l'outil chronologie d'un GCD sur la date max présente dans la cellule E3 afin de générer chaque jour le graphique PDF correspondant à la deniere date.

Ma cellule E3 renvoie la date max de ma série de données ( =MAX( ) )

Voici mon bout de code:

ActiveWorkbook.SlicerCaches("ChronologieNative_date_import").TimelineState. _

SetFilterDateRange "07/11/2016", "07/11/2016"

L'idée est de remplacer le "07/11/2016" par la cellule E3

Auriez-vous une idée à me proposer?

Merci d'avance

Bonjour,

essaie ainsi :

Dim startDate As Date, endDate As Date
startDate = Cells(X): endDate = Cells(Y)
ActiveWorkbook.SlicerCaches("ChronologieNative_date_import").TimelineState. _
            SetFilterDateRange startDate, endDate

Bonjour Jean-Eric

Afin d'adapter ta macro, j'ai remplacé les Cells par des Range ( ). Value

Cependant lors de l'exécution de la macro il ne se passe rien, le filter reste inchangé.

Sub chrono()

Dim startDate As Date, endDate As Date
startDate = Range("E3").Value: endDate = Range("E3").Value
ActiveWorkbook.SlicerCaches("ChronologieNative_date_import").TimelineState. _
            SetFilterDateRange startDate, endDate

End Sub

Peux-tu m'en dire plus?

Merci d'avance

Floyd

RE,

Non, mais il est possible que startDate = endDate pose problème.

Sinon, envoie un fichier, sans garantie de réponse adaptée.

Cdlt.

Re,

Ta macro fonctionne parfaitement, j'avais juste un problème de format dans mes cellules.

le problème est résolu

Merci encore