KnopKopieOpslaanAls

[hpc]

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

 

[Jan van Asseldonk]

Pas het volgende aan:
MyFile = MyPath + "" + MyName + MyDate + ".xls"

naar

MyFile = MyPath & "\" & MyName & MyDate & ".xls"

Dan zou het wel moeten lukken.

 

[Relleboer]

Bedankt

Het werkt idd. Ik had toevallig zoiets nodig dus de vraag en antwoord kwamen precies op tijd voor mij.