Ik heb deze gevonden en wil hem ook graag gebruiken , echter met een verwijzing naar een naam die in het bestand aangemaakt word ( Bijvoorbeeld Blad1 cel a1) Dit is de naam van de klant
en dan opslaan als.
Ik ben er mee aan het stoeien geweest maar het is me niet gelukt.
Public Sub KnopKopieOpslaanOpDatum()
'Kopie Opslaan van de Module op Basis van een Naam en Datum'
Dim MyDate, MyFile, MyPath
MyPath = ActiveWorkbook.Path
MyName = "TestKopieOpslaan "
MyDate = Format(Date, "yyyymmdd")
MyFile = MyPath + "" + MyName + MyDate + ".xls"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=MyFile, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub
en dan opslaan als.
Ik ben er mee aan het stoeien geweest maar het is me niet gelukt.
Public Sub KnopKopieOpslaanOpDatum()
'Kopie Opslaan van de Module op Basis van een Naam en Datum'
Dim MyDate, MyFile, MyPath
MyPath = ActiveWorkbook.Path
MyName = "TestKopieOpslaan "
MyDate = Format(Date, "yyyymmdd")
MyFile = MyPath + "" + MyName + MyDate + ".xls"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=MyFile, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub