Microsoft 365 excel vers mac

[snow88140]

bonjour j'ai crée un fichier pour mon frère sur excel pc. mais il utilise un mac...
apparemment la conversion ne pose pas de problème hormis pour les macros.
j'en ai une dans mon fichier pour enregistrer en pdf sauriez vous comment l’écrire pour qu'elle puisse s'appliquer aussi sur mac?

Sub Macro2()
ChemFich = Application.GetSaveAsFilename(FileFilter:=" PDF Files (*.pdf), *.pdf")
If ChemFich = "" Then Exit Sub
ActiveSheet.PageSetup.PrintArea = "$B:$O"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ChemFich & "", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub

 

[job75]

Bonjour snow88140,

Ceci ne posera pas de problème sur MAC :

Sub Macro2()
Dim chemin$, fich$
chemin = ThisWorkbook.Path & Application.PathSeparator 'à adapter
fich = InputBox("Nom du fichier PDF sans extension :", "PDF")
If fich = "" Then Exit Sub
ActiveSheet.PageSetup.PrintArea = "$B:$O"
ActiveSheet.ExportAsFixedFormat xlTypePDF, chemin & fich, OpenAfterPublish:=True
End Sub

A+

 

[snow88140]

ok merci beaucoup!!