Fusionner des lignes toutes les X lignes
Bonjour,
J'ai beau cherché depuis un bon moment , je ne trouve pas la solution à mon problème.
Je possède un CSV avec plusieurs milliers de lignes (1 seule colonne)
J'aimerai fusionner les lignes toutes les 100 lignes.
Par exemple, si j'ai un CSV avec 1000 lignes, je me retrouverai donc avec 10 lignes (chaque ligne contenant 100 lignes de la première colonne)
Quelqu'un connait-il la solution à mon problème?
Merci d'avance.
Bonjour,
le format .csv permet de définir un séparateur de champ et s'applique à des fichiers au format Texte.
Par conséquent, il suffit de lire le fichier en entrée comme un fichier texte, concaténer les lignes lues et de les écrire dans un 2ème fichier par pas de 100 lignes.
Le programme suivant devrait fonctionner après correction du nom de fichier.
Remarque : le pas de 100 est traité à l'aide de la fonction Modulo.
ligne = ""
fic_ini = "fichier.csv"
fic_red = "fichier_red.cdv"
Open chemin & fic_ini For Input As #1
Open chemin & fic_red For Output As #2
'cpt_L = 0 'compteur de lignes
Do While Not EOF(1)
Line Input #1, ligne
cpt_L = cpt_L + 1
texte = texte & ligne
result = cpt_L Mod 100
If result = 0 Then
Print #2, texte
ligne = ""
end if
Loop
Close #1
Close #2
Merci pour cette réponse.
Malheureusement mes connaissances avec excel sont limités et je ne sais pas très bien comment faire cela.
J'ai activé l'onglet développeur pour avoir accès au VBA mais ensuite je ne sais pas trop comment gérer tout ça.
J'ai bien copier coller le code mais je suppose que j'ai 2 paramètres a changer qui sont les chemins des fichiers.
fichier.csv est mon fichier d'origine dans lequel je mets le script? et fichier_red.csv celui qui sera crée en lançant le script?
La syntaxe pour les chemin est a mettre entre guillemets?