AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 01 09 04:29:26
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

CONVERTIR UN FICHIER CVS DANS EXCEL


Information sur la source

Catégorie :VBA Classé sous : convertir, fichier, excel, cvs, converssion Niveau : Débutant Date de création : 16/06/2005 Vu : 13 120
Auteur : jrbleboss Ecrire un message privé
Note :
7,25 / 10 - par 4 personnes
7,25 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

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

Commentaires et avis

signaler à un administrateur
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...

signaler à un administrateur
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.

signaler à un administrateur
Commentaire de richir17 le 12/11/2006 00:03:25

c'est quand meme utile pour remettre en colonne

signaler à un administrateur
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

signaler à un administrateur
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.

signaler à un administrateur
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

signaler à un administrateur
Commentaire de dilution le 21/05/2007 23:11:35

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

signaler à un administrateur
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.

signaler à un administrateur
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

signaler à un administrateur
Commentaire de dilution le 22/05/2007 21:36:37

et ou est le code

signaler à un administrateur
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 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 [VBA-E] Comment convertir 3000 fichiers de .csv à .xls?? (Attention prise de tête!) [ par maximecdb ] Salut, Je suis en stage depuis 2 semaines, et l'un de mes premiers boulot est de concaténer plein de données a la suite et je piétine depuis deux jou 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


Nos sponsors

Sondage...

CalendriCode

Janvier 2009
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, 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
Temps d'éxécution de la page : 0,421 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.