Discussion :

[NoMercy007]

Bonjour,

Je souhaite découper un fichier CSV avec X lignes, en X fichiers CSV avec pour nom la valeur d'une colonne et en gardant la même structure.
Exemple :
TEST.csv avec 3 lignes :
NOM1;NOM2;ADR1;ADR2;CP;VILLE;123456;TEL;MAIL;INFO
NOM1;NOM2;ADR1;ADR2;CP;VILLE;567890;TEL;MAIL;INFO
NOM1;NOM2;ADR1;ADR2;CP;VILLE;1A2B3C4D;TEL;MAIL;INFO

Résulat souhaité 3 fichiers csv comme suit :
123456.csv : NOM1;NOM2;ADR1;ADR2;CP;VILLE;123456;TEL;MAIL;INFO
567890.csv : NOM1;NOM2;ADR1;ADR2;CP;VILLE;567890;TEL;MAIL;INFO
1A2B3C4D.csv : NOM1;NOM2;ADR1;ADR2;CP;VILLE;1A2B3C4D;TEL;MAIL;INFO

Comment puis je réaliser cette conversion ?
Merci de votre aide.

[Menhir]

Si tu veux le faire en automatique, il faut passer par du VBA.

Le plus simple est d'ouvrir ton fichier CSV avec un Workbooks.OpenTexte, en indiquant que le délimiteur est ";".
https://msdn.microsoft.com/fr-fr/lib.../ff837097.aspx

Tu crées un nouveau classeur vide avec un Workbooks.Add qu'on appellera le classeur cible.
https://msdn.microsoft.com/fr-fr/lib.../ff840478.aspx

Ensuite tu scrutes l'ensemble de tes lignes avec un For Each ou un For To.
https://msdn.microsoft.com/fr-fr/lib.../gg251601.aspx
https://msdn.microsoft.com/fr-fr/lib.../gg264596.aspx

Pour chaque ligne, tu copies le contenu avec un Copy appliqué à un Row référençant la ligne dans la première ligne du classeur cible.
https://msdn.microsoft.com/fr-fr/lib.../ff837760.aspx

Tu enregistres le classeur cible avec un SaveAs, en utilisant comme nom te fichier le contenu de la colonne G de la ligne en cours et spécifiant xlCSV comme FileFormat.
https://msdn.microsoft.com/fr-fr/lib.../ff841185.aspx

Quand ton Next a épuisé la liste de lignes, tu fermes le fichier cible avec un Close.
https://msdn.microsoft.com/fr-fr/lib.../ff838613.aspx

[NoMercy007]

Merci pour cette réponse rapide, mais le niveau de l'amateur que je suis en VBA et la réponse de l'expert que vous êtes mon cher Menhir me semble difficile à mettre en oeuvre rapidement. Si je peux avoir des exemples plus précis j'en serai ravi.

[Marc-L]

Bonjour,

alors voir les nombreux exemples sur le sujet dans le bon forum !
Sans compter les nombreux tutoriels à disposition …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[NoMercy007]

Je me doute qu'il doit y avoir des exemples dans un forum, mais lequel ?
Ce n'est pas faute d'avoir chercher ....

[mjpmjp]

bonjour,
dans VBA --> la fonction split

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
TabElementData = Split("MaLigneDuFichierCSV", Delimiter:=";")
NomDuFichier=TabElementData(6) & ".csv"

pour les fichiers recherche --> FileSystemObject

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Set FSO = CreateObject("Scripting.FileSystemObject")

@+JP