1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| Sub Import()
Dim Fich, Mon_Rep As String, Ctr As Long, Ligne As Integer
Dim La_Colon
Dim wbSource As Workbook
Dim Source As Range, Target As Range
Mon_Rep = "c:\data\temp\"
Fich = Dir(Mon_Rep & "*.csv")
While Len(Fich) > 0
Set wbSource = Workbooks.Open(Filename:=Mon_Rep & Fich, Local:=True)
Stop '<==== ne s'arrete pas
Set Target = ThisWorkbook.Worksheets("Reception").Range("A1048576").End(xlUp)(2)
Set Source = ctiveSheet.Range("A2:K" & ActiveSheet.Range("A1048576").End(xlUp).Row)
Source.Copy Target
wbSource.SaveAs Mon_Rep & "Save_navettes\" & Fich, FileFormat:=xlCSV ' <== ce que je souhaite faire
wbSource.Close
Kill Mon_Rep & Fich
Fich = Dir
Wend
ActiveWorkbook.RefreshAll
MsgBox "j'ai fini ! "
End Sub |
Partager