rss
Rechercher : dans
Par : Pertinence Date Nom d'utilisateur
Statut : Non résolu

Macro fichier texte

Posté par seb13, le vendredi 15 avril 2005 à 09:57:59
Bonjour
Je voudrais savoir si quelqu'un peut me donner un coup de main pour faire une macro qui transforme ma page excel en un fichier texte dont les collones sont séparées par des espace et que ce fichier soit du meme type qu'un word pad.
Et je voudrais savoir si la manip inverse( un fichier texte en excel est posssible?)
merci
Répondre à seb13  Signaler ce message aux modérateurs Aller au dernier message

1


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
gbinforme, le vendredi 15 avril 2005 à 11:00:56
bonjour

essaie d'enregistrer avec excel sous format .txt, cela devrait aller

un fichier texte en excel c'est possible aussi
et l'assistant d'importation te permet de paramètrer
si cela ne convient pas , le menu données / convertir
permet de dissocier des colonnes.

toujours zen
Répondre à gbinforme

2


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Seb13, le vendredi 15 avril 2005 à 11:34:56
Moi ce que je voudrais c'est créer un bouton, cliquer dessus et que cele me créé automatiquement un fichier texte ou les collones sont séparées par des espaces et les virgules des nombres transformés en point
Répondre à Seb13

3


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
tompols, le vendredi 15 avril 2005 à 12:13:58
Salut,

Voilà une macro qui fait ce que tu demandes (séparateur colonnes : espace / séparateur décimal ".")
A coller ds un module :

Sub SaveAsTXT()

    With Application
        .DecimalSeparator = "."
        .ThousandsSeparator = " "
        .UseSystemSeparators = False
    End With


 Dim Range As Object, Line As Object, Cell As Object
 Dim StrTemp As String
 Dim Nomfichier As String
 Dim chemin As String

 Dim Separateur As String
 Nomfichier = InputBox("Veuillez entrer le nom de fichier pour la sauvegarde en .txt", "Nom fichier ?")
 chemin = ThisWorkbook.Path & "\"
     Separateur = " "
     Set Range = ActiveSheet.UsedRange

Open chemin & Nomfichier & ".txt" For Output As #1
 For Each Line In Range.Rows
  StrTemp = ""
         For Each Cell In Line.Cells
             StrTemp = StrTemp & CStr _
                 (Cell.Text) & Separateur
         Next
        Print #1, StrTemp '= " "
    Next
Close
    With Application
        .DecimalSeparator = ","
        .ThousandsSeparator = " "
        .UseSystemSeparators = True
    End With


End Sub


A+
Répondre à tompols

4


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
seb13, le vendredi 15 avril 2005 à 13:13:06
merci je vais essaier
Répondre à seb13

5


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
seb13, le vendredi 15 avril 2005 à 13:17:25
Je suis désolé d'etre un peu lourd mais je me sert rarement de macro et je sait pas comment utiliser cette macro ni si il y a quelque chose à modifier
Répondre à seb13

6


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
tompols, le vendredi 15 avril 2005 à 13:22:18
Re,

OK, dans ton classeur tu fais Alt + F11 => ça ouvre VBE.
Sur la gauche ds l'explorateur de projet, ton fichier apparait comme ceci ; "VBA Project (ton fichier) => click droit dessus puis insertion/module.
Tu vois apparaitre "module 1" => double clique et colle ds la fenetre qui apparait le code....
Ferme ensuite l'éditeur VB puis dans ton fichier Alt + F8, sélectionne la macro SaveAsTXT puis executer....
Et voilà....

A+
Répondre à tompols

7


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
seb13, le vendredi 15 avril 2005 à 13:26:49
Lorsque je fais alt F8 il me marque erreur exécutio 438 propriété ou méthode non généré par cet objet et si je fait débogage il va sur décimalséparator.
Répondre à seb13

8


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
seb13, le vendredi 15 avril 2005 à 13:47:04
J'ai oublié de précisé un détail qui a paut etre de l'imporatance: dans mes collones et lignes j'ai parfois des mots et parfois des chiffres
Répondre à seb13

9


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
seb13, le lundi 18 avril 2005 à 08:27:56
Bonjour à tous
Le week end à rien changé à mon problème j'ai toujours cette erreur dans la macro que tompols m'a donné et j'aurais vraiment besoin qu'elle marche donc si quelqu'un peut m'aider se serai cool.
merci
Répondre à seb13

10


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
gbinforme, le lundi 18 avril 2005 à 09:09:32
bonjour

j'ai le même problème que toi avec cette macro.

je te propose simplement ceci qui fonctionne chez moi :

Sub sav_texte()
ActiveWorkbook.SaveAs Filename:="C:\...\Classeur.txt", _
FileFormat:=xlText, CreateBackup:=False
End Sub


