Discussion :

[Akane69]

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.

[EngueEngue]

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

[Invité]

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

[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)

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

[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 ?

[Akane69]

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 . J'ai du du mal à appliquer ta méthode.
Merci