FORUM MP | Bureautique : exporter un fichier excel en txt

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

Serv: irc.irc-land.org

Chan: #MoteurProg

PARTICIPER

Plus de 3500 emplois.

Visiteur MP

exporter un fichier excel en txt
	Forum : BUREAUTIQUE Sous Catégorie : Aucune Type du sujet : Sujet Normale FAQ : FAQ BUREAUTIQUE
		SUIVI PAR MAIL INACTIF
		SUJET RESOLU
		SUJET ACTIF
		N'APPARTIENT PAS A LA FAQ

PAGE : [1]

FORUM BUREAUTIQUE
	Page précedente	Page suivante

biloute31
Nouveau membre

Inscrit : 20/12/2007
Messages : 3

#146577 Posté le 20/12/07 à 16:32

Bonjour,
j'ai importé un fichier txt en spécifiant le format d'import (colonne1=10car, col2 3car,...) pour y effectuer par des macros des modifications. Je cherche maintenant à l'exporter en txt en reprennant mon format d'import initial.
ET LA ..... Je bute!!
Je ne connais pas la fonction VB qui permet de le faire .
Help, pouvez vous m'aider
__________________________
ddd

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 : 1718

#146619 Posté le 21/12/07 à 10:28

Bonjour

Est-ce cela qui est recherché ?

en TXT

Sub FichierTXT() Application.DisplayAlerts = False 'Choisis la feuille que tu veux transformer en TXT Worksheets("Feuil1").Copy 'Sauvegarde en TXT de la feuille choisie With ActiveWorkbook .SaveAs Filename:="test", FileFormat:=xlTextWindows, local:=True .Close False End With Application.DisplayAlerts = False End Sub

En CSV

Sub FichierCSV() Application.DisplayAlerts = False 'Choisis la feuille que tu veux transformer en CSV Worksheets("Feuil1").Copy 'Sauvegarde en CSV de la feuille choisie With ActiveWorkbook .SaveAs Filename:="test", FileFormat:=xlCSV, local:=True .Close False End With Application.DisplayAlerts = False End Sub

Cdlt
__________________________
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

biloute31
Nouveau membre

Inscrit : 20/12/2007
Messages : 3

#146627 Posté le 21/12/07 à 14:59

Déjà un merci,
L'enregistrement en txt fonctionne , par contre je voudrais préciser colonne par colonne le nombre de caractère en sortie et le type (numérique, alphabétique...)
__________________________
ddd

HAUT DE PAGE

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

Inscrit : 21/08/2006
Messages : 1718

#146628 Posté le 21/12/07 à 15:14

Là ce n'est pas la même chose

j'ai copié vite fait un truc car je n'ai pas le temps cet après midi

mais ça doit le faire voir feuille etc et chemin à changer

Sub SaveAsTextFile() Dim C As Variant Dim fFilename As String Dim a As Integer, b As Integer Dim Tmp As String With Worksheets("Feuil2") 'C = ActiveCell.Offset(0, 1) C = .Range("A1:D10") End With fFilename = _ Application.GetSaveAsFilename(InitialFileName:="nom_par_defaut", _ fileFilter:="Text Files (*.txt), *.txt") Open fFilename For Output As #1 'Tmp = C For i = 1 To 12 Write #1, Next For a = 1 To UBound(C, 1) Tmp = "" For b = 1 To UBound(C, 2) If Tmp > "" Then Tmp = Tmp & Chr(44) & C(a, b) Else Tmp = C(a, b) End If Next Print #1, Tmp Next Close #1 Erase C End Sub

Cdlt
__________________________
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

biloute31
Nouveau membre

Inscrit : 20/12/2007
Messages : 3

#146631 Posté le 21/12/07 à 16:05

Re merci en tout cas !!
Mais je crois ne pas avoir été assez clair , je veux exporter ce fichier sur la base du format d'import initial , par exemple :

ETAPE 1 :
j'importe un fichier de type txt pour cela j'ai fait une macro qui précise le format des champs
cela me donne la feuille excel suivante
col1 col2 col3
Num_proj Nom_projet Nom_personne
(28 cararctere numerique) (10 car alpha) (15car alpha)

ETAPE 2:
Par une macro je propose de choisir les Num_proj et je modifie quand c'est trouvé le Nom_personne

ETAPE 3:
J'exporte le fichier en txt tout en conservant le format de départ . Le but est de l'utiliser dans une autre application .
donc je dois pourvoir recréer mon fichier txt avec dans l'ordre (Num_proj(28car),Nom_projet(10car),Nom_personne(15car))
Bon je sais je demande la cerise sur le gateau !!
Merci d'avance et si pas de news bonnes fêtes quand même !!
__________________________
ddd

HAUT DE PAGE

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

Inscrit : 21/08/2006
Messages : 1718

#146638 Posté le 21/12/07 à 18:39

je sais ce n'est pas exactement la demande

mais en bricolant avec ce code vous devriez y arriver

à la rigueur si vous me le demandez je vous fait un fichier exemple

Bonnes Fêtes à vous aussi

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

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

Inscrit : 21/08/2006
Messages : 1718

#147568 Posté le 14/01/08 à 09:23

est-ce résolu ?
__________________________
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

PAGE : [1]

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