popipipo
Meubilair
- Lid geworden
- 21 nov 2006
- Berichten
- 8.425
Ik heb een bestandje wat automatisch een backup maakt in een backupmap.
Bestaat die map niet dan komt er een foutmelding.
Zou deze fout melding kunnen vervangen worden door een melding
"Er is geen backup gemaakt omdat er geen backup map bestaat."
In Cel A1 staat de formule:
Bestaat die map niet dan komt er een foutmelding.
Zou deze fout melding kunnen vervangen worden door een melding
"Er is geen backup gemaakt omdat er geen backup map bestaat."
Code:
Sub opslaan()
Dim mydate
Application.ScreenUpdating = False
Application.DisplayAlerts = False
mydate = Format(Date, "yyyy-mm-dd")
ActiveWorkbook.Save
ActiveWorkbook.SaveAs Filename:=Range("A1").Value & "forum test - kopie " & mydate & ".xlsm"
??????????????????????????????????
MsgBox ("Er is geen backup gemaakt omdat er geen backup map bestaat.")
Application.ScreenUpdating = True
ActiveWorkbook.Close
End Sub
In Cel A1 staat de formule:
Code:
=LEFT(CELL("filename");FIND("[";CELL("filename"))-1)&"backup\"