Macro: filtre entre 2 dates d'InputBox

Bonjour,

Depuis un certain moment je reste bloqué sur le format de la date dans VBA qui est américain.

J'ai recherché sur le net des solutions mais ne fonctionnent pas.

J'ai 2 inputbox pour une date début et fin.

Sachant que ces dates se prérenseignent automatiquement par le début et la fin du mois précédent mais qui peuvent être changées, d'où l'inputbox.

Sauf que mes dates apparaissent en format anglais (mm/dd/yyyy) dans l'inputbox au lieu d'avoir le format français dd/mm/yyyy.

Voici le code que j'ai (et les solutions que j'ai essayé en commentaire mais qui ne fonctionnent toujours) :

Sub DateAutomatic()
Dim StartDate As String
Dim EndDate As String
Dim lines As String
Dim FirstDay As Date
Dim LastDay As Date

'format(dateserial(Year(Date), Month(Date), 0),"dd/mm/yyyy")

LastDay = DateSerial(Year(Date), Month(Date), 0)
FirstDay = LastDay - Day(LastDay) + 1

'StartDate = Format(CDate(StartDate), "dd/mm/yyyy")
StartDate = Application.InputBox("Enter Start Date" & vbNewLine & "Valid Format - mm/dd/yyyy", , FirstDay)
'StartDate = Format(StartDate, "dd/mmm/yyyy")

'EndDate = Format(CDate(EndDate), "dd/mm/yyyy")
EndDate = Application.InputBox("Enter End Date" & vbNewLine & "Valid Format - dd/mm/yyyy", , LastDay)
'EndDate = Format(EndDate, "dd/mmm/yyyy")

Selection.AutoFilter
ActiveSheet.Range("$A$1:U65536").AutoFilter Field:=14, Criteria1:= _
">=" & StartDate, Operator:=xlAnd, Criteria2:="<=" & EndDate
'ActiveSheet.Range("$A$1:U65536" & lines).SpecialCells _
'(xlCellTypeVisible).EntireRow.Copy

J'obtiens ceci :

Au lieu d'obtenir: 01/06/2015

Par contre, si je laisse les dates telles qu'elles sont (donc en format anglais), le filtre fonctionne.

Merci de votre aide.

C'est résolu! Tout simplement mettre en format anglais..

StartDate = Format(InputBox("Enter Start Date" & vbNewLine & "Valid Format - dd/mm/yyyy", , FirstDay), "mm/dd/yyyy")
EndDate = Format(InputBox("Enter End Date" & vbNewLine & "Valid Format - dd/mm/yyyy", , LastDay), "mm/dd/yyyy")