Microsoft 365 excel vers mac

snow88140 · 13 Juillet 2020

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 · 13 Juillet 2020

Bonjour snow88140,

Ceci ne posera pas de problème sur MAC :

VB:

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 · 13 Juillet 2020

ok merci beaucoup!!

Microsoft 365 excel vers mac

snow88140

XLDnaute Nouveau

job75

XLDnaute Barbatruc

snow88140

XLDnaute Nouveau

Discussions similaires