1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
|
Sub import()
Set fs = Application.FileSearch ' NE FONCTIONNE PLUS
With fs
.LookIn = "C:\mon dossier"
.filename = "*.TXT" ' JE RECUPERE MON FICHIER TEXT TOUTE LES 15 MIN IMPORT D'UN FTP
If .Execute(SortBy:=msoSortbyFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
For i = 1 To .Foundfiles.Count
FileCopy .Foundfiles(i), "C:\mon dossier save" & Right(.Foundfiles(i), (Len(.Foundfiles(i)) - InStrRev(.Foundfiles(i), "\" ))) ' SAVE DES FICHIERS
DoCmd.TransferText acImportDelim, "Spécification export ORDER", "FICHIER ORDER", .Foundfiles(i), False, "" ' IMPORT DANS MA TABLE SUIVANT UN SP2CIFICATION D'IMPORTATION
Kill (.Foundfiles(i))
Next i
Else
End If
End With
End Sub |
Partager