XL 2016 Sauvgarder un fichier sur Mac

isabelle29

XLDnaute Nouveau
Bonjour à tous,
S'il vous plait comment je vais faire pour faire fonctionner ce code sur mac
VB:
Sub e()
Dim ch As String
ch = Range("a1")
Workbooks.Add
ActiveWorkbook.SaveAs ch

End Sub
 

job75

XLDnaute Barbatruc
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 :
VB:
Sub e()
Dim ch As String
ch = Replace(Range("a1"), "\", Application.PathSeparator)
Workbooks.Add
ActiveWorkbook.SaveAs ch, xlOpenXMLWorkbook 'extension .xlsx
End Sub
 

Discussions similaires


Haut Bas