Conversion de plusieurs fichiers csv en xls

Version imprimable

08/07/2013, 15h41
Akane69

Conversion de plusieurs fichiers csv en xls

Bonjour,
j'ai plusieurs fichiers csv que je dois convertir en format xls. Cela me prendrait beaucoup de temps à les transformer un à un. J'en ai 654. Y'a t-il une maco ou une technique me permettant de convertir à la fois tous mes fichiers.
Merci d'avance pour votre aide.
08/07/2013, 15h59
EngueEngue

La fonction split est faite pour toi. Tu ouvres une instance tu splites et tu saves..

Bonjour, regarde ça

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub test()
Dim Rep As String
Dim Fichier As String
Dim NumFichier As Long
Rep = ActiveWorkbook.Path
Fichier = Dir(Rep & "\csv\*.csv")
While Fichier <> ""
    ImportCsv Rep & "\csv\" & Fichier, ActiveWorkbook.Worksheets(3)
    Fichier = Dir
Wend
End Sub
 
Sub ImportCsv(Fichier As String, Feulle As Worksheet)
Dim NumFichier As Long
Dim L As Long
Dim Tableau
Dim Text As String
L = Feulle.UsedRange.Rows.Count
If Trim("" & Feulle.Cells(L, 1)) <> "" Then L = L + 1
NumFichier = FreeFile
Open Fichier For Input As #NumFichier
While EOF(NumFichier) = False
    Line Input #NumFichier, Text
    Tableau = Split(Text, ";")
    Feulle.Range(Feulle.Cells(L, 1), Feulle.Cells(L, UBound(Tableau))) = Tableau
    L = L + 1
Wend
Close #NumFichier
 
 
End Sub

08/07/2013, 16h12
Akane69

Citation:

Envoyé par EngueEngue

La fonction split est faite pour toi. Tu ouvres une instance tu splites et tu saves..

Merci pour ton aide EngueEngue,
peux-tu être un peu plus clair par ailleurs :D. J'ai du du mal à appliquer ta méthode.
Merci
08/07/2013, 16h18
Marc-L

Bonjour,

une de mes deux autres solutions consiste dans un premier temps
à utiliser l'Enregisteur de macros pour te donner une base de code
vu qu'Excel sait bien lire des fichiers .csv, si tous les fichiers ont bien la même structure …

L'autre ressemble à celle de Robert en un peu plus rapide
(lecture d'un fichier d'un Mo en moins d'un dizième de seconde … tout dépend en fait du processeur)
mais sans fichier .csv joint pour étudier la structure, je ne l'envisage même pas …

__________________________________________________________________________________________
Question bien formulée, solution assurée ! (Robert Durupt)
08/07/2013, 16h36
Akane69

Bonjour Marc,
merci pour ton aide.
tu trouveras ci-joint quelques fichiers que l'on pourra utiliser comme exemple.
Les fichiers ont tous la même structure: mêmes nombres de colonnes, séparés par des point virgules....
08/07/2013, 16h43
Marc-L

Akane69, retire ce fichier vu qu'il y a l'air d'y avoir des données confidentielles ‼

Sinon il y a un passage à la ligne pour chaque enregistrement ?

Et par fichier .csv il doit y avoir un .xls ?
08/07/2013, 17h03
Akane69

J'ai une macro qui me permet de regrouper les fichiers dans le même classeur (puisque je dois compiler les données ensuite...) mais elle me les met systématiquement sous un format avec des points virgules comme séparateur, c'est cela que je veux eviter au fait. Dois-je donc mettre les extensions en .xls? Si c'est le cas, as-tu une idée de la manière de procéder? on a quand même + de 600 fichiers.
08/07/2013, 17h23
Marc-L

Si tu as déjà la macro qui fait l'importation !

Pour enregistrer le classeur, voir la méthode SaveAs de l'objet Workbook et notamment son argument FileFormat …

__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

__________________________________________________________________________________________
Comment les huissiers préfèrent-ils leur viande ? Bien saisie évidemment ‼