laten checken of een file al bestaat

[universe]

Hij moet controleren of die file al bestaat, zoja. dan moet de macro eindigen.

Hij geeft een error bij de 1e regel

If Dir("D:\Documents and Settings\user1\Desktop\2007\" _
            & dAuditNummer & ".xls" <> dAuditNummer & ".xls") Then
              
        ActiveWorkbook.SaveAs Filename:="D:\Documents and Settings\user1\Desktop\2007\" _
        & dAuditNummer & ".xls"
                      
                    
    Application.ScreenUpdating = True
    
    Unload UserForm1
    
    mOk_rapport = MsgBox("Auditrapport " & dAuditNummer & " succesvol gecreeërd.", vbOKOnly)
    
Else

MsgBox "Auditrapport " & dAuditNummer & " bestaat al." & vbCrLf & _
"Het is niet toegestaan om een bestaande auditrapport te overschrijven. "

Foutmelding = True


End If

End Sub

de variabele dAuditnummer is van tevoren gedfineerd.
Wat gaat hier fout ??

 

[Wigi]

Het haakje op regel 2 staat volgens mij verkeerd.

 

[universe]

dat was het foutje .

Hij moest voor het ongelijk aan teken staan.

danku:thumb: