macro pour imports de plusieurs fichiers TXT

[steph]

J'ai un ptit problème...

1/ Pourquoi, avec cette macro je ne parviens pas à importer tous les fichiers textes d'un même répertoire?
2/Comment faire pour les mettre chacun dans une feuille différente du même classeur ?


Set fs = Application.FileSearch
With fs
.LookIn = "D:\mes_docs\stephane\comptes\juin"
.Filename = "*.txt"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)

Workbooks.OpenText Filename:=".FoundFiles(i)" _
, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:= _
False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array _
(1, 1), Array(2, 1), Array(3, 1), Array(4, 1))
Next i
Else
MsgBox "There were no files found."
End If
End With

Merci à celui qui répondra. Je ne suis pas très bon avec les macros, mais j'espère le devnir un jours !

@+

 

[vincent]

Bonsoir

je pense que si tu enleves les guillemets cela marchera mieux

Workbooks.OpenText Filename:=.FoundFiles(i) .......

essaye et dis moi ce qu'il en est


@+Vincent