Discussion :

[ccadic]

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

[Marc-L]

Bonjour.

Réponse orientant vers la solution déjà donnée sur un autre forum, ici non plus on ne fait pas tes devoirs à ta place, il serait temps de t'y mettre !
Ensuite, pas de souci pour lire l'exposé de la difficulté rencontrée accompagnée du listing de ton code …

[Invité]

http://www.developpez.net/forums/d13...r-fichier-txt/