Je veux en une seul fois. y a quant méme 100 fichiers et ca arrive souvent.

j'ai essayé de l'installé ayeur que dans program files, mais il met des fichier dll dans system32 et c'est la que ca coince

Tu as le lien pour ton logiciel que je vérifie qu'il fait bien ce que tu souhaites
(_Usul d'Arrakis
    Serial_Dreamer_)

Je l'ai testé chez moi, et il marche bien. voici le lien: http://www.convert-files.com/Download/CX.EXE

Bonjour,
Normalement quand tu ouvre un fichier csv avec excel il n'y a besoin de rien d'autre. Suffit juste de le sauver sous.. avec extention xls
Il y à moyen de faire ça facilement avec une petite macro VBA
A+ L'expérience instruit plus sûrement que le conseil. (André G­ide)  
Si tu te cogne à un pot et que ça sonne creux, c'est pas for­cément le pot qui est vide. ;-)(Confucius)

Salut! le probléme c'est qu'il garde le contenu telquel, il ne fait pas les separations des ;
deplus, il faut inserrer la macro dans chaque fichier. c'est un peu lourd

Malheureusement, ca va m'arriver souvent

OK..... J'ai trouver un système.
Tu ouvre un classeur (moi je l'ai nommer "EssaisCvsXls.xls" mais pas obligé
Dans un module public ce code

Sub Recupfile()
Dim fs, F, f1, s, sf
Dim Ext As String, Chemin As String
Dim i As Long, Fin As Long
    Ext = "csv"
    'Initialiser le chemin en manuel
    Chemin = "C:\"
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set F = fs.GetFolder(Chemin)
    Set sf = F.Files
    For Each f1 In sf
        'Debug.Print f1.Name
        If LCase(Right(f1.Name, 3)) = Ext Then
            ConvertiCvsXls Chemin, f1.Name
        End If
    Next
End Sub

Sub ConvertiCvsXls(Chemin As String, Fichier As String)
Dim TB
Dim Lig As Long, i As Integer, NvNom As String
    Workbooks.Open Filename:=Chemin & Fichier
    With ActiveSheet
        For Lig = 1 To Range("A65536").End(xlUp).Row
            TB = Split(.Cells(Lig, 1), ",")
            For i = 0 To UBound(TB) - 1
                .Cells(Lig, i + 1) = TB(i)
            Next i
        Next Lig
    End With
   Fichier = Left(Fichier, Len(Fichier) - 3) & "xls"
    ActiveWorkbook.SaveAs Chemin & Fichier
    Workbooks(Fichier).Close SaveChanges:=False
End Sub

J'ai pas penser de te dire,
La macro est valable pour un nombre de colonne indéterminé mais si tes fichiers ont tous la même structure il y a moyen de faire plus rapide L'expérience instruit plus sûrement que le conseil. (André G­ide)  
Si tu te cogne à un pot et que ça sonne creux, c'est pas for­cément le pot qui est vide. ;-)(Confucius)

Y a qu'un truc qui fonctionne pas, c'est le separateur ",".
j'ai le fichier xls mais avec le méme contenu que le csv. tout en une colonne

edit: je vient de m'apercevoire que sur chaque ligne, il me manque les info jusqu'a la premier virgule

exemple:
csv=
29-DEC-2008 03:00:02.163,100.0,100.0,100.0,49.668750000000003,49.668750000000003,41.5,41.5,0.0,1.0,98.78125,67.534374999999997,67.534374999999997,65.0,54.450000000000003,0.0,15.7125,10.821875,13.4,100.0,0.0,9.6000000000000014,31.900000000000002,18.600000000000001,17.5,0

xls= 00:00.0,100,100,100,49.66875,49.66875,41.5,41.5,0,1,98.78125,67.534375,67.534375,65,54.45,0,15.7125,10.821875,13.4,100,0,9.6,31.9,18.6,17.5,0

Ok,
pour que le fichier soit moin volumineux, je l'ai réduit à 1700ligne, mais normalement, il y en à 10000
http://cjoint.com/data/cnupaFIZoj.htm

es ce que, a tout hasard, tu connaitrait la une ligne de commande pour le chemin? exemple, mettre le chemin de l'emplacement du fichier convertircsvxls .

HaaaaaaaHa , beh ça fonctionne impec.
FAUDRAIT JUSTE VOIR A ELARGIR LES COLONNES !!!!!

L'expérience instruit plus sûrement que le conseil. (André G­ide)  
Si tu te cogne à un pot et que ça sonne creux, c'est pas for­cément le pot qui est vide. ;-)(Confucius)

J'ai du me planter quelque par alors car ca ne marche pas de mon cotés

Je suis occupé à rendre l'appli automatique et quand ce serra terminer je la mettrais dans une astuce.
Je te communiquerais le lien.
Pour info : J'ai trouvé le problème sur ton fichier, le séparateur n'est pas la virgule (comme normal) mais le point.
Dans la ligne
TB = Split(.Cells(Lig, 1), ".")
Remplace la virgule par un point et tu refait un essais, tu va voir ça va.
Attention, par exemple pour tes dates il te manque les secondes mais il faudra formater les colonnes suivant ce que tu veux. L'expérience instruit plus sûrement que le conseil. (André Gide)  
Si tu te cogne à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)

