Bonjour

Je n'ai aucune expérience en Vb et j'ai besoin de faire un fichier cvs à partir d'un fichier excel. J'ai pris la solution de ouskel'n'or pour la transformation

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim x, y, DernièreLigne, DernièreColonne
    Sheets("LISTE").Activate
    Application.ScreenUpdating = False
    ActiveSheet.Range("A1").Select
    Selection.CurrentRegion.Select
    Set tbl = ActiveCell.CurrentRegion
    DernièreLigne = tbl.Rows.Count
    DernièreColonne = tbl.Columns.Count
    Cells(1, 1).Select
    Open "c:\toto.csv" For Output As #1
        For x = 1 To DernièreLigne
            For y = 1 To DernièreColonne - 1
                Print #1, Cells(x, y).Formula + ";";
            Next y
            Print #1, Cells(x, y + 1).Formula
        Next x
    Close #1
Le code marche parfaitement mais j'ai un problème de format de cellule.
Sous Excel j'ai un format qui est jj/mm/aaaa hh:mm:ss, lors de la conversion il se retrouve en texte. A cause de cela au lieu d'avoir 02/08/2005 18:22:31, j'obtiens 38566,76564.

Comment puis je faire pour obtenir correctement la date et l'heure?

merci de votre aide