Discussion :

[Tracker2013]

En fait ça marche ...
sur la MsgBox il ne m'affiche que la date, mais quand je lui demande de mettre la variable dans une cellule, il m'affiche bien date et heure, donc c'est ok

Merci

[Invité]

Code :

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

1
2
3
nom = UCase(Dir(fichiers(i)))
nom1 = Trim(Split(nom, " ")(1) & " " & Split(Split(nom, " ")(2), ".")(0))
MsgBox Format(CDate(Replace(IIf(Len(nom1) < 6, nom1, Format(nom1, "@@/@@/@@ @")) & IIf(Right(nom1, 1) = "H", "00", ""), "H", ":")), "dd/mm/yyyy hh:mm:ss")