Onderstaande code werkt bij mij wel, alleen als er al een zelfde bestand bestaat en ik klik op annuleren of nee krijg ik: "Toegang tot het VBA project op programmeerniveau is niet betrouwbaar"), heeft iemand een idee hoe dat kan?
Private Sub KnopKopieOpslaanOpDatum()
'Kopie Opslaan van de Module op Basis van een Naam en Datum'
Dim MyDate, MyFile, MyPath
MyPath = ActiveWorkbook.Path
MyName = "Retouranalyse "
MyDate = Format(Date, "yyyymmdd")
MyFile = MyPath + "\" + MyName + MyDate + ".xls"
ActiveWorkbook.SaveAs Filename:=MyFile, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub
Thanks!
Private Sub KnopKopieOpslaanOpDatum()
'Kopie Opslaan van de Module op Basis van een Naam en Datum'
Dim MyDate, MyFile, MyPath
MyPath = ActiveWorkbook.Path
MyName = "Retouranalyse "
MyDate = Format(Date, "yyyymmdd")
MyFile = MyPath + "\" + MyName + MyDate + ".xls"
ActiveWorkbook.SaveAs Filename:=MyFile, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub
Thanks!
Laatst bewerkt: