Rare code en uitbreiding hiervan

[Japsur]

Rare code??

Ik heb de volgende code in excel onder een commandbutton geplaatst:

Private Sub AOpslaan_Click()
Sheets("Afd. Atletiek").Select
Dim MyDate, MyFile, MyPath
MyPath = ("C:\Documents and Settings\mijn naam\Bureaublad")
MyDate = Format(Date, "dd-mm-yyyy")
MyFile = "Ledenlijst Afd. Atletiek" + " " + MyDate + ".xls"
ActiveWorkbook.SaveAs Filename:=MyFile, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
MsgBox ("Het nieuwe bestand is op het bureaublad geplaatst"), vbOKOnly
End Sub

Nou ja, denk je. Wat is hier fout aan. Tja, het rare is hij slaat het niet op bij MyPath, maar onder mijn documenten. Ook als ik een ander adres kies, gooit ie altijd alles naar mijn documenten.

Verder wil ik wanneer ik deze code heb gebruikt weer terug naar m'n 'oude' bestand, want nu vliegt ie op het nieuwe bestand en dat wil ik niet. Dus iets van dat ie het nieuwe opgeslagen bestand afsluit en het andere weer openent, maar dat lukt mij niet.

Heeft iemand een idee?

 

[snabbi]

voor het eerste gedeelte van je vraag zou ik zeggen doe eens:

MyPath = "C:\Documents and Settings\mijn naam\Bureaublad\"
MyDate = Format(Date, "dd-mm-yyyy")
MyFile = Mypath + "Ledenlijst Afd. Atletiek" + " " + MyDate + ".xls"

Nu staat namelijk in de bestandnaam ook de directory vermeld.

Voor het tweede gedeelte van je vraag. De oplossing ligt in het feit dat je een nieuw document moet openen. Dit nieuwe document moet dat gevuld worden vanuit je oude document en daarna opslaan en afsluiten.

 

[Japsur]

Van dat tweede kom ik nog steeds er niet uit , terwijl de eerste oplossing perfect werkt:thumb:

Kun je misschien wat concreter zijn met je antwoord > dmv een vba code of iets dergelijks??

Bvd

 

[Japsur]

Nou het is mij toch nog wel gelukt via een wat omslachterige manier.
Deze code heb ik nu uiteindelijk voor mijn opslaan gemaakt:

Private Sub AOpslaan_Click()
Sheets("Afd. Atletiek").Select
Cells.Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.19)
.RightMargin = Application.InchesToPoints(0.5)
.TopMargin = Application.InchesToPoints(0.13)
.BottomMargin = Application.InchesToPoints(0.13)
.HeaderMargin = Application.InchesToPoints(0.13)
.FooterMargin = Application.InchesToPoints(0.13)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 300
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
End With
Sheets("Blad1").Select
Sheets("Blad1").Name = "Afd. Atletiek"
Range("A5").Select
Dim MyDate, MyFile, MyPath
MyPath = "C:\Documents and Settings\Mijn naam\Bureaublad\"
MyDate = Format(Date, "dd-mm-yyyy")
MyFile = MyPath + "Ledenlijst Afd. Atletiek" + " " + MyDate + ".xls"
ActiveWorkbook.SaveAs Filename:=MyFile, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWorkbook.Close
MsgBox ("Het nieuwe bestand is op het bureaublad geplaatst"), vbOKOnly
End Sub