Filtre automatique avec macro

Bonjour tout le monde ,

J'ai un petit soucis avec un fichier Excel , a chaque ouverture du fichier il faut cocher la date la plus récente sur un filtre des données , je voudrais savoir est ce c'est possible d'automatiser cette opération a chaque lancement du fichier pour avoir les données les plus récente par jour .

Merci a vous et bonne journée

Bonjour

Si tu ne joins pas ton fichier, même anonymisé, il sera difficile de te proposer une solution.

Bye !

Bonjour,

Bonjour gmb,

Sans fichier, une proposition avec des données sous forme de tableau (on est sous Excel 2013

Cdlt.

Option Explicit

Private Sub Workbook_Open()
Dim ws As Worksheet, lo As ListObject, strDate As String

    Set ws = ThisWorkbook.Worksheets("Feuil1")
    Set lo = ws.ListObjects(1)
    strDate = Format(Date, "dd/mm/yyyy")
    With lo
        If .ShowAutoFilter Then .AutoFilter.ShowAllData
        .Range.AutoFilter field:=1, Criteria1:="=" & strDate
    End With

End Sub

Merci jean-Eric pour ta proposition

Mais je pense pas que ca colle avec ce que je voulait , voila j'ai mit un fichier test en PJ

Re,

Une mise à jour de la proposition initiale.

Cdlt.