Prova con le modifiche in grassetto

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.DisplayAlerts = False
  myExcel.ActiveSheet.SaveAs strPercorso + "CSV\" & "Francia.csv", xlCSV
  myExcel.DisplayAlerts = True
  myExcel.Workbooks.Close
  myExcel.Quit