Texte 20071220 en date 20/12/2007

wilfried_42

XLDnaute Barbatruc

• 20 Décembre 2007

• #2

Re : Texte 20071220 en date 20/12/2007

bonjour


si dans ta cellule c'est du texte

Code:

dim ancdate as string, nouvdate as date
ancdate = range("A1") ' en A1 se trouve la date à convertir
nouvdate= cdate(right(ancdate,2) & "/" & mid(ancdate,5,2) & "/" & left(ancdate,4))
Range("A1") = nouvdate

cordialement

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 20 Décembre 2007

• #3

Re : Texte 20071220 en date 20/12/2007

bonjour

Range("B1") = DateSerial(Left(Range("A1"), 4), Mid(Range("A1"), 5, 2), Right(Range("A1"), 2))

 

Vote positif 0 Vote négatif

Tibo

XLDnaute Barbatruc

• 20 Décembre 2007

• #4

Re : Texte 20071220 en date 20/12/2007

Bonjour,

Sans formule ni VBA :

en A1 : 20071220

sélectionner A1

Données - Convertir - Largeur fixe - Suivant - Suivant - Date - AMJ - Terminer

@+

 

Vote positif 0 Vote négatif

Jouxte

XLDnaute Occasionnel

• 20 Décembre 2007

• #5

Re : Texte 20071220 en date 20/12/2007

Bonjour à toutes et tous,

essaye ceci si ta date 20071201 est en B2:
=(GAUCHE(B2;4)&"/"&DROITE(GAUCHE(B2;6);2)&"/"&DROITE(B2;2))*1
et tu choisis Format date 00/00/0000

Bon courage

 

Vote positif 0 Vote négatif

G

Grek

XLDnaute Nouveau

• 20 Décembre 2007

• #6

Re : Texte 20071220 en date 20/12/2007

Merci pour votre aide!

Bonne journée,

 

Vote positif 0 Vote négatif