macro werkt niet meer in nieuwe versie

[Henk48]

Onderstaande macro's voor opslaan en het maken van een pdf heb ik in MS Office voor Mac 2011 gebruikt. Nooit problemen daarmee gehad. Sinds ik versie 2019 heb geïnstalleerd werken deze twee niet meer correct. Er wordt direct een venster getoond dat het bestand al bestaat terwijl dat niet zo is. Het lijkt er op dat bij beide macro's iets moet worden aangepast?

Macro voor Opslaan:

Function FileExists(ByVal AFileName As String) As Boolean
On Error GoTo Catch

FileSystem.FileLen AFileName

FileExists = True

GoTo Finally

Catch:
FileExists = False
Finally:
End Function

Sub Opslaan()
FacName = ActiveSheet.Range("B18").Value

If FileExists("Macintosh HD:Users:henk48ocuments:factuur:" & FacName & ".xlsm") Then
MsgBox "Dit bestand bestaat al."
Else
ActiveWorkbook.SaveAs Filename:= _
"Macintosh HD:Users:henk48ocuments:factuur:" & FacName & ".xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End If
End Sub



Macro voor PDF maken:

Function FileExists(ByVal AFileName As String) As Boolean
On Error GoTo Catch

FileSystem.FileLen AFileName

FileExists = True

GoTo Finally

Catch:
FileExists = False
Finally:
End Function

Sub pdfmaken()
'
'Dim FacName As String

FacName = ActiveSheet.Range("B18").Value ' De macro haalt met dit command het factuurnummer op in de factuur, om deze later als naam voor het PDF-bestand te gebruiken.

If FileExists("Macintosh HD:Users:henk48ocumentsdfjes:" & FacName & ".pdf") Then
MsgBox "Dit PDF bestand bestaat al."
Else
Range("A3:i49").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="Macintosh HD:Users:henk48ocumentsdfjes:" & FacName & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=True

End If
Range("A1").Select
End Sub

 

[VenA]

Zet de code tussen codetags. Het is nu onleesbaar.

 

[Henk48]

Macro voor Opslaan:

Function FileExists(ByVal AFileName As String) As Boolean
On Error GoTo Catch

FileSystem.FileLen AFileName

FileExists = True

GoTo Finally

Catch:
FileExists = False
Finally:
End Function

Sub Opslaan()
FacName = ActiveSheet.Range("B18").Value

If FileExists("Macintosh HD:Users:henk48ocuments:factuur:" & FacName & ".xlsm") Then
MsgBox "Dit bestand bestaat al."
Else
ActiveWorkbook.SaveAs Filename:= _
"Macintosh HD:Users:henk48ocuments:factuur:" & FacName & ".xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End If
End Sub

Macro voor PDF maken:

Function FileExists(ByVal AFileName As String) As Boolean
On Error GoTo Catch

FileSystem.FileLen AFileName

FileExists = True

GoTo Finally

Catch:
FileExists = False
Finally:
End Function

Sub pdfmaken()
'
'Dim FacName As String

FacName = ActiveSheet.Range("B18").Value ' De macro haalt met dit command het factuurnummer op in de factuur, om deze later als naam voor het PDF-bestand te gebruiken.

If FileExists("Macintosh HD:Users:henk48ocumentsdfjes:" & FacName & ".pdf") Then
MsgBox "Dit PDF bestand bestaat al."
Else
Range("A3:i49").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="Macintosh HD:Users:henk48ocumentsdfjes:" & FacName & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=True

End If
Range("A1").Select
End Sub

 

[VenA]

Het eerste bericht aanpassen was beter geweest. Zelf heb ik geen Mac maar mogelijk kan je hier wat vinden: https://www.rondebruin.nl/mac/mac008.htm