Macro importer des fichiers txt d'un dossier dans des fichiers excel
Bonjour à tous,
J'aimerai pouvoir importer tous les fichiers txt d'un dossier dans un fichier correspondant. Par exemple j'ai 3 fichiers txt (ex1.txt, ex2.txt et ex3.txt) et j'aimerai avoir 3 fichiers xls (ex1.xls, ex2.xls et ex3.xls)
Pour le moment je procède de la façon suivante :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| 'Importer le fichier txt
ChDir "C:\Users\stagiaire\Documents\EXCEL"
Workbooks.OpenText Filename:="C:\Users\stagiaire\Documents\EXCEL\INSERT-FORCES-GP01.txt", _
Origin:=xlMSDOS, _
StartRow:=1, _
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, _
Tab:=False, _
Semicolon:=False, _
Comma:=False, _
Space:=True, _
Other:=False, _
FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True |
J'aimerai donc savoir si c'est possible et si oui de quelle façon.
Merci d'avance
