bestand opslaan als bestand reeds bestaad.

[Mart Thijssen]

Hallo,
Ik heb een macro in excel.
Deze macro bouwt een lijst op
In de macro staat ook een stuk waarin geregeld wordt, dat het bestand wordt opgeslagen.
Range("A1").Select
ActiveWorkbook.SaveAs Filename:="C:\Lijsten\8078_planningStam_Basis.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=True, CreateBackup:=False

Als bovenstaande wordt uitgevoerd, en het document bestaat reeds, dan krijg ik een bericht op mijn scherm:
Er bestaat in deze locatie al een bestand met de naam: C:\lijsten\8078_planningStam enz.
Wilt u dit bestand vervangen?
Ja Nee Annuleren.

Ik wil nu dat het systeem kiest voor ja opslaan.
Dan kan de macro nl. zelfstanding doorlopen.

Welke specialist kan mij helpen?

 

[Withaar]

SaveAs gebruik je normaal gesproken alleen de eerste keer (omdat er normaal gesproken een naam aan het bestand gegeven moet worden).
Daarna gebruik je in principe alleen nog maar ActiveWorkbook.Save

Vraag is dus hoe je hier mee om wilt gaan.
Staat de naam van het bestand ergens in je sheet kan je een marco maken die,
1. bij de eerste keer deze naam gebruik.
2. bij elke volgende keer opslaan controleerd of de file naam al bestaat en dan alleen een save doet.
(N.b. een kant en klare oplossing, lees macro, heb in niet voor je...)

Of je geeft zelf altijd na de eerste keer opvoeren het bestand een naam en gebruikt alleen de ActiveWorkbook.Save in je macro.

 

[vrir]

Het is wel mogelijk.
Voeg aan het begin "Application.DisplayAlerts = False" en aan het einde "Application.DisplayAlerts = True" toe.

Dus:

Application.DisplayAlerts = False
Range("A1").Select
ActiveWorkbook.SaveAs Filename:="C:\Lijsten\8078_planningStam_Basis.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=True, CreateBackup:=False
Application.DisplayAlerts = True

Dat moet 't doen.

 

[Withaar]

Heb even een macro gemaakt die optie 1 uitvoerd.

Sub Macro1()
'
' De macro is opgenomen op 10-6-2004 door --.

' Controleer of bestand bestaat
If Dir("C:/Lijsten/" & Range("A1") & ".xls") = Range("A1") & ".xls" Then

' MsgBox ("File komt voor")
ActiveWorkbook.Save

Else
'MsgBox ("File niet gevonden")
ActiveWorkbook.SaveAs Filename:="C:\Lijsten\" & Range("A1") & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=True, CreateBackup:=False

End If

End Sub

Bestandsnaam moet in cel A1 staan (deze waarde wordt gebruikt), wil je een andere cel gebruiken moet je overal waar A1 staat deze vervangen met de cel coordinaten van de cel die je hiervoor wilt gebruiken.