Bonjour a tous,

J'ai une colonne de dates ou les dates sont (apres import d'un fichier texte) ecrites selon deux formats:
- soit 16/01/2008 00:00:00
- soit 38413

Mon but est de reformater via vba pour arriver a un format du type 16-Jan-08.

J'ai un début de code pour le premier cas:

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
18
     Dim cell As Range, jour As String, mois As String, an As String
For Each cell In Range("A2:A" & Range("A65536").End(xlUp).Row)
 
If Len(cell) = 19 Then
 
 jour = Val(Left(cell, 2))
     mois = Val(Mid(cell, 5, 2))
     an = Val(Mid(cell, 7, 4))
     cell = Format(DateSerial(an, mois, jour), "dd-mmm-yyyy")
 
End If
 
If Len(cell) = 5 Then
 
End If
 
 
Next
qui ne marche meme pas pour le premier type...

et je ne vois pas comment faire pour l'autre format

Pourriez-vous me guider?
Merci d'avance !