XL 2016 Récupération de date qui ne sont pas reconnues

[Fab117]

Hello,
Dans mon fichier Excel, je récupère des dates qui sont inscrites selon :
Fri 08.09.17

Ce format n'est pas reconnue comme une date.
Ce que j'ai fait est de supprimer les 4 premiers caractères (merci @Ce lien n'existe plus & @phlaurent55) avec :

ActiveCell.Value = Right(ActiveCell.Value, _
Len(ActiveCell.Value) - 4)

Mais il me reste un problème. L'année étant exprimée par 2 chiffres seulement, il ne sait pas s'il s'agit de 19xx ou 20xx et ne permet pas de calcul :
https://www.hostingpics.net/viewer.php?id=474821Excel.jpg

Quelqu'un saurait-il comment réglé ce problème dans ma macro ?

Bonne journée.

Fab

 

[Chris24]

Bonjour

peut être comme ceci (en décomposé)

dte = Right(ActiveCell.Value, Len(ActiveCell.Value) - 4)

dte = CDate(Replace(dte, ".", "/"))

ActiveCell.Value= dte

Cdt

 

[Modeste geedee]

Bonsour®

Dans mon fichier Excel, je récupère des dates qui sont inscrites selon :
Fri 08.09.17

Ce format n'est pas reconnue comme une date.
Ce que j'ai fait est de supprimer les 4 premiers caractères.
Quelqu'un saurait-il comment réglé ce problème dans ma macro ?

avant toutes manipulations :
Considerer la colonne considérée en Format Texte (si elle est en standard, forcer en texte)
La suppression des 4 premiers caractères devrait dans ce cas ne pas avoir d'impact sur la partie restante contenant des chiffres.
les dates sont supposées être au format US , i.e : MJA
Sélectionner la colonne
Menu Données > Convertir
à l'étape 3 choisir le format Lu : MJA
OK
la conversion devrait s'effectuer intégralement sans problème

 

[M12]

Bonjour à tous

A voir

Sub test()
ActiveCell.Value = Mid(ActiveCell.Value, 8, 2) & "-" & Mid(ActiveCell.Value, 5, 2) & "-20" & Mid(ActiveCell.Value, 11, 2)
End Sub

 

[Fab117]

Hello,
Merci à tous d'avoir travaillé sur mon problème.
J'ai utilisé la ligne de code de M12 qui fonctionne parfaitement.

Bon après-midi.

Fab

 

[Chris24]

juste un peu plus court en compilant le code

ActiveCell = CDate(Replace(Right(ActiveCell.Value, Len(ActiveCell.Value) - 4), ".", "/"))

Cdt

 

[cheribibi33]

Bonjour,
Comment utiliser le code de M12 ou Chris24 sur plusieurs cellules en même temps. (exemple A2:A1000)
Merci