FORUM Tom's Hardware » Programmation » Autre » Export données Excel en fichier texte
 

Export données Excel en fichier texte

Matériel : kekk, Tatul Le Bistrot : je_rig0le Réseaux : be-bop et 157 utilisateurs inconnus
Ajouter une réponse



 Mot :   Pseudo :  
 
Bas de page
Auteur
 Sujet : Export données Excel en fichier texte
 
malo44
Plus d'informations
n°21150
10-05-2006 à 11:26:16


Hello,
 
appel à un pro des macros Excel pour une besoin  urgent qui me rend folle...
 
je dois sélectionner une plage de données sous excel  
retirer les lignes vides  
exporter ces données dans un lieu précis au format Texte (séparateur : tabulation)  
renommer le fichier aaa.bb  
 
quelqu'un est-il inspiré?
 
malo
 

Message cité 1 fois

zeb
Profil : Modérateur libre
Plus d'informations
n°21153
10-05-2006 à 12:24:51

http://img.presence-pc.com/forum/themes_static/images_forum/1/flechesticky.gif Vous vous lancez dans le développement de macro Excel ? Lisez ceci !
 
1° -> c'est Ok, tu as bien découpé en étape simple.
2° -> à faire...
3° -> à faire...
4° -> Ok, c'est fait aussi.

omega-dev
Plus d'informations
n°21154
10-05-2006 à 12:46:44

a écrit :

Hello,
 
appel à un pro des macros Excel pour une besoin  urgent qui me rend folle...
 
je dois sélectionner une plage de données sous excel  
retirer les lignes vides  
exporter ces données dans un lieu précis au format Texte (séparateur : tabulation)  
renommer le fichier aaa.bb  
 
quelqu'un est-il inspiré?
 
malo


 
Perso, j'importerai les données excel dans une table (dbase, visual foxpro,access) ensuite je fais le ménage pour garder de ce qui m'intéresse, un petit triet pour finir un export au format texte là où tu veux.

inoujk
Plus d'informations
n°21163
10-05-2006 à 15:02:27

ca devrait remplir la mission..  
export dans un fichier la zone selectionnée sous excel sans export des lignes vides..
 

Code :
  1. Sub tmp()
  2. '   Declaration variables
  3.     Dim i, j, nl, nc As Integer
  4.     Dim t As String
  6. '   Ouverture fichier
  7.     Open "C:\aaa.bb" For Output As #1
  8.         nc = Selection.Columns.Count
  9.         nl = Selection.Rows.Count
  10.            
  11. '       On boucle sur la selection
  12.         For i = 1 To nl
  13.             t = ""
  14.             For j = 1 To nc
  15. '               ajout de la tabulation comme separateur
  16.                 If t <> "" Then t = t & Chr(9)
  17.                 t = t & ActiveWindow.RangeSelection.Next(i, j - 1)
  18.             Next j
  19. '           Ecriture de la ligne dans le fichier si non vide
  20.             If t <> "" Then Print #1, t
  21.         Next i
  22.        
  23. '   Fermeture fichier
  24.     Close #1
  25. End Sub
inoujk
Plus d'informations
n°21167
10-05-2006 à 15:08:46

sinon pour que l'utilisateur selectionne un fichier texte d'export, tu peut remplacer le debut par :
 

Code :
  1. '   Declaration variables
  2.     Dim i, j, nl, nc As Integer
  3.     Dim FileName, t As String
  4.    
  5. '   Demande fichier de sauvegarde
  6.     FileName = Application.GetSaveAsFilename(Nom_Fichier, "Text Files (*.txt), *.txt" )
  8. '   Ouverture fichier
  9.     Open FileName For Output As #1
  11. ....
snaikkk
Plus d'informations
n°25139
16-10-2006 à 20:14:13

bonjour,
merci pour cette fonction qui m'a fait gagner beaucoup de temps!
cependant j'ai un nouveau petit problème.
 
Je veux utiliser cette fonction sur des données de type :
 
24 | 21 | 00 | 810-11300 |
 
je souhaiterai récupérer :
24200081011300
malheureusement  j'ai:
2421081011300
je récupere 0 au lieu de 00
 
merci d'avance por votre aide


Message édité par snaikkk le 16-10-2006 à 20:22:09
zeb
Profil : Modérateur libre
Plus d'informations
n°25144
16-10-2006 à 23:16:47

RTFM à la page FormatNumber

snaikkk
Plus d'informations
n°25157
17-10-2006 à 18:30:15

merci,
malheureusement, je n'arrive pas à implémenter correctement la fonction  
FormatNumber pour cette application.
Si quelqu'un pouvait me donner une ligne de code pour eclaicir les choses.
 
Ps: je ne suis pas un programmeur professionnel.


Aller à :
Ajouter une réponse
  FORUM Tom's Hardware » Programmation » Autre » Export données Excel en fichier texte
 

Plan du forum
Forum MesDiscussions.Net, Version 2007.1.2
© 2000-2007 No1Dev
Page générée en 0.240 secondes
Annonces Google
Publicité
Sujets relatifs
voir tout
Actualités relatives
Les dernières actualités
voir tout
Les derniers tests
voir tout
Les ressources relatives
Les téléchargements