Importation fichiers txt dans excel [Résolu]

toinou44160 5 Messages postés mercredi 4 octobre 2017Date d'inscription 4 octobre 2017 Dernière intervention - 4 oct. 2017 à 14:22 - Dernière réponse : toinou44160 5 Messages postés mercredi 4 octobre 2017Date d'inscription 4 octobre 2017 Dernière intervention
- 4 oct. 2017 à 18:18
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,
Afficher la suite 
5Messages postés mercredi 4 octobre 2017Date d'inscription 4 octobre 2017 Dernière intervention

8 réponses

Répondre au sujet
f894009 12541 Messages postés dimanche 25 novembre 2007Date d'inscription 11 décembre 2017 Dernière intervention - 4 oct. 2017 à 15:19
0
Utile
7
Bonjour,

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

Pour un fichier txt par onglet, quel excel avez-vous ?
toinou44160 5 Messages postés mercredi 4 octobre 2017Date d'inscription 4 octobre 2017 Dernière intervention - 4 oct. 2017 à 16:37
Pas plus que ça, mais je vais chercher merci à vous !!
f894009 12541 Messages postés dimanche 25 novembre 2007Date d'inscription 11 décembre 2017 Dernière intervention > toinou44160 5 Messages postés mercredi 4 octobre 2017Date d'inscription 4 octobre 2017 Dernière intervention - 4 oct. 2017 à 16:41
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+
toinou44160 5 Messages postés mercredi 4 octobre 2017Date d'inscription 4 octobre 2017 Dernière intervention - 4 oct. 2017 à 16:43
Avec plaisir, merci f894009
f894009 12541 Messages postés dimanche 25 novembre 2007Date d'inscription 11 décembre 2017 Dernière intervention > toinou44160 5 Messages postés mercredi 4 octobre 2017Date d'inscription 4 octobre 2017 Dernière intervention - 4 oct. 2017 à 17:18
Re,

A decompresser: http://www.cjoint.com/c/GJeprw6ccJf

Ouvrir le fichier Excel, clic sur le bouton pour test et ensuite a vous de modifier le chemin, nom d'onglet ou ce que vous voulez
toinou44160 5 Messages postés mercredi 4 octobre 2017Date d'inscription 4 octobre 2017 Dernière intervention - 4 oct. 2017 à 18:18
C'est parfait !!!
Merci fb894009 !
Je vais tous faire pour comprendre ton code mais il va beaucoup m'aider!
Encore merci pour le temps passé sur ce programme !
Commenter la réponse de f894009