Macro d'extraction fichier txt vers Excel
Bonjour à tous,
Je souhaiterai extraire dans un même fichier Excel un grand nombre de fichiers texte .txt (env. 256) comportant 5 lignes ou moins et sur chaque ligne des données séparées par des virgules correspondant à 6 colonnes.
Le but est d'extraire tous les fichier txt d'un même répertoire à la suite dans Excel, à partir de la deuxième ligne du txt et dans les 6 colonnes correspondantes.
J'espère que c'est clair !! Je vous joints un exemple de fichier .txt.
Je débute en macro, j'ai vu pas mal d'exemple d'extraction sur ce forum mais je n'ai pas réussi à les adapter à mon cas!!!
Merci par avance pour vos réponses et votre aide
Antoine
Bonjour,
Je viens de trouver un bon outil pour répondre à mon problème, si cela intéresse quelqu'un, j'ai utilisé la propriété QueryTables.
Voici le code :
Sub test2()
Dim Fichier As String, Chemin As String
Dim i As Long
'Répertoire contenant les fichiers
Chemin = "C:\Chemin\du fichier]"
Fichier = Dir(Chemin & "\*.txt")
'Boucle sur les fichiers
Do While Fichier <> ""
i = Range("A65536").End(xlUp).Row + 1
ImportText Chemin & "\" & Fichier, Cells(i, 1)
Fichier = Dir
Loop
End Sub
Sub ImportText(NomFichier As Variant, Cible As Range)
Dim QT As QueryTable
Set QT = ActiveSheet.QueryTables.Add(Connection:="TEXT;" & _
NomFichier, Destination:=Cible)
With QT
'Définit les séparateur de colonnes dans le fichier txt
.TextFileOtherDelimiter = ","
.TextFileSemicolonDelimiter = True
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.Refresh
End With
End Sub
Bonne journée
Bonjour tout le monde
je suis novice en vba, j'essaye de construire une petite moulinette en cherchant sur le net quelques trucs et astuces
j'ai utilisé le code proposé ici, ca marche nickel mais je n'arrive pas à le modifier
je voudrais juste pouvoir ajouter le nom du fichier externe en première colonne de chaque ligne du fichier externe rappatriée
est-ce que qqn pourrait m'aider?
Merciiii
Bonjour
je regarde ta macro et je revient
A+
Maurice
Bonjour Maurice
je viens justement de faire tourner mon code et je crois que j'ai trouvé
j'ai ajouté une boucle qui regarde après avoir inclu le contenu pour ajouter le titre
après je sais pas si c'est super bien fait mais ca tourne
si vous avez des conseils je suis preneuse
Bonne journée
Mary
Do While Fichier <> ""
i = Range("B65536").End(xlUp).Row + 1
ImportText chemin & "\" & Fichier, Cells(i, 2)
Set rg = Sheets("DATA").Cells(i, 2)
Do Until IsEmpty(rg)
rg.Offset(0, -1) = Fichier
Set rg = rg.Offset(1, 0)
Loop
Cells(i, 1) = "Titre"
Fichier = Dir
Loop
Bonjour
voila une modife de ta macro a toi de voir
a mettre dans le répertoire ou se trouve les Txt
A+
Maurice
oki merci bcp
bonne aprèm
Mary