Grazie, ecco il codice :

Dim myExcel As Excel.Application

ApriFile.InitDir = strPercorso
ApriFile.FileName = ""
ApriFile.Filter = "*.xls"
ApriFile.ShowOpen
strPercorso = ApriFile.FileName
Set myExcel = New Excel.Application
myExcel.Workbooks.Open strPercorso
myExcel.Worksheets("Francia").Select
myExcel.SendKeys "{TAB}+{ENTER}"
myExcel.ActiveSheet.SaveAs strPercorso + "CSV\" & "Francia.csv", xlCSV
myExcel.Workbooks.Close
myExcel.Quit