[Excell] [Access] Format date

pour excel
la cellule(A1) contenant 20041012 doit être au format personnalisé aaaammjj (à créer car n'existe pas dans excel)
la cellule A2 = A1 mais la mettre au format jj/mm/aaaa
la transformation devrait régler ton pb pour import dans access
sinon voir dans access si on peut aussi créer des formats date personnalisés

Usul d'Arrakis /
Serial_dreamer

J'ai une proposition, peut-être pas très élégante...

Private Sub ...
Dim année, mois, jour, Y As String

année = Left([ChampContenantLaDate], 4)
Y = Left([ChampContenantLaDate], 6)
mois = Right(Y, 2)
jour = Right([ChampContenantLaDate], 2)

Champ de destination = [jour] & [mois] & [année]

End Sub

Je l'ai essayé dans access dans un formulaire comportant deux champs textes et ça marche.

Je ne suis pas à l'aise aec les modules...

Essaie éventellement dans des conditions similaires pour tester le code.

Bonjour,
Si ta valeur 20041012 est en cellule A1,
crée la formule suivante en B1 :
=CNUM(STXT(A1;7;2)&"/"&STXT(A1;5;2)&"/"&GAUCHE(A1;4))
et bien sûr, formatte la cellule B1 à ton format date de ton choix, par Format, Cellule, Date ...
Salut !!!

Bonjour,
Si ta valeur 20041012 est en cellule A1,
crée la formule suivante en B1 :
=CNUM(STXT(A1;7;2)&"/"&STXT(A1;5;2)&"/"&GAUCHE(A1;4))
et bien sûr, formatte la cellule B1 à ton format date de ton choix, par Format, Cellule, Date ...
Salut !!!