Convertir un fichier cvs dans excel

Soyez le premier à donner votre avis sur cette source.

Snippet vu 20 787 fois - Téléchargée 31 fois

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

Ajouter un commentaire Commentaires
Messages postés
4
Date d'inscription
jeudi 5 octobre 2006
Statut
Membre
Dernière intervention
23 mai 2007

Bonjour

Lorsque tu fais outils -> Macros -> Visual Basic Editor , une nouvelle fenêtre s'ouvre. Dans cette fenêtre tu fais un clic droit dans la partie gauche et tu te met sur 'Insertion' puis tu clic sur 'Module'.

En suite tu copies le code qui se trouve en haut de cette page (dans la partie source) et tu le colle dans le module.

Finalement il ne te reste plus qu'a appeler ta macro depuis Excel avec outils -> Macros -> Maacros... et tu choisis la macro que tu vien de créer...

Voilà, si ta d'autre question tu n'hésites pas...
Messages postés
3
Date d'inscription
lundi 21 mai 2007
Statut
Membre
Dernière intervention
22 mai 2007

et ou est le code
Messages postés
3
Date d'inscription
lundi 21 mai 2007
Statut
Membre
Dernière intervention
22 mai 2007

merci pour ta reponse si rapide
mais je n'y arrive toujours pas
outils, macros, visual basic editor
jusque la dans excel j'y arrive mais créé une macro et coller je ne sais pas faire
merci de me detaillé si possible
merci
Messages postés
480
Date d'inscription
jeudi 6 mai 2004
Statut
Membre
Dernière intervention
3 septembre 2007
1
Outils->Macros->Visual Basic Editor

La tu crée une macro et tu colles le texte.
Messages postés
3
Date d'inscription
lundi 21 mai 2007
Statut
Membre
Dernière intervention
22 mai 2007

Bonjour, je n'arrive pas à entrer le code.
Comment faire?
Merci
Afficher les 11 commentaires

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.