Bienvenue! Identification Créer un nouveau profil

Recherche avancée

Convertir une chaîne de caratère en date

20/09/07 16:35
Bonjour,

J'ai des dates sous la forme 20070112 (AAAAMMJJ) que je souhaite traiter. J'ai créé une macro en VBA (cf. ci-dessous) pour convertir cette date sous la forme JJ/MM/AAAA mais cela ne fonctionne pas dans tous les cas. Par exemple

20070112 renvoit 01/12/2007 -> pas bon ;-(

alors que

20070115 renvoit 15/01/2007 -> bon :-)

----------------------
Sub change_date()
Dim i As Integer
Dim j As String
Dim m As String
Dim a As String
Dim str As String

Dim strtmp As String

For i = 1 To 20000
strtmp = Cells(i, 5).Value
a = Mid(strtmp, 1, 4)
m = Mid(strtmp, 5, 2)
j = Mid(strtmp, 7, 2)
str = j + "/" + m + "/" + a
Feuil1.Cells(i, 13).Value = str
Next i
End Sub
----------------------

Pouvez-vous m'aiguiller s'il vous plaît.
SujetAuteurEnvoyé le

Convertir une chaîne de caratère en date

elektrovizo20/09/07 16:35

Re: Convertir une chaîne de caratère en date

Hervé Inisan23/09/07 12:33

Seuls les utilisateurs enregistrés peuvent poster des messages dans ce forum.

Cliquez ici pour vous connecter