Signaler

Importation fichiers txt dans excel [Résolu]

Posez votre question toinou44160 5Messages postés mercredi 4 octobre 2017Date d'inscription 4 octobre 2017 Dernière intervention - Dernière réponse le 4 oct. 2017 à 18:18 par toinou44160
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,
Utile
+0
plus moins
Bonjour,

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

Pour un fichier txt par onglet, quel excel avez-vous ?
toinou44160 5Messages 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 !!
Répondre
f894009 12234Messages postés dimanche 25 novembre 2007Date d'inscription 10 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+
Répondre
toinou44160 5Messages postés mercredi 4 octobre 2017Date d'inscription 4 octobre 2017 Dernière intervention - 4 oct. 2017 à 16:43
Avec plaisir, merci f894009
Répondre
f894009 12234Messages postés dimanche 25 novembre 2007Date d'inscription 10 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
Répondre
toinou44160 5Messages 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 !
Répondre
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !