conversion string en date gestion du format date US/FR

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:

---

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!...

Bonjour,

Si tu mets ta variable test2 au format Date, tu auras beau l'instancier dans un format spécifique, elle sera toujours au format Date du système.

Essais en mettant la variable test2 en type String.

Bonsoir,

visiblement tu ne nous montre pas le bon code ... !

d'où viennent tes dates ?

Hello,

Effectivement c'est un bout de code test, mes strings sont en realite les noms des onglets d'un classeur et je cherche a faire une boucle sur les onglets pour trouver l'onglet le plus recent.
Du coup passer par une string ne resoud pas mon probleme puisque je veux comparer des dates..: calim2:

Ok j'ai trouve une solution a mon probleme, peu etre pas la plus propre mais elle fonctionne quelque soit mon setting local.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub test() Dim d As String Dim res As Date Dim test As Date     d = "25-11-12" Dim i, j, k As Integer i = CInt(Left(d, 2)) ' jour k = CInt(Right(d, 2)) ' annee j = CInt(Mid(d, 4, 2)) ' mois     res = DateSerial(k, j, i)     End Sub

---

A+