begin process at 2012 02 12 04:22:25
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

VBA

 > CONVERTIR UN FICHIER CVS DANS EXCEL

CONVERTIR UN FICHIER CVS DANS EXCEL


 Information sur la source

Note :
7,25 / 10 - par 4 personnes
7,25 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :VBA Classé sous :convertir, fichier, excel, cvs, converssion Niveau :Débutant Date de création :16/06/2005 Vu :18 183
Auteur : jrbleboss

Ecrire un message privé
Commentaire sur cette source (11)
Ajouter un commentaire et/ou une note

 Description

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

  • 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
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.


 Sources du même auteur

Source avec Zip Source avec une capture PARCOURS DE LA SOURIS
Source avec Zip Source avec une capture TABLEAU HTML
Source avec Zip Source avec une capture APPLICATION CONSOLE
SUPPRIMER TOUT LES FICHIER PAR LEUR EXTENSION SUR OUT LES SU...
Source avec Zip AUTOCAD (DÉBUT D'IMITATION)
Toutes les sources de jrbleboss

 Sources de la même categorie

Source avec Zip GESTION PERSONNEL par oudlarbi
Source avec Zip Source avec une capture CALENDRIER EN VBA POUR EXCEL 2010 par nounou94
Source avec Zip Source avec une capture MANIPULER LES FENETRES ENFANT D'EXCEL par bigfish_le vrai
Source avec Zip Source avec une capture COLLECTION ID par Le Pivert
Source avec Zip Source avec une capture VBA MASQUE DE SAISIE NUMÉRIQUE par acive
Toutes les sources de la catégorie VBA

 Sources en rapport avec celle ci

Source avec Zip OUVRIR TOUS LES FICHIERS EXCEL D'UN DOSSIER ET DE SES SOUS-D... par Unforgiven3303
Source avec Zip Source .NET (Dotnet) EXPORTER LE CONTENU D'UN DATAGRIDVIEW VERS EXCEL OU N IMPORT... par surfzoid
Source avec Zip Source avec une capture LISTER FICHIERS D'UN DOSSIER par fedexx40
Source avec Zip COMPARATEUR EXCEL EN MASSE, AMÉLIORATIONS par GMY
Source avec Zip [VBA-EXCEL] MODIFICATEUR DE FICHIER EXCEL par apache88

Commentaires et avis

Commentaire de Jean_Elens le 29/06/2005 19:42:21

je vois pas l'interret. Excell charge les cvs si tu cliques dessus...
idem pour un "tab separated" avec extension xls...

Commentaire de jrbleboss le 30/06/2005 12:40:19

Oui il les charges mais pour les exploiter c'est pas du tout pratique !!!
La après il y a chaque valeur dans une colonne ce qui est très pratique.

Commentaire de richir17 le 12/11/2006 00:03:25

c'est quand meme utile pour remettre en colonne

Commentaire de 69fouine69 le 07/03/2007 09:15:37

Je voudrais et remercier car ton code m'a été très utile lors de mon travail. En effet j'avais des données stockées dans un fichier .csv et je devait les réutiliser par la suite, mais lorsque je chargeait ces données à partir d'un autre classeur, les données apparaissaient dans la colonne de droite avec des ";" qui séparait les données. Donc merci.

Je mets un 10

Commentaire de guigroell le 15/05/2007 16:42:01

Bonjour, comment utiliser ce code ? Où faut-il le copier pour le faire fonctionner ? Car il m'intéresse, merci beaucoup bonne journée.

Commentaire de jrbleboss le 15/05/2007 19:33:11

Alors si je me souviens bien :

Il faut :
-ouvrir le fichier .cvs avec Excel
-Copier ce code dans une macro
-Et l'executer

Cela sépare chaque valeur et la met dans une colonne

Commentaire de dilution le 21/05/2007 23:11:35

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

Commentaire de jrbleboss le 22/05/2007 19:32:39

Outils->Macros->Visual Basic Editor

La tu crée une macro et tu colles le texte.

Commentaire de dilution le 22/05/2007 21:06:19

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

Commentaire de dilution le 22/05/2007 21:36:37

et ou est le code

Commentaire de 69fouine69 le 23/05/2007 08:54:34

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...

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Convertir un Fichier CSV en XLS [ par Sebby59 ] Bonjour à tous !Voilà mon petit problème : Je souhaite que mon fichier CSV soit correctement représenté dans Excel. Je m'explique plus clairement, mon Convertir un .doc en .xls [ par bluelive ] Je cherche à pouvoir soit convertir un fichier word (.doc) contenant un tableau en un fichier xls via VB ou bien ouvir le fichier word, et faire les a convertir un fichier txt dans excel sous VB [ par chicodoubrazil ] Bonjour,J'aurai besoin d'informations sur comment ouvrir un fichier texte (séparé par des virgules) avec l'option "Données/Convertir" d'Excel en utili convertir un fichier txt dans excel sous VB [ par chicodoubrazil ] Bonjour,J'aurai besoin d'informations sur comment ouvrir un fichier texte (séparé par des virgules) avec l'option "Données/Convertir" d'Excel en utili convertir un fichier excel sous vb [ par youlel ] bonjour,je cherche &#224;&nbsp;transformer sous vb un fichier excel en fichier texte afin qu'il soit compatible avec un autre logiciel sous unix qui l convertir un fichier text en Excel [ par nazim2 ] Bonjour,Je doit d&#233;velopper code en VB qui me permetrai d'exploiter les r&#233;sultats obtenues, avec Ethereal, sachant que les fichier font beauc Convertir un fichier excel en pdf [ par syl_sof ] Bonjour, J'aimerais cr&#233;er des pdf &#224; partir de feuilles excels. Je ne vois pas comment faire en vb.Merci de votre aide, Syl convertir un fichier xml en excel [ par hanamichiforce ] salut j'ai un petit souci je dois convertir un fichier xml en fichier excel une petite aide ne serait pas de refus une petite piste svp convertir un fichier xml en excel [ par hanamichiforce ] salut j'ai un petit souci je dois convertir un fichier xml en fichier excel une petite aide ne serait pas de refus une petite piste svp vb6 Convertir une fichier Excel en DBF (urgent) [ par mqsi ] bonjour a tous,pouvez vous me dire comment convertir un fichier un fichier Excel en fichier FoxPro (dbf) et merci d'avance


Nos sponsors


Sondage...

Comparez les prix


Apple iPhone 4 Noir (32 Go)
Entre 1290€ et 1333€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 3,775 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)