Convertir un fichier cvs dans excel

Commenter

Contenu du snippet

Ce code permet de convertir un fichier CVS (Valuers séparées par une virgule) dans excel.
Il suffit de metttre ce code et de l'executer.
Il sépare chaque valeur et la met dans une colonne.
Le bug c'est que l'on considère qu'il n'y a aucune ligne vide du debut jusqu'a la fin!!!

Source / Exemple : 


Sub main()
dim l as integer
Dim p() As String 'variable qui récupère chaque valeur
On Error Resume Next 'Si ya un bug
While Cells(l, 1) <> "" 'On compte combien ya de lignes
l = l + 1 'Incrémentation
Wend 
For i = 1 To l 'boucle de ligne
ligne = Cells(i, 1)'on charge la cellule dans une variable
p() = Split(ligne, ",", -1) 'on prend chaque mot
r = 2 'variable de colonne
For Each t In p() 'on extrait toutes les valeurs
Cells(i, r) = t 'on ecrit dans la cellule
r = r + 1 ' on incrémente
Next
r = 2 'on remet a 2
Next
End Sub

Conclusion :


Je l'ai testé sur un fichier avec 54000 lignes.

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (jrbleboss)