Methode Save van object_ Workbook is mislukt

[robdgr]

Vergelijkbare code werkt bij mij prima onder 2010, maar onder 2003 krijgt de gebruiker de foutmelding: "Fout 1004 tijdens uitvoering: Methode Save van object_ Workbook is mislukt. Met een ‘blinde’ knop Doorgaan, en drie actieve knoppen: Beëindigen, Foutopsporing en Help"

Wat en waarom gaat het hier goed en daar fout?

Sub Opslaan_Hans()

Application.ScreenUpdating = False

Aanvulling = Application.InputBox(prompt:="Waarom wordt deze wijziging doorgestuurd?", Type:=2)

Application.DisplayAlerts = False
    ActiveWindow.ScrollRow = 2
    [F2].Select
    ActiveWorkbook.SaveAs Filename:= _
        "E:\IVN Lunteren-Barneveld\administratie leden & donateurs\" & Year(Date) & "-" & Format(Month(Date), "00") & "-" & Format(Day(Date), "00") _
        & " Lijst relaties IVN Barneveld.xls" _
        , FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
Application.DisplayAlerts = True
    
With CreateObject("Outlook.Application").createitem(0)
    .to = "test@test.nl"
    .Subject = "Nieuwe adressenlijst " & Year(Date) & "-" & Format(Month(Date), "00") & "-" & Format(Day(Date), "00") & " IVN Barneveld"
    .Body = "Rob," & vbNewLine & vbNewLine & "Bijgaand weer een nieuwe versie van onze adressenlijst met de datum " _
    & Format(Date, "d mmmm yyyy") & ", " & Format(Time, "hh:mm") & " uur met weer een of meer mutaties. " & Aanvulling & vbNewLine & _
    "Heb je vandaag al meer exemplaren ontvangen, dan geeft de tijd de meest actuele versie aan." & vbNewLine & vbNewLine _
    & "Met vriendelijke groet," & vbNewLine & vbNewLine & "Hans"
    .attachments.Add ThisWorkbook.FullName
    .Send
End With


Application.ScreenUpdating = True

ActiveWorkbook.Save
ActiveWorkbook.Close
    
End Sub

 

[snb]

Sub Opslaan_Hans()
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False

  Aanvulling = Application.InputBox("Waarom wordt deze wijziging doorgestuurd?", Type:=2)

  c00="E:\IVN Lunteren-Barneveld\administratie leden & donateurs\" & Format(Date, "yyyy-mm-dd") & " Lijst relaties IVN Barneveld.xls" 

  if application.version="14.0" then
     ActiveWorkbook.SaveAs c00 , 56
  else
     ActiveWorkbook.SaveAs c00
  end if

 

[robdgr]

snb dank. Ga morgen kijken en moet de reactie van mijn 'collega' daarna even afwachten.

 

[snb]

de constante xlExcel8 (56) bestond nog niet in 2003. Fileformat was toen 'optioneel', in 2010 'vereist'.

 

[robdgr]

Het werkt nu aan beide kanten. :thumb: