Discussion :

[blacklolou]

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

[jfontaine]

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.

[SfJ5Rpw8]

Bonsoir,

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

d'où viennent tes dates ?

[blacklolou]

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:

[blacklolou]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+