Opslaan van een bestand via VBA (excel sluit het bestand vervolgens)

[allard1]

Vrienden,

Met een beetje van mezelf en een beetje van Maggi (lees Helpmij), ben ik tot de volgende code gekomen

Private Sub opslaan()
Dim datum As Date
Application.DisplayAlerts = False
datum = Date
Set fs = Application.FileSearch
With fs
.LookIn = "H:\MijnDocs\excel dingetjes\Bestand opslaan en verwijderen"
.Filename = "Test" & datum & ".xls"
End With
With CreateObject("Scripting.FileSystemObject")
If .Fileexists("H:\MijnDocs\excel dingetjes\Bestand opslaan en verwijderen\Test" & datum & ".xls") Then
Exit Sub
Else
ActiveWorkbook.SaveAs "Test" & datum & ".xls", , , , , , xlShared
End If
End With
Application.DisplayAlerts = True
End Sub

Heb ik een stukje code geschreven welke tot op zekere hoogte perfect werkt. Maarrrrrr, aan het einde van de code wordt het werkblad gesloten en het opgeslagen werkblad geopend. Het is de bedoeling dat er een back up wordt gedraaid (wanneer dit plaats moet vinden, is nog een discussiepunt)..... Wie weet waarom dit gebeurt, ik heb al vanalles geprobeerd, maar ikz it vast.

Groet,
Allard