Save workbook fout Object Filename:=fileSaveName

[Esducsafe]

@Helpers
In onderstaande code gaat er iets bij of na regel “ActiveWorkbook.SaveAs Filename:=strFileName” fout. Bij annuleren, als de file al bestaat, moet de code stoppen. Geprobeerd zelf de oplossing te vinden, maar ik kom er niet uit hoe de code aangevuld moet worden. Heeft iemand een idee? Alvast bedankt.
Esko

Private Sub CommandButton3_Click() 
Dim strFileName As Variant 
Dim strPath As String 
On Error Resume Next 
 ActiveSheet.Unprotect Password:="" 
    strFileName = Application.GetSaveAsFilename(InitialFileName:=strPath & strFileName, _ 
    FileFilter:="Excel Files (*.xls), *.xls, Excel 2007 Files (*.xlsm), *.xslm", _ 
          FilterIndex:=1, _ 
          Title:="Opslaan ….selecteer Map") 
       ActiveWorkbook.SaveAs Filename:=strFileName ''  AccesMode as XlSaveAsAccessMode = xlNoChange 
        
          
    If strFileName = False Then 
 MsgBox "Een nieuw werkexemplaar" & vbCrLf & _ 
        "is nog niet aangemaakt!" & vbCrLf & _ 
        "Herhaal zonodig alle stappen.", vbInformation + vbExclamation, "Aanmaak Titel 
    Exit Sub 
  Else 
  Application.ScreenUpdating = False 
   ActiveWorkbook.SaveAs Filename:=strFileName 

    MsgBox "Het aanmaken van een nieuwe file" & vbCrLf & _ 
    "En wordt als volgt opgeslagen." & strFileName, vbInformation + vbExclamation, "Opslaan Titel" 
  End If

 

[Warme bakkertje]

Probeer het eens op deze manier

Private Sub CommandButton3_Click()
Dim strFileName As Variant
Dim strPath As String
On Error Resume Next
ActiveSheet.Unprotect Password:=""
strFileName = Application.GetSaveAsFilename(FileFilter:="Excel Files (*.xls), *.xls, Excel 2007 Files (*.xlsm), *.xslm", _
          FilterIndex:=1, _
          Title:="Opslaan ….selecteer Map")
If strFileName = False Then
    MsgBox "Een nieuw werkexemplaar" & vbCrLf & _
        "is nog niet aangemaakt!" & vbCrLf & _
        "Herhaal zonodig alle stappen.", vbInformation + vbExclamation, "Aanmaak Titel "
    Exit Sub
Else
    MsgBox "Het aanmaken van een nieuwe file" & vbCrLf & _
    "En wordt als volgt opgeslagen." & strFileName, vbInformation + vbExclamation, "Opslaan Titel"
End If
ActiveWorkbook.SaveAs Filename:=strFileName
End Sub

 

[Esducsafe]

@Warme bakkertje
Bedankt voor je reactie. Helaas is de foutmelding niet weg, maar verschijnt later.
Zie bijlage.
groet,
Esko

 

[Warme bakkertje]

Voor mij werkt dit perfect

 

[Esducsafe]

Beste Rudi,
Je hebt helemaal gelijk. Thuis gekomen je bericht gelezen en waarrempel geen fout meer.
Geen idee waarom ik meende, dat de macro niet werkte.Blijkbaar zitten te slapen.
Nogmaals bedankt.
Met vriendelijke groet
Esko