Macro bestand copie

[Imod]

Hoe kan ik een geopend excel bestand met een macro onder een knop kopieren in dezelfde map waar de 1e in staat en met een zelfde naam met een cijfer 2 erachter.
De 1e moet ook geopend blijven.
Dus Pietersen moet dus Pietersen2 worden in dezelfde map en beiden open.

 

[Warme bakkertje]

Al eens gekeken bij SaveCopyAs ?

 

[Imod]

Deze geef een fout aan:

Sub Kopie_opslaan()
ChDir "F:\Docs\Bedrijfsgegevens\Klanten\AA uren briefjes"
ThisWorkbook.SaveCopyAsRange("J1").Value& ".xls"
End Sub

Wat doe ik fout
Copy opslaan in F:\Docs\Bedrijfsgegevens\Klanten\AA uren briefjes
Met naam uit cel J1

 

[Warme bakkertje]

Sub Kopie_opslaan()
sPath = "F:\Docs\Bedrijfsgegevens\Klanten\AA uren briefjes\"
ThisWorkbook.SaveCopyAs sPath & [J1] & ".xls"
End Sub

 

[Imod]

Hallo Rudi,

Dit werk geheel goed,
1 aanvulling nog,
Als je dit nieuwe bestand ook gelijk open wil hebben om te bewerken,
Welke regel moet ik dan toevoegen,

Mij dank alvast

 

[Warme bakkertje]

Workbooks.Open sPath & [J1] & ".xls"

 

[Imod]

Hallo Rudi,

Dit werkt ook goed,
Had ik nog 1 vraag:
Ik heb nu een vast pad erin staan,
Is het ook mogelijk om een pad te nemen waaruit het te copieren bestand komt zonder
het pad letterlijk in de macro te zetten.
Ik heb ook bestanden die sla ik op per klant - deze open ik weer.
Dit bestand heeft dus steeds een ander pad.

 

[Warme bakkertje]

Dan zal je ofwel moeten werken met een dialoogvenster waarin je de directory handmatig selecteerd, of je hebt naar ik vermoed toch een basisdirectory die je kan vermelden in je macro en dan via een celwaarde de klantdirectory inlezen bv
F:\blablabla\celwaarde(klantnaam)\celwaarde(klantbestand) & ".xls"

 

[Imod]

Ik heb nog wat gestoeit met de code

Sub Kopie_opslaan()
Dim Locatie
Locatie = ActiveWorkbook.Path & "\" & Range("K1") & ".xls"
ActiveSheet.Copy
With ActiveWorkbook
.SaveAs Locatie
End With
End Sub

Deze werkt goed - 2e bestand blijft ook open staan - indien deze sluiten dan extra regel
.Close na .SaveAs Locatie

Bedankt voor de hulp