FORUM MP | Bureautique - Excel : txt(unicolonne)-->excel(xcolonnes)

COMMUNAUTE MP

Identifiez vous ...

DOMAINE MP

Bavardages

Langages Généraux

Langages Web

Langages DotNet

Autres langages

Dev. Jeux Video

Sécurité

Sys. Exploitation

Graphismes

Logiciels

Réseaux

Bases de données

Méthodologies

Emplois High-tech

Aide juridique

Articles juridiques

FORUM

CHAT MP IRC

Votre pseudo ...

Srv: irc.moteurprog.com

Chan: #MoteurProg

PARTICIPER

Plus de 3500 emplois.

Visiteur MP

txt(unicolonne)-->excel(xcolonnes)
	Forum : BUREAUTIQUE - EXCEL Sous Catégorie : Excel Type du sujet : Sujet Normale FAQ : FAQ BUREAUTIQUE - EXCEL
		SUIVI PAR MAIL INACTIF
		SUJET RESOLU
		SUJET ACTIF
		N'APPARTIENT PAS A LA FAQ

PAGE : [1]

FORUM BUREAUTIQUE - EXCEL
	Page précedente	Page suivante

kiwi7385
Nouveau membre

Inscrit : 21/08/2008
Messages : 3

#155939 Posté le 21/08/08 à 10:28

Bonjour,

j\'aimerais réaliser une macro pour importer un txt sous excel, mon problème étant que le txt en question est composé de deux colonnes comprenant environ 10000 lignes.
Je souhaiterais en faire un tableau 200lignes*50colonnes.

La première colonne est une répétition de la première colonne du futur tableau.

merci d\'avance, n\'hesiter pas à me demander des clarifications

HAUT DE PAGE

Publicité

Inscrit : X
Messages : X

#Aucun

HAUT DE PAGE

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique

Inscrit : 21/08/2006
Messages : 1736

#155960 Posté le 21/08/08 à 21:13

Bonjour

comment les données sont elles séparées dans le fichier TXT
par des ; ou des ,

pour faire il me faut un peu plus de détails dans les données

Salutations

Gilbert_RGI
__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley

merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa et ne pas oublier le tag :

après résolution.

HAUT DE PAGE

kiwi7385
Nouveau membre

Inscrit : 21/08/2008
Messages : 3

#155961 Posté le 21/08/08 à 21:46

bonsoir,

le fichier txt est en colonne, les deux colonnes étant séparées par des espaces (nombre variable)

sinon, mise à part la première ligne, ce sont des nombres décimaux, il faut remplacer au passage les points par des virgules pour excel.

pour le moment, je me sert de ceci :

Sub macro1()
'
' macro1 Macro
'
Range("C1").Select
nb=ActiveCell.FormulaR1C1

Range("A2:A201").Select
Selection.Copy

Sheets("profil").Select
Sheets.Add
ActiveSheet.Paste
Sheets("profil").Select
Range("B2:B201").Select

For i = 0 To nb

Application.CutCopyMode = False
Selection.Cut

Sheets("Feuil1").Select
Range("B1").Select
ActiveCell.Offset(0, i).Select
ActiveSheet.Paste

Sheets("profil").Select
Selection.Delete Shift:=xlUp
Next i

End Sub

j'ouvre le fichier, j'entre en C1 le nombre de répétition du motif puis je lance la macro

merci d'avance

HAUT DE PAGE

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique

Inscrit : 21/08/2006
Messages : 1736

#155972 Posté le 22/08/08 à 14:54

Bonjour

le fichier de données dans mon exemple se nomme MONTEST1.TXT

le fichier excel se nomme test_sur_txt.xls

il crée un fichier test_txt.txt

ces fichiers doivent se trouver dans le même réperoire

ouvrir le fichier test_sur_txt.xls et

commencer par la macro "LireFichierTexte1"

réouvrir test_sur_txt.xls et lancer la macro "test"

Le Fichier

Salutations

Gilbert_RGI
__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley

merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa et ne pas oublier le tag :

après résolution.

HAUT DE PAGE

kiwi7385
Nouveau membre

Inscrit : 21/08/2008
Messages : 3

#155975 Posté le 22/08/08 à 17:10

merci

HAUT DE PAGE

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique

Inscrit : 21/08/2006
Messages : 1736

#155983 Posté le 23/08/08 à 11:39

Revenir si problème

Salutations et bon week end

Gilbert_RGI
__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley

merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa et ne pas oublier le tag :

après résolution.

HAUT DE PAGE


	Page précédente	Page suivante
FORUM BUREAUTIQUE - EXCEL

PAGE : [1]

.: Site Web développé par Julien Pichot et l'équipe MPWG avec www.evolvia-web.com :.