toujours zen
Répondre à gbinforme

11


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
seb13, le lundi 18 avril 2005 à 09:21:17
Merci pour ta réponse gbinforme
Mais je n'arrive pas a utiliser correctement ta fonction et je voudrais savoir comment l'adapter à mon fichier.
Répondre à seb13

12


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
tompols, le lundi 18 avril 2005 à 11:49:52
Salut,

Désolé, j'étais pas dispo ce WE....
En supprimant cette histoire de virgule (mais tu devras faire un rechercher/remplacer ds ton fichier txt pour remplacer les points par des virgules; ceci dit ça garde le plus galère : l'espace pour séparer les colonnes)
Sub SaveAsTXT()
  

 Dim Range As Object, Line As Object, Cell As Object
 Dim StrTemp As String
 Dim Nomfichier As String
 Dim chemin As String

 Dim Separateur As String
 Nomfichier = InputBox("Veuillez entrer le nom de fichier pour la sauvegarde en .txt", "Nom fichier ?")
 chemin = ThisWorkbook.Path & "\"
     Separateur = " "
     Set Range = ActiveSheet.UsedRange

Open chemin & Nomfichier & ".txt" For Output As #1
 For Each Line In Range.Rows
  StrTemp = ""
         For Each Cell In Line.Cells
             StrTemp = StrTemp & CStr _
                 (Cell.Text) & Separateur
         Next
        Print #1, StrTemp '= " "
    Next
Close
    

End Sub




A+
Répondre à tompols

13


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
seb&", le lundi 18 avril 2005 à 12:16:53
C'est cool tompols
ça marche et aprés je fait remplacer , par point.
Une dernière question: est il possible lancé avec un bouton la macro au lieu faire F8
merci
Répondre à seb&"

14


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
tompols, le lundi 18 avril 2005 à 12:25:44
Salut,

Yes c'est possible :
Ouvre le fichier contenant la macro, click droit sur la barre d'outils puis "Personnaliser". => Dans l'onglet commandes, choisis la catégorie macro puis fais un glisser/déposé du bouton personnalisé sur ta barre d'outils puis ensuite click droit sur le bouton => Affecter une macro et choisis la macro SaveAsTXT.

Et voilà....

A+
Répondre à tompols

15


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
blueoystercult, le lundi 18 avril 2005 à 12:42:48
Ca va Tom? Guère de nouvelles ces derniers temps... Bonjour chez vous!
Je ne suis pas un n°, je suis un homme libre!
Répondre à blueoystercult

16


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
tompols, le lundi 18 avril 2005 à 12:45:36
Salut Léo,

Ca va, ça va (tant qi'il nest pas question d'assassiner la musique).....
J'ai peu de temps en ce moment (boulot + musique = nombreux projets à gérer) et en plus j'ai plus de connexion perso, je me connecte du boulot.....
Et toi, comment va ?
Répondre à tompols

17


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
blueoystercult, le lundi 18 avril 2005 à 12:51:20
Ca va un peu près sauf que mon imprimante est naze et que ça me gêne pour préparer nos artcles. Va voir là, tu as peut-être des commentaires à faire:


--http://www.commentcamarche.net/forum/affich-1330214-Intere­t-pour-les-mp3#2005-04-17%2015%3A46%3A36
Bonjour chez vous!
Je ne suis pas un n°, je suis un homme libre!
Répondre à blueoystercult

18


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
seb13, le lundi 18 avril 2005 à 12:55:02
Merci pour tous ça marche impeccable.
Répondre à seb13

19


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
 tompols, le lundi 18 avril 2005 à 14:09:51
De rien :-)

A+

Tom
Répondre à tompols
Logiciels pertinents trouvés dans les téléchargements
Télécharger NoteTab Light 5.61NoteTab Light - Notetab Light est un logiciel gratuit qui peut remplacer le bloc note de Windows. Mais en plus, il possède d’autres...Catégorie: Traitement de texte
Licence: Freeware/gratuit
Télécharger  ZikiTranslator  1.3.5a ZikiTranslator - De nos jours la traduction d’une langue à une autre est un élément primordial dans la vie quotidienne : études, travail… ...Catégorie: Traduction
Licence: Freeware/gratuit
Télécharger Notepad2 2.1.19Notepad2 - Notepad2 est un blc-note libre possédant des fonctionnalités avancées de coloration syntaxique. <h2>Fonctionnalités</h2>...Catégorie: Traitement de texte
Licence: Freeware/gratuit
Télécharger Metapad 3.51Metapad - metapad est un éditeur de texte simple, petit et rapide (et complètement gratuit) avec des fonctionnalités similaires à...Catégorie: Traitement de texte
Licence: Freeware/gratuit
Plus de logiciels gratuits sur « macro fichier texte »