Il y a plein d'erreur sur ton fichier...
1°) le séparateur de la 1ère ligne est la virgule et les suivantes c'est le point. Mais bon, s'il sont tous comme ça je pourrais encore y remédier.
2°) il y a des nombres... tel que 668750000000003,49. et 668750000000003,41 ?? aucun séparateur
or sur d'autres lignes dans la même colonne
40625,49. et 40625,41
Que viennent faires tout ces zéros ? sans séparateur ? c'est juste ?
pour info..
29-DEC-2008 03:00:02.163,100.0,100.0,100.0,49.668750000000003,49.6687500­00000003,41.
5,41.5,0.0,1.0,98.78125,67.534374999999997,67.53437499999999­7,65.0,54.450000000000003,0.
0,15.7125,10.821875,13.4,100.0,0.0,9.6000000000000014,31.
900000000000002,18.600000000000001,17.5,0

L'expérience instruit plus sûrement que le conseil. (André G­ide)  
Si tu te cogne à un pot et que ça sonne creux, c'est pas for­cément le pot qui est vide. ;-)(Confucius)

Non, les separteur son que les , les points sont pour les virgule des nombres à 1millionaime de décimale,
pour que tu comprenne, j'ai le fichier xls converti correct : http://cjoint.com/?copwYLpuNb

Je crois que j'ai trouver la spécificité de ton fichier.
Le séparateur est bien la virgule SAUF après la date ou c'est un point !!!!!!!
La sub est un peu plus compliquée et ne pourra servir que pour tes fichiers, normalement le séparateur est le même pour tout le fichier.
Remplace la macro ConvertiCvsXls
par celle-ci

Sub ConvertiCvsXlsSPECIAL()
Dim TB, PR, Txt As String
Dim Lig As Long, i As Integer, AncNom As String
    AncNom = Fichier
    Workbooks.Open Filename:=Chemin & Fichier
    With ActiveSheet
        For Lig = 1 To Range("A65536").End(xlUp).Row
            If Lig > 1 Then
                 PR = Split(.Cells(Lig, 1), ".")
                TB = Split(Mid(.Cells(Lig, 1), Len(PR(0)) + 2), ",")
            Else
                 PR = Split(.Cells(Lig, 1), ",")
                TB = Split(Mid(.Cells(Lig, 1), Len(PR(0)) + 2), ",")
            End If
            .Cells(Lig, 1) = PR(0)
            For i = 1 To UBound(TB) - 1
                .Cells(Lig, i + 1) = TB(i - 1)
            Next i
        Next Lig
    End With
    Fichier = Left(Fichier, Len(Fichier) - 3) & "xls"
    
    If Dir(Chemin & Fichier) = "" Then
        'le fichier xls n'existe pas encore
        ActiveWorkbook.SaveAs Chemin & Fichier
        Workbooks(Fichier).Close SaveChanges:=False
    Else
        'le fichier xls existe, voir si ont l'écrase sans tomber en erreur.
        If MsgBox("Le fichier " & Fichier & " existe déjà" & Chr(13) _
        & "Faut-il l'écraser ?", vbQuestion + vbYesNo, "Ecraser fichier") = 6 Then
            Application.DisplayAlerts = False
            ActiveWorkbook.SaveAs Chemin & Fichier
            Workbooks(Fichier).Close SaveChanges:=False
            Application.DisplayAlerts = True
        Else
            Workbooks(AncNom).Close SaveChanges:=False
        End If
    End If
    If SuppFichier Then
        'supprime le fichier cvs
        Kill Chemin & AncNom
    End If
End Sub

Autre constatations,
Excel ne prend pas de format date avec des millièmes de seconde, donc ça doit rester en texte
Même en format Double, excel ne prend pas les millionn!ème de milliardième
49.306,250,000,000,006 ??
maximum sur excel...
49,493.750.000.000.6 L'expérience instruit plus sûrement que le conseil. (André G­ide)  
Si tu te cogne à un pot et que ça sonne creux, c'est pas for­cément le pot qui est vide. ;-)(Confucius)

Je suis pas au milliardieme de seconde prés XD

ton script ne fonctionne pas, j'ai fait un imprime ecran de l'erreur et du débogueur: http://cjoint.com/data/cotgk0Ot4d.htm