Bonjour,

J'ai des strings representants des dates dans le format "dd-mm-yy" que je souhaite passer en date pour ensuite les comparer.
Mon programme fonctionne tres bien sur mon poste qui est en setting regional france mais si je veux le faire tourner sur un poste en setting US rien ne va plus!

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Dim date 1 As String
date 1 = "18-06-12"
Dim test1 As Date
Dim test2 As Date
 
test1 = CDate(date1) 
If Application.International(xlCountrySetting) = 1 Then
    test2 = (Format(CDate(date1), "dd-mm-yy"))
endif
sur un poste US test1 et test2 donne 12/6/2018!...