worksheets verplaatsen naar nieuwe map met vba

[blueberry013]

hallo!

Ik zou graag 3 worksheets (Ishida, Mulipond en Manuele) verplaatsen van Werkmap "Planning" naar een nieuwe werkmap en blad 1, 2 én 3 vervangen door deze 3 sheets De nieuwe werkmap krijgt als naam:

Set Newbook = Workbooks.Add
With Newbook
.Title = "Planning"
.Subject = "Planning"
.SaveAs Filename:=naam3 & " " & naam2 & " " & Format(Date, "dd-mm") _
& " " & Format(Time, "hhumm") & ""

naam2 = nummerplanning.Value 'nummerplanning.value is een getal van 1-52
naam3 = "F:\Planning\Planning 2013\Week"

vb van een naam = "F:\Planning\Planning 2013\Week 3 14-01 16u25.xlsx = met locatie
naam die de werkmap heeft is dus in dit geval "Week3 14-01 16u25"
Naam is dus variabel...

Probleem is dat ik hem niet naar hier kan kopiëren...

Kan iemand me helpen?

 

[popipipo]

Ik denk dat je timeformaat niet goed is:

Format(Time, "hhumm")

Heb je het al zo geprobeerd?

Format(Time, "hhmm")

 

[blueberry013]

ja, maar dan komt er gewoon 1623... nogal verwarrend,
maar hoe kan ik mijn naam definiëren zodanig ik hem in die werkboek kan inwerken...

Ik had dit al opgenomen...

Windows("Planning.xlsm").Activate
Sheets(Array("Ishida", "Multipond", "Manuele")).Select
Sheets(Array("Ishida", "Multipond", "Manuele")).Move Before:=Workbooks( _
"Week 2 10-02 20u39.xlsx").Sheets(1)

Maar dat is enkel goed voor die werkboek, voor de volgende die hij creëert, is de naam anders... en ik weet niet hoe ik die "Week 2 10-02 20u39" als variabele moet definiëren...

 

[Roncancio]

Lijkt mij lastig zoeken met een naam waarin de huidige tijd staat.
Zodra je het bestand opslaat en je probeert 1 minuut later het bestand te openen dan kan VBA het bestand dus niet vinden.

Met vriendelijke groet,


Roncancio

 

[popipipo]

Nu weet je tenminste waaraan het ligt

Geen idee of het werkt maar probeer dit eens:

Format(Time, "hh") & "u"&Format(Time, "mm")

 

[blueberry013]

het creeëren van een nieuwe map is geen probleem... in principe het overzetten van de werkbladen ook niet. (als ik de naam van de map gebruik. als ik er een variabele van maak (want hij schrijft toch direct alles naar die nieuwe map) lukt dit niet...


Ik zoek eigenlijk een variabele voor de naam van mijn map... en dat lukt niet...

ik dacht al aan "week" & y & hier weet ik dus niet & hier weet ik het ook niet & ".xls"

 

[Roncancio]

Maar dat is enkel goed voor die werkboek, voor de volgende die hij creëert, is de naam anders... en ik weet niet hoe ik die "Week 2 10-02 20u39" als variabele moet definiëren...

Als variabele zou ik een String gebruiken.

Met vriendelijke groet,


Roncancio

 

[blueberry013]

Heb een beetje zitten proberen en heb denk ik wel het verhoopte resultaat...

Sheets(Array("Ishida", "Multipond", "Manuele")).Copy
ActiveWorkbook.SaveAs Filename:=naam3 & " " & naam2 & " " & Format(Date, "dd-mm") _
& " " & Format(Time, "hhumm") & ""

 

[blueberry013]

Heb een beetje zitten proberen en heb denk ik wel het verhoopte resultaat...

Sheets(Array("Ishida", "Multipond", "Manuele")).Copy
ActiveWorkbook.SaveAs Filename:=naam3 & " " & naam2 & " " & Format(Date, "dd-mm") _
& " " & Format(Time, "hhumm") & ""

Nu nog de pagina in mijn hoofdfile verwijderen en it's ok!!!