XL 2016 Sauvgarder un fichier sur Mac

[isabelle29]

Bonjour à tous,
S'il vous plait comment je vais faire pour faire fonctionner ce code sur mac

Sub e()
Dim ch As String
ch = Range("a1")
Workbooks.Add
ActiveWorkbook.SaveAs ch

End Sub

 

[job75]

Bonjour isabelle29,

Sur Mac le séparateur dans le chemin n'est pas l'antislash \ , de plus il vaut mieux préciser le format du fichier :

Sub e()
Dim ch As String
ch = Replace(Range("a1"), "\", Application.PathSeparator)
Workbooks.Add
ActiveWorkbook.SaveAs ch, xlOpenXMLWorkbook 'extension .xlsx
End Sub