conversion csv - xls d'un repertoire complet Résolu

Question

Bonjour à tous,
j'ai une centaine de fichiers csv, que je souhaite convertir en xls (avec comme separateur les ; ).
j'ai trouvé un logiciel sympas: converterXLS
mais c'est logiciel à installé, et sur mon pc du boulot, je n'ai pas les droit administrateur pour.

existe t il quelque chose avec juste un executable?
(ou une autre méthode)

merci

UsulArrakis · Accepted Answer

Salut
tu veux les convertir tous en une seule fois ou un par un ?
si un par un tu le fais à partir d'excel : ouvrir le csv avec excel puis menu Données / convertir

pour le logiciel que tu as trouvé essaye de l'installer ailleurs que dans ProgramFiles

beneton · Answer

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

UsulArrakis · Answer

tu as le lien pour ton logiciel que je vérifie qu'il fait bien ce que tu souhaites

beneton · Answer

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

lermite222 · Answer

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+

beneton · Answer

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

beneton · Answer

malheureusement, ca va m'arriver souvent

lermite222 · Answer

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

Je n'ai pas mis de sélection chemin, je te laisse le soins de le mettre en manuel.
Je te conseil aussi de mettre un point d'arret pour ne faire qu'un fichier à la fois pour les tests.
De stoper après le premier et de bien controller que c'est OK (chez moi c'est nickel mais ont ne sait jamais)
Je n'ai pas prévu non plus d'éliminer le fichier cvs, dans un premier temps c'est plus prudent.
Mais il n'y aurais que 2 lignes à ajouter pour les supprimer en automatique.
Pour fichier cvs avec séparateur = ","
Tu dis
A+

lermite222 · Answer

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

beneton · Answer

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

beneton · Answer

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 .

lermite222 · Answer

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

beneton · Answer

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

lermite222 · Answer

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.

lermite222 · Answer

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.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

beneton · Answer

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 : https://www.cjoint.com/?copwYLpuNb

lermite222 · Answer

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
Bien entendu ça va durer un peu plus longtemps.
tu dis...

lermite222 · Answer

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

beneton · Answer

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

lermite222 · Answer

Je peu lire ton fichier de la façon que tu veux mais tu ne répond pas à mes questions à savoir,
Quel est le but ? Faire des opérations sur les données ? auquel cas, l'exemple que tu met sur Cjoint ne le permet pas.
Ou bien, ce sont les données en texte qui t'intéresse ?
En fonction de ta réponse je te passerait la macros finale.

beneton · Answer

en gros, se fichier est un historique des valeur de process d'une chaufferrie et du reseau urbain.
se sont les temperatures , pression, valeur d'ouverture de vanne,ect... 
on s'en sert pour faire des courbe, vérifier qu'il n'y a pas eu de depassement, faire des calcul, etc.
je pense qu'il faut donc le format adapté. date, et valeur. pour les valeurs, 2 chiffre aprés la virgule suffit. pour la date, on peut s'arrété à la seconde prés.
j'espere avoir répondu à tes question. si tu en a d'autre n'hésite pas

edit: j'ai oublié de te dire, j'utilise exel 2007 chez moi. je ne sais pas si sa a son importance

lermite222 · Answer

Je ne pense pas qu'il y aura un problème avec excel 2007
J'ai contourner ton problème en faisant une appli qui laisse tout les choix possibles
Je l'ai testée et c'est OK
NB: Pour la colonne des dates si tu sélectionne Nombre ou Standard il faut formatter les cellules
En Standard les nombres sont afficher avec les décimales d'origine
En numérique ils sont tous avec 3 décimales.
Dés que j'ai terminer la rédaction de l'astuce je te passe le lien.

beneton · Answer

ok, merci. j'attends ca avec impatience.

beneton · Answer

c'est présque tout nickel. bonne idée le coup de la boite de dialogue. (j'utilise la conversion numérique)

mais la premier colone reste au format texte avec la valeur "39811" au lieu d'une date

beneton · Answer

ca marche pas. ta conversion du début me modifie toute la colonne à la méme date: exemple 29/12/2008  00:00:00 sur toute la colonne

lermite222 · Answer

Tu doit employer le format Standard, quand il y a des dates avec des heures c'est du type 39811,1253722569
et en format numérique tu n'a plus que 3 décimales.
Et ajouter les 2 lignes ci-dessous avant le With
        Cells.NumberFormat = "0.000"
        Columns("A:A").NumberFormat = "dd mmm yyyy hh:mm:ss"
Mais en principe, c'est chacun qui doit adapter suivant ses besoins, en cherchant un peu tu aurais trouver
A+

beneton · Answer

j'avais trouvé, mais ca me fait toujours la méme date sur les 8000lignes

lermite222 · Answer

Comprend pas, je fait exactement...
Sélection Standard
et ajouter les 2 lignes.
résultat
https://www.cjoint.com/?cqjEb6FVPa
a+
EDIT, il y a autre chose qui cloche, c'est le format pour sauver, j'ai rectifier sur la démo
2 lignes à modifier (ou a ajouter une partie)
ActiveWorkbook.SaveAs Filename:=Chemin & Fichier, FileFormat:=xlExcel5

beneton · Answer

oui, merci, mais ca résoud toujours pas le probléme de ma colone où la date et l'heure sont toute les méme alors qu'entre chaque ligne y devrai y avoir 10 seconde de plus a chaque fois.
en plus, quand j'ouvre le fichier converti et sauvegardé, il y a un message "se fichier n'a pas le format correct, voulais vous quand méme ouvrir?" je mets oui, et je me retrouve avec le méme fichier qu'au départ(tout en une colonne, comme s'il n'a pas été converti)

lermite222 · Answer

