Sub RenommeCSV_II()
Dim sRepSource$, sRepDest$, oFSO, oFile
sRepDest = "D:\Documents\STATS\"
If sRepDest = "" Then
Exit Sub
End If
Set oFSO = CreateObject("Scripting.FileSystemObject")
For Each oFile In oFSO.GetFolder(sRepDest).Files
If LCase(oFSO.GetExtensionName(oFile.Name)) = "xls" Then
oFile.Copy sRepDest & Replace(oFile.Name, ".xls", ".csv")
End If
Next oFile
Set oFSO = Nothing
'Kill "D:\Documents\STATS\*.XLS"
End Sub