Salut, Je reviens à la charge suite à un pb que j'ai déja évoqué sur le forum de nombreuse fois et qui reste malheuresement toujours sans réponse. Je résume mon prog VB: Je recupère un report.csv provenant d'une base de donnée (fichier contenant des valeurs de champs). Ce report contient des dates en format de date francais. Ensuite je convertis le report.csv pour mettre les données sous une forme de tableau. Ensuite je fais une copie de ce tableau sur une feuille excel d'un autre fichier excel puis je sauvegarde ce fichier excel. Enfin j'ai du effectué une macro qui teste les contenu des cellules contenant des dates et les colories selon différent critères. Et la je suis tombé sur un pb qui me bloque depui plusieurs jours!!!! Toutes les dates apparaissent dans le bon ordre sur le tableau excel (quand on visualise avec excel): j'entend par bon odre le bon format, à savoir pour moi: 01/08/05 ( le 1er aout 2005) mais qd on clique sur la cellule ou qu'on regarde dans la barre de formules c'est le drame: la date se présente sous la forme: 08/01/2005 18:00:00 D'ou un pb dans mon programme car mon traitement sur les dates est erroné puisque les jours et les mois sont inversés!!! (dans ma fonction VB j'utilise des trucs du type: Worksheets("Résultats de comparaison").Cells(i, j).Value et evidemment ca me prend ce qu'il ya dans la barre des formules) J'ai essayé des trucs du genre dat = Format(dat, "dd/mm/yyyy") mais ca me donne tj le mopis en premier, je comprend tj pas pourkoi!! Je suis vraiment désespéré, si quelqu'un pouvait me sortir de cette galère ca serait vraiment bien. Merci d'avance, Pier0 Rq: Personnelement je pense que le pb c'est que vb est en anglais donc format de date anglais alors que dans le report.csv les dates sont en francais. Sans doute excel doit "croire" dans les dates de mon ex que dans 01/08/05: 01 est le mois 08 le jours d'ou une soultion consisterait à pouvoir inverser les dates et les jours!!!!

Madate = "08/01/05"
Madate = Mid(Madate, 4, 2) & "/" & Mid(Madate, 1, 2) & "/" & Mid(Madate, 7, 2)


Couscous

Merci mais ya des cas ou ca ne marche tj pas @+ Pier0

et si, dans le .csv, tu convertissais les mois en lettres... ??!
PCPT

Je peux pas convertir les mois en lettre dans le .csv car ya 1 tonne de ligne donc trop long (mon program doit tourner le plus vite possible). Merci qd mem car c t 1 bonne idée. Pier0

Salut,
As-tu vérifié tes paramètres régionaux ? Dans l'onglet Date - Style de date court tu as quoi ?

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Salut,
    j'ai eu un problème semblable.  J'ai utilisé la fonction 'formatDateTime'.

voici mon exemple avec VBA:

La cellule "A7" affiche 1-08-05, ce qui signifie 1 août 2005.  Dans la barre de formule il m'indique 2005-08-01.  Pour avoir le jour, le mois et l'année j'ai utilisé les formules suivantes.

'Affiche le jour
Sheets("Feuil1").Range("c1").Formula = Day(FormatDateTime(Sheets("Feuil1").Range("a7").Formula, vbLongDate))
'Affiche le mois
Sheets("Feuil1").Range("c2").Formula = Month(FormatDateTime(Sheets("Feuil1").Range("a7").Formula, vbLongDate))
'Affiche l'année
Sheets("Feuil1").Range("c3").Formula = Year(FormatDateTime(Sheets("Feuil1").Range("a7").Formula, vbLongDate))

Si tu mets vbShortDate à la place de vbLongDate, ça ne fonctionne pas. (Dans mon cas)