OK, sur le 2007 c'est différent, j'ai du tester pour trouver.
En fait le 2007 fait directement la convertion (sans rien signaler).
Donc faut modifier la macros, elle ne te servira plus que pour convertir tout le répertoir et faire la mise en forme des colonnes. (mais plus pour convertir csv/xls qui est pris en charge directement par Excel2007)

'Convertir un fichier cvs en xls  (EXCEL 2007) .
Sub ConvertiCvsXls()
Dim TB
Dim Lig As Long, i As Integer, AncNom As String
    AncNom = Fichier
    Workbooks.Open Filename:=Chemin & Fichier
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    With ActiveSheet
        Cells.NumberFormat = "0.000"
        Columns("A:A").NumberFormat = "dd mmm yyyy hh:mm:ss"
    End With
    If SauveXLS Then
        Fichier = Left(Fichier, Len(Fichier) - 3) & "xls"
        If Dir(Chemin & Fichier) = "" Then
            'le fichier xls n'existe pas encore
        ActiveWorkbook.SaveAs Filename:=Chemin & Fichier, FileFormat:= _
            xlOpenXMLWorkbookMacroEnabled
            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 Filename:=Chemin & Fichier, FileFormat:= _
            xlOpenXMLWorkbookMacroEnabled
                Workbooks(Fichier).Close SaveChanges:=False
                Application.DisplayAlerts = True
            ElseIf Tous Then
                'Eviter la surcharge de classeur si tous les fichiers
                Workbooks(AncNom).Close SaveChanges:=False
            Else
                Application.DisplayAlerts = True
                Application.ScreenUpdating = True
                Exit Sub
            End If
        End If
    End If
    If SuppFichier Then
        'supprime le fichier cvs
        Kill Chemin & AncNom
    End If
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub
Tu dis, et en fonction de ta réponse je modifiérais la démo.

beneton · Answer

avant l'ouverture de l'explorateur pour choisir un fichier, il y a un bug sur la ligne: 
If SelectionFichier() Then
            ConvertiCvsXls

je sais pas si s'est parce que je mal inserré.

lermite222 · Answer

Suite à ton MP... RELIRE MON POSTE 35 SVP.

beneton · Answer

j'ai bien lu et compris. mais ton script ne fonctionne pas chez moi. de plus y va y avoir probléme: j'ai 2 poste a mon boulot où je suis suceptible de faire les conversion et il y en a un avec ecxel 2007 et l'autre 2003

je suis entrain de désespérer

lermite222 · Answer

Bon désespère pas.. :-)
L'erreur que tu signale ne peut être due qu'a une maivaise insertion de la fonction.
Tu devais la mettre A LA PLACE DE CELLE EXISTANTE, cad d'abord supprimé l'existente et ENSUITE coller la nouvelle à la même place.(dans le même module)
NB: quand il y a une erreur signalée c'est important de donner sont N° et le libellé de l'erreur.
J'ai tester sur 2007 et la fonction ci dessus fonctionne impec.
La version dans la démo fonctionne sur le 2000
Tu veux quoi?
Une version unique qui prend en compte les différences (possible, je l'avais fait mais je l'ai supprimé)
Ou bien une version pour 2007 et une version pour 2000>2003
?? tu dis

beneton · Answer

si j'ai 2 version qui fonctionne ca me va. je reteste le tout, et je te dis(bien que pour la version exel 2003 se sera pour jeudi). merci

beneton · Answer

salut!
j'ai testé sur exel2003, la conversion fonction correctement (en fesant les modif que tu as dit post 33)
mais la sauvegarde de tout le dossier ne fonctionne pas. il manque la syntaxe "/" sur le chemin
http://cjoint.com/data/cvnTqLFP4b.htm
je pense que c'est une bricole, mais je ne sais pas où.

lermite222 · Answer

il n'est pas prévu de lire dans un répertoir et de sauver dans un autre.
C'est ça que tu veux faire ?

beneton · Answer

non, je veux sauvegarder dans le méme repertoire

lermite222 · Answer

Tu a raison, vu que je n'avais pas plusieurs csv j'ai pas tester cette partie.
dans la sub ConvertiRep
faut ajouter une ligne
        If LCase(Right(f1.Name, 3)) = Ext Then
            Fichier = f1.Name
            ConvertiCvsXls
        End If
Note que je comprend pas, sur la démo il y a cette ligne !

beneton · Answer

non, elle y est déja cette ligne
--------------------------------------------------------
'Lire tout les fichiers du répertoir spécifié.
Sub ConvertiRep()
Dim fs, F, f1, s, sf
Dim i As Long, Fin As Long
'-----------------------------------------------------------
    'Sélectionner le répertoir
    SelectionRep
'-----------------------------------------------------------
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set F = fs.GetFolder(Chemin)
    Set sf = F.Files
    For Each f1 In sf
        If LCase(Right(f1.Name, 3)) = Ext Then
            Fichier = f1.Name
            ConvertiCvsXls
        End If
    Next
End Sub

lermite222 · Answer

En principe le "slach est compris mais je constate que dans "Mes documents..." il manque
ajouter la ligne
Sub ConvertiCvsXls()
Dim TB
Dim Lig As Long, i As Integer, AncNom As String
    AncNom = Fichier
    If Right(Chemin, 1) <> "\" Then Chemin = Chemin & "\"
Ca devrait aller.

beneton · Answer

c'est super! ca marche aussi bien sur exel2003 que 2007
ca tombe bien j'ai  240 fichier à convertir pour demain
hop, 2min et c'est fini.

merci encore

lermite222 · Answer

Content pour toi qu'ont y soit finalement parvenu.
A+

Conversion csv -> xls d'un repertoire complet

43 réponses

Votre réponse

Discussions similaires

Newsletters