Discussion :

[LaPanic]

Bonjour tlm,
je travaille sur un fichier que j'importe a partir d'un interface html et qui inverse le format des dates
le format sur l'interface est de "mm/jj/aa"et il est importé sur excel en format "jj/mm/aa" donc dans les cellules xls ou les "mm" sont =< 12 celles ci sont concidérées comme date mais elle sont inversées (permutation jj et mm) sinon elles sont mises au format texte

voici un exemple dans le fichier joint.

Merci pour votre aide

[Michel_M]

bonjour lapanic

essaies cette fonction (il faut que tes importations soient au format date comme ca l'est sur ta pièce jointe)

Code :

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

1
2
3
4
5
6
 
Function convert_date(cellule As Date)
 
    convert_date = DateSerial(Right(cellule, 4), Left(cellule, 2), Mid(cellule, 4, 2))
 
End Function

[LaPanic]

slt,
je n'ai pas su appliquer ce code merci de m'eclairer sur ceci .

[LaPanic]

Merci Michel_M
je l'ai essayé et la fonction me met a jour les dates inversées en voila un probleme de reglé
y'aurait-il pas un moyen de transformer les cellules en format text pour pouvoir obtenir les bonnes dates
merci pour votre precieuse aide

[Michel_M]

re,

Ci joint autre fonction qui semble marcher que l'importation soit en date ou texte. Le mois doit être sous la forme de chiffre (9, 09, 12...)

Code :

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

1
2
3
4
5
 
Function convertir_date(cellule As Variant) As Date
tablo = Split(cellule, "/")
    convertir_date = DateSerial(tablo(2), tablo(0), tablo(1))
End Function

tu me dis si c'est OK

[LaPanic]

Merci Michel_M
ca marche tres bien merci encore une fois