Format date
d
Bonjour,
je voudrai de l'aide sur une fonction qui me transforme ma date 200202011841 en ===>2002/02/02 18h:41
voici mon code
Dim MyDate, MyDay, MyMonth, MyYear, MyHour, MyMinute, MySecond As String
Dim row As Long
row = 7
Do While Cells(row, 5).Value <> ""
MyDate = CStr(Cells(row, 5))
If Len(MyDate) = 15 Then
MyYear = Left(MyDate, 4)
MyMonth = Mid(MyDate, 5, 2)
MyDay = Mid(MyDate, 7, 2)
Cells(row, 5).NumberFormat = "yyyy/mm/dd"
Cells(row, 5).Value = CDate(MyYear & "/" & MyMonth & "/" & MyDay)
End If
row = row + 1
LoopA
Bonjour,
un essai en apportant cette modification:
If Len(MyDate) = 12 Then
.../...
MyDay = Mid(MyDate, 7, 2)
MyHeure = CInt(Mid(MyDate, 9, 2))
MyMin = CInt(Mid(MyDate, 11, 2))
Cells(row, 5).NumberFormat = "yyyy/mm/dd" ' adapter le format pour faire afficher l'heure
Cells(row, 5).Value = CDate(MyYear & "/" & MyMonth & "/" & MyDay) + TimeSerial(MyHeure, MyMin, 0)
.../...A+