Backup maken

[Roma]

beste specialisten,

Ik heb een formule gemaakt om automatisch een backup te maken van een bestand.
Helaas geeft hij een foutmelding. Weet iemand wat ik fout heb gedaan.

Alvast bedankt.

 

[pasan]

kun je ook de code zelf hier neerzetten?

 

[Roma]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
 Application.ScreenUpdating = False
 Application.DisplayAlerts = False
With Sheets("Instellingen")
  If Len(Dir(sHoofdmap & .[F30], vbDirectory)) = 0 Then MkDir sHoofdmap & .[F30]
  If Len(Dir(submap & .[F31], vbDirectory)) = 0 Then MkDir subdmap & .[F31]
  
  ActiveWorkbook.SaveAs .[H16] & Format(.[H17], "dd-mm-yyyy") & "_backup.xlsm"
  ActiveWorkbook.SaveAs .[H16] & Format(.[H18], "dd-mm-yyyy") & ".xlsm"
  Application.DisplayAlerts = True
  End With
  End Sub

 

[edmoor]

Als je zegt een foutmelding te krijgen is het handig deze er hier ook bij te vermelden.
Daarnaast moet je FileFormat:=52 meegeven als je een document als .xlsm wilt opslaan.

 

[Roma]

De foutmelding is: Methode SaveAs van object_Workbook is mislukt.

 

[edmoor]

En heb je mijn suggestie in #4 al uitgevoerd?
Daarnaast kloppen je celverwijzingen voor de opbouw van pad- en bestandsnamen niet.

 

[Roma]

Beste Edmoor,
Bedankt voor je reactie. Hoe schrijf ik de formule in #4? ik snap deze niet

 

[edmoor]

Zo:
ActiveWorkbook.SaveAs .[H16] & Format(.[H17], "dd-mm-yyyy") & "_backup.xlsm", FileFormat:=52

Maar zoals gezegd, het zal nog niet werken omdat de opbouw van pad- en bestandsnaam niet correct is.
Kijk dat dus ook na.

 

[Roma]

Edmoor,
Super bedankt

 

[Roma]

Beste Edmoor,
Ik heb nog een vraagje.
De code:

   ActiveWorkbook.SaveAs .[H17] & Format(.[H16], "dd-mm-yyyy") & "_backup.xlsm", FileFormat:=52

wil ik graag dat hij elke dag een nieuwe backup maakt en de oude laat staan. Kan dat?

 

[edmoor]

In H16 heb je geen datum staan dus dat hele Format met "dd-mm-yyyy" doet niets. Maak er eens dit van:

ActiveWorkbook.SaveAs .[H17] & .[H16] & "_" & Format(Date, "dd-mm-yyyy") & "_backup.xlsm", FileFormat:=52

 

[Roma]

Edmoor,
Super, bedankt voor de tijd en inzet

 

[edmoor]

Graag gedaan