Macro importer fichiers txt dans excel

TOT127 Messages postés 1045 Statut Membre -  
cs_Le Pivert Messages postés 8437 Statut Contributeur -
Bonjour,
je suis embarassé car j'ai 500 fichiers de données .txt avec séparateur virgule et je dois les mettre dans excel...
J'aimerais ne pas avoir à le faire à la main. Je sais que des macro existent, j'en ai essayé plusieurs mais je n'ai pas réussi. Pouvez vous m'aider à faire la macro me permettant d'automatiser le travail ?
merci beaucoup,

2 réponses

  1.
    cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    Bonjour,

    Voici un exemple, il suffit de mettre le classeur dans le répertoire où ce trouve les fichiers texte.
    J'ai mis 3 fichiers texte pour faire les essai.
    Les fichiers texte sont copiés sur chaque onglet qui prend le nom du fichier:

    http://www.cjoint.com/c/FFjiS4UeCsQ
    1
    1. TOT127 Messages postés 1045 Statut Membre 96
       
      woo merci ! je vais étudier ça et je reviens vers toi te dire comment j'ai réussi! :)
      0
    2. TOT127 Messages postés 1045 Statut Membre 96
       
      je suis entrain de regarder votre fichier. Je pense le garder pour importer des fichiers txt à l'avenir, car il y a la macro dedans. néanmoins, quand je tente de lancer la macro pour qu'elle avale 3 de mes fichiers txt, mis dans le dossier du fichier excel, j'obtiens ça: erreur 1004 et débogage > l'erreurétant: "Fichier = Application.GetOpenFilename("Text Files (*.txt), *.txt")" (ce qui est surligné dans ta macro).
      0
    3. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
       
      Verifier que les fichiers ont bien l'extension txt!

      Si c'est une autre extension corriger la macro en remplaçant txt par l'autre extension.
      0
  2. 3IR3 Messages postés 936 Date d'inscription   Statut Membre Dernière intervention   232
     
    Bonjour,

    Vous devriez faire une sauvegarde de vos fichiers texte, en prendre 1 au hazard et changer son extension (.txt) en (.csv)
    Essayez ensuite de l'ouvrir avec Excel/LibreOffice Calc et il vous demandera de définir l'option de séparateur. Cochez uniquement le point virgule et voilà normalement c'est bon.
    0
    1. TOT127 Messages postés 1045 Statut Membre 96
       
      Oui mais alors qu'advient il de tous les autres fichiers ?
      0
    2. 3IR3 Messages postés 936 Date d'inscription   Statut Membre Dernière intervention   232
       
      Si ça marche correctement pour un, vous n'avez plus qu'à renommer les 500 fichiers .txt (en gardant toujours une sauvegarde des originaux) en .csv

      Pour cela vous les placer dans un dossier de votre choix, vous naviguez jusqu'à ce dossier dans la console en ligne de commande (cd pour ouvrir et dir pour afficher le contenu du répertoire) et une fois que vous êtes positionné sur le dossier qui contient tous les .txt vous faîtes: 

      ren *txt *csv
      0
    3. TOT127 Messages postés 1045 Statut Membre 96
       
      je vais essayer, merci! Puis je vous demander comment ouvrir la console en ligne de commande sur excel ?...
      0
    4. TOT127 Messages postés 1045 Statut Membre 96
       
      (je suis sur mac)
      0
    5. 3IR3 Messages postés 936 Date d'inscription   Statut Membre Dernière intervention   232
       
      Ahh je ne connais pas du tout mac désolé, la commande ci dessus est pour la console Windows
      0