Importation fichiers txt dans excel

Résolu
toinou44160 Messages postés 5 Statut Membre -  
toinou44160 Messages postés 5 Statut Membre -
Bonjour à tous,

Après avoir regardé plusieurs posts, je n'arrive pas à trouver la réponse à mon problème. Pouvez-vous m'aider s'il vous plait?

- j'ai un dossier avec plusieurs fichiers .txt : HORA"date".TXT

- J'aimerais que ces fichiers soient regroupés sur une seul fichier texte et sur plusieurs onglets
Fichiers txt délimité par des points virgules

Quelqu'un a-t-il la solution pour faire cette manipulation sur une bonne centaine de fichier sans tous les prendre un par un s'il vous plait ?

Merci d'avance,
Cordialement,

1 réponse

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    fichiers soient regroupés sur une seul fichier texte
    Commande dos copy

    Pour un fichier txt par onglet, quel excel avez-vous ?
    0
    1. toinou44160 Messages postés 5 Statut Membre
       
      Excel 2016
      Dans Commande, xcopy et le nom du dossier?
      Merci de ta réponse,
      0
    3. toinou44160 Messages postés 5 Statut Membre
       
      Pas plus que ça, mais je vais chercher merci à vous !!
      0
    4. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717 > toinou44160 Messages postés 5 Statut Membre
       
      Re,

      je peux vous faire un exemple, ok ou pas??

      l'idee c'est ca:

      apres avoir cree l'onglet du fichier txt en cours 

      Sub ImportText1(NomFichier As Variant, Onglet, Cible)
    Dim QT As QueryTable
    
    Set QT = Worksheets(Onglet).QueryTables.Add(Connection:="TEXT;" & _
        NomFichier, Destination:=Worksheets(Onglet).Range(Cible))
    
    With QT
        'Définit les séparateurs de colonnes dans le fichier txt
        .TextFileOtherDelimiter = ";"
        .TextFileSemicolonDelimiter = True
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .Refresh
    End With
End Sub


      Mais vous cherchez et si pas probant, demandez

      A+
      0
    5. toinou44160 Messages postés 5 Statut Membre
       
      Avec plaisir, merci f894009
      0