S
steph
Guest
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 !
@+
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 !
@+