Ventiler mon fichier .csv en plusieurs fichiers .csv

[Viparis]

Bonjour,

Je possède un fichier CSV d'une colonne qui contient plus de 5000 lignes et je voudrais créer des nouveaux fichiers CSV avec 249 lignes max à chaque fois dans chaque fichiers. Je n'arrive pas à trouver de solutions à part le faire à la main.. autant dire que c'est un travail pire que laborieux.

Merci d'avance à ceux qui m'aideront !

Bonne journée 🙂
ViParis

 

[Staple1600]

Re : Ventiler mon fichier .csv en plusieurs fichiers .csv

Bonsoir à tous

Viparis (bienvenue sur le forum)
Voici une façon de faire ce que tu souhaites (ou presque)
NB:Test OK sur mon PC
Code VB:
Sub Sheets2CSV()
Dim dl&, i&, p As Range, sPath$
sPath = "C:\Temp\" 'ici adapte le nom du répertoire
dl = Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
'j'ai mis 25 pour mon test
'donc remplace le 25 par 250 dans les deux lignes suivantes
For i = 1 To dl Step 25
Set p = Cells(i, 1).Resize(25)
Workbooks.Add xlWBATWorksheet
p.Copy ActiveWorkbook.Sheets(1).Range("A1")
Application.CutCopyMode = False
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs sPath & "Fichier" & i, xlCSV
ActiveWorkbook.Close True
Set p = Nothing
Next i
End Sub

 

[Viparis]

Re : Ventiler mon fichier .csv en plusieurs fichiers .csv

Merci beaucoup pour ta réactivité et ton aide pour mon problème Staple1600 🙂

Le script marche très bien !
Petite question au niveau de la finalisation du script. Comment faire pour que la génération des fichiers découpés reprennent le nom du fichier original en y ajoutant de manière incrémental "_X" pour donner "_1" puis "_2", "_3", etc..

 

[Staple1600]

Re : Ventiler mon fichier .csv en plusieurs fichiers .csv

Bonsoir à tous

Viparis
Cela te convient-il?

Sub Sheets2CSVB()
Dim dl&, i&, j&, p As Range, sPath$
 sPath = "C:\Temp\" 'ici adapte le nom du répertoire
dl = Cells(Rows.Count, 1).End(xlUp).Row
 Application.ScreenUpdating = False
'j'ai mis 25 pour mon test
'donc remplace le 25 par 250 dans les deux lignes suivantes
j = 1
For i = 1 To dl Step 25
Set p = Cells(i, 1).Resize(25)
 Workbooks.Add xlWBATWorksheet
 p.Copy ActiveWorkbook.Sheets(1).Range("A1")
 Application.CutCopyMode = False
 Application.DisplayAlerts = False
 ActiveWorkbook.SaveAs sPath & "Fichier_" & j, xlCSV
 ActiveWorkbook.Close True
Set p = Nothing
j = j + 1
Next i
End Sub

 

[Viparis]

Re : Ventiler mon fichier .csv en plusieurs fichiers .csv

Staple1600 la nouvelle macro ne fonctionne plus, elle ne créée pas assez de fichier et sélectionne juste une colonne

 

[Staple1600]

Re : Ventiler mon fichier .csv en plusieurs fichiers .csv

Bonsoir à tous

Viparis
Si la première version marchait, pourquoi la seconde ne marcherait-elle pas?

De plus tu disais dans ton premier message

Je possède un fichier CSV d'une colonne qui contient plus de 5000 lignes

J'ai donc créer mes macros en conséquence...

PS: Je viens de retester la seconde macro sur mon PC. Et elle fonctionne comme la première fois 😉
car généralement je teste mes codes avant de les poster sur le forum...

 

[Viparis]

Re : Ventiler mon fichier .csv en plusieurs fichiers .csv

Oui elle fonctionne bel et bien, désolé pour ma précipitation..
Mon erreur vient du fait que j'ai fait un essai sur un CSV avec plusieurs colonnes.