Importer plusieurs centaines de fichiers .Text
Résolu/Fermé
A voir également:
- Importer plusieurs centaines de fichiers .Text
- Renommer plusieurs fichiers en même temps - Guide
- Explorateur de fichiers - Guide
- Wetransfer gratuit fichiers lourd - Guide
- Importer favoris chrome - Guide
- Importer favoris firefox - Guide
13 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 752
29 sept. 2014 à 11:06
29 sept. 2014 à 11:06
Bonjour,
C'est faisable par une macro.
Encore faut-il savoir comment sont les fichiers texte.
Format txt, csv, autre?
Nombre de lignes (éventuellement colonnes) de ces fichiers?
nombre de fichiers texte approximatif?
C'est faisable par une macro.
Encore faut-il savoir comment sont les fichiers texte.
Format txt, csv, autre?
Nombre de lignes (éventuellement colonnes) de ces fichiers?
nombre de fichiers texte approximatif?
Bonjour,
Merci de ta réponse rapide
Alors il y a 170 lignes et 3 colonnes dans chaques fichiers. Ce sont des .txt. Nommés "jjmmaaaa xxxxxx.txt" Les "x" correspondent à des chiffres aléatoire ( du moins je connais pasleur signification ).
Ils sont tous dans C:\Multispec\Tests\LDB
Il y en a autour de 1000 je dirais.
Merci bien !
Merci de ta réponse rapide
Alors il y a 170 lignes et 3 colonnes dans chaques fichiers. Ce sont des .txt. Nommés "jjmmaaaa xxxxxx.txt" Les "x" correspondent à des chiffres aléatoire ( du moins je connais pasleur signification ).
Ils sont tous dans C:\Multispec\Tests\LDB
Il y en a autour de 1000 je dirais.
Merci bien !
Bonjour
donne au moin un model de ton fichier TxT pour voir les separateure
voila une macro pour faire une list des Txt
A+
Maurice
donne au moin un model de ton fichier TxT pour voir les separateure
voila une macro pour faire une list des Txt
Sub BoucleFichiersTxt()
Dim Chemin As String, Fichier As String
Cells.ClearContents
Range("A1").Select
'Définit le répertoire contenant les fichiers Txt
Chemin = ThisWorkbook.Path & "\FicTxt"
'Boucle sur tous les fichiers Txt du répertoire.
Fichier = Dir(Chemin & "*.txt")
Lig = 1
Do While Len(Fichier) > 0
Range("A" & Lig).Value = Chemin & "" & Fichier
Fichier = Dir()
Lig = Lig + 1
Loop
End Sub
A+
Maurice
Salut,
Merci je vais tester ça.
Voila un exemple de fichier txt
https://www.cjoint.com/c/DIDms5s4O4d
Merci bien
PS: j'ai jamais fais de macro avant ni de programmation. La macro pour la boucle il faut que je l'insère à quelle niveau de ma macro pour importer ?
Ci dessous, une macro faire à la souris pour importer le txt. Si je comprends bien, il faut que je mettes la boucle dedans ?
Merci je vais tester ça.
Voila un exemple de fichier txt
https://www.cjoint.com/c/DIDms5s4O4d
Merci bien
PS: j'ai jamais fais de macro avant ni de programmation. La macro pour la boucle il faut que je l'insère à quelle niveau de ma macro pour importer ?
Ci dessous, une macro faire à la souris pour importer le txt. Si je comprends bien, il faut que je mettes la boucle dedans ?
Sub test()
'
' test Macro
' Macro enregistrée le 29/09/2014 par t82phar1
'
'
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Multispec\Tests\LDB\09292014 084717.txt", Destination:=ActiveCell)
.Name = "09292014 084717"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 932
.TextFileStartRow = 1
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1)
.TextFileFixedColumnWidths = Array(23, 15)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 752
29 sept. 2014 à 12:25
29 sept. 2014 à 12:25
ATTENTION :
170 lignes par fichier txt multiplié par 1000 fichiers = 170 000 lignes.
Excel 2003, il va falloir travailler sur au moins 3 feuilles différentes...
170 lignes par fichier txt multiplié par 1000 fichiers = 170 000 lignes.
Excel 2003, il va falloir travailler sur au moins 3 feuilles différentes...
Re
je pense que le separateur est la tabulation
voila un fichier excel avec les macro listes des ficfier et cumul
http://cjoint.com/?3IDmK6tu7RQ
A+
Maurice
je pense que le separateur est la tabulation
voila un fichier excel avec les macro listes des ficfier et cumul
http://cjoint.com/?3IDmK6tu7RQ
A+
Maurice
@Maurice
J'ai lancé lancer la macro, alors cumul text bug, avec une erreur 75, en disant qu'il y a un problème de chemin d'accés. Le débogage surligne " Open NomFichier For Input As #1"
J'ai strictement aucune idée de ce qu'il faut corriger...
J'ai lancé lancer la macro, alors cumul text bug, avec une erreur 75, en disant qu'il y a un problème de chemin d'accés. Le débogage surligne " Open NomFichier For Input As #1"
J'ai strictement aucune idée de ce qu'il faut corriger...
Bonjour
il faut changer chemin ex:
' Chemin = ThisWorkbook.Path & "\FicTxt\"
Chemin = "C:\Multispec\Tests\LDB\"
la je ne peux pas le faire ses a toi de le faire
A+
Maurice
il faut changer chemin ex:
' Chemin = ThisWorkbook.Path & "\FicTxt\"
Chemin = "C:\Multispec\Tests\LDB\"
la je ne peux pas le faire ses a toi de le faire
A+
Maurice
re
en premier lancer liste Txt
pour les onglet se decompose en 2
ex:liste = non de l'onglet
& Feuil1 = CodeName
A+
Maurice
en premier lancer liste Txt
pour les onglet se decompose en 2
ex:liste = non de l'onglet
& Feuil1 = CodeName
A+
Maurice
Je viens de remarquer le dossier LDB est en lecture seule es ce que ça peut changer quelques chose.
NomFichier=vide ( le commentaire quand je mets le curseur dessus). Il ne faut pas que je mette LDB ? ou le nom de mon premier fichier txt ?
Es ce que je dois replacer Feuil1 par Cumul ?
Merci bien
@+ Vic
NomFichier=vide ( le commentaire quand je mets le curseur dessus). Il ne faut pas que je mette LDB ? ou le nom de mon premier fichier txt ?
Es ce que je dois replacer Feuil1 par Cumul ?
Merci bien
@+ Vic
Voilà le fichier contenant tous mes fichiers textes: http://cjoint.com/?DIEmlJpKPew
L'idée c'est de tous les mettres sur une ( ou plusieurs feuilles excel) pour pouvoir travailler dessus.
Je suis un peu perdu.
@Marcus, je comprends pas comment faire fonctionner ta macro. Qu'es ce que je dois changer d'autre en plus du chemin d'accés ?
Bien cordialement
Vic
L'idée c'est de tous les mettres sur une ( ou plusieurs feuilles excel) pour pouvoir travailler dessus.
Je suis un peu perdu.
@Marcus, je comprends pas comment faire fonctionner ta macro. Qu'es ce que je dois changer d'autre en plus du chemin d'accés ?
Bien cordialement
Vic
bonjour
Voila une modif pour le chemin
http://cjoint.com/?3IEmDOliRUl
Lancer la macro 1 & 2 & 3
A+
Maurice
Voila une modif pour le chemin
http://cjoint.com/?3IEmDOliRUl
Lancer la macro 1 & 2 & 3
A+
Maurice