Bonjour,
J'ai utiliser le code suivant et la réponse que j'ai eu est 2 "year-month-day"
Sub RegionalDateFormat()
Dim DateOrder As String
Dim DateSeparator As String
With Application
Select Case .International(xlDateOrder)
Case Is = 0
DateOrder = "month-day-year"
Case Is = 1
DateOrder = "day-month-year"
Case Is = 2
DateOrder = "year-month-day"
Case Else
DateOrder = "Error"
End Select
DateSeparator = .International(xlDateSeparator)
End With
Debug.Print "Date Order: ", DateOrder
Debug.Print "Date Separator: ", DateSeparator
End Sub