Fout bij opslaan

[S.Teeling]

Goedendag,

ik gebruik onderstaande code om een Excel sheet op te slaan. Ik klap echter uit Excel wanneer ik het file nogmaals onder hetzelfde bestand wil opslaan. De cel verwijzingen gaan naar wat variabelen in het sheet, o.a. username, naam van het project, jaar enz.
Heeft iemand een idee hoe ik deze fout kan afvangen ?

Verder zou ik de C16 enz. graag vervangen door de 'namen' van de cel, weet iemand hoe ik deze in onderstaande string kan plaatsen.

ActiveWorkbook.SaveAs Filename:= _
"F:\Holding\01 - VOORCALCULATIES\" & [C16] & "\Voorcalcullaties " & [AD198] & "\VC_" & [F16] & " - " & [C22] & " - " & [B4]

 

[jheesterbeek]

Als de file al bestaat, kies je voor opslaan, anders voor opslaan als:

Sub test()
If Dir("C:\ForumTest\Test.xls") = "" Then
ActiveWorkbook.SaveAs Filename:="C:\ForumTest\Test.xls"
Else
ActiveWorkbook.Save
End If
End Sub

 

[S.Teeling]

Bedankt, ik zal het inpassen in het sheet.