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 : Sélectionner tout - Visualiser dans une fenêtre à part
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