Macro om te controleren of een bestand bestaat op de Mac

[Henk48]

Ik heb een macro gemaakt waarmee ik een factuur in Excel kan opslaan met als naam het factuurnummer in B18.
Dat werkt prima maar slaat direct op. Ik wil er een voorwaarde inbouwen dat de macro eerst kijkt of het bestand al bestaat en zo ja dat even vermeldt in een messagebox.
Ik werk met Office 2011 op een iMac.

Dit is de code voor het opslaan die ik heb:

Sub Opslaan()
    FacName = ActiveSheet.Range("B18").Value
    ActiveWorkbook.SaveAs Filename:= _
        "Macintosh HD:Users:henk48:Documents:facturen:" & FacName & ".xlsm" _
        , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

Weet iemand een oplossing voor mijn probleem?

 

[edmoor]

Een voorbeeldje:

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 Test()
  If FileExists("Macintosh HD:Users:henk48:Documents:facturen:" & FacName & ".xlsm") Then
    MsgBox "Bestand bestaat"
  Else
    MsgBox "Bestand bestaat niet"
  End If
End Sub

Hou er wel rekening mee dat je tegen een bug in Office 2011 aan kunt lopen die hier beschreven staat:
http://answers.microsoft.com/en-us/...d9?msgId=644b9f20-251b-46fe-8df3-f5a28a1c37f6

 

[Henk48]

Dat werkt perfect!
Heel veel dank voor deze snelle hulp!!