XL 2010 Tri sur Date

Private Sub CommandButtonImport_Click()


Dim TextDatePlatJ As Date
Dim DateExtraction As Date
Dim ws As Object
Dim cellule As Range
Dim VentesA As String

TextDatePlatJ = InputBox("Saisir ici une date de fabrication. Format JJ/MM/AAAA")

MoisFichier = Mid(TextDatePlatJ, 4, 2)
AnneeFichier = Right(TextDatePlatJ, 4)
JourFichier = Left(TextDatePlatJ, 2)

DateExtraction = JourFichier & "/" & MoisFichier & "/" & AnneeFichier
DateFichier = AnneeFichier & " " & MoisFichier & " " & JourFichier

Path = "C:\Users\Documents\Etats\"
VentesA = "Ventes - " & DateFichier

' On désactive les macros
Application.EnableEvents = False

' Ouverture du fichier Ventes
Sheets("Plats").Visible = True
Sheets("Plats").Select

' Désactive
If ActiveSheet.AutoFilterMode Then
ActiveSheet.AutoFilterMode = False
End If


' Sélection en fonction du jour de la fabrication des plats
If DateExtraction <> TextDatePlatJ Then
MsgBox "Entrez une date valide"
Else
With Worksheets("Plats")
With .Range("C1:K" & Cells(.Rows.Count, "R").End(xlUp).Row)
.AutoFilter Field:=3, _
Criteria1:="=" & Format(TextDatePlatJ, "dd/mm/yyyy")
End With
End With

ActiveSheet.ExportAsFixedFormat xlTypePDF, Path & "\" & VentesA & ".pdf"
MsgBox "Etat généré"

'Else

'MsgBox "Entrez une date valide"
End If

End Sub

Cliquez pour agrandir...