Document openen en sluiten

[Paul-RT]

In een document "Leeg" klik ik na gegevens invullen op een command button.
Die zorgt ervoor dat het huidige document wordt opgeslagen met de naam van de waarde uit een cel.
Daarna moet het volgende gebeuren:
Een nieuw document "Leeg" moet worden geopend, en het huidige reeds ingevulde doc. moet sluiten.

Wat gebeurd er? Het nieuwe doc opent en vraagt errst om een waarde (dmv inputbox).
Hiernaa wordt het 2e commando uitgevoerd en beide docs gesloten.
Hoe los ik dit op?

Private Sub CommandButton1_Click()
  
  ThisWorkbook.SaveAs Filename:=Sheets("Apparaat").Range("K7").Value
  Workbooks.Open Filename:="F:\Microsoft Office 2003\Excel\Test exell HelpMij\Keurings Rapport nieuw.xls"
  Workbooks.Close Filename:=Sheets("Apparaat").Range("K7").Value
  
Geennummer:

  ThisWorkbook.Saved = True
End Sub

Als ik close en open verwissel, wordt het huidige document gesloten. Daarna is het open-commando niet meer beschikbaar en gebeurd er niets.
Is het mogelijk, aan te geven welk doc er gesloten gaat worden?

 

[Cobbe]

Waarom moet je deze volgorde aanhouden?
Je kunt toch het ingevulde sheet opslaan met naam uit K7
Wil je nog een sheet invullen maak je toch alle in te vullen cellen leeg.
En je slaat het blanco sheet op als sjabloon.

Cobbe

 

[WimenBeer]

De syntaxys voor Close van een specifiek bestand is

Workbooks("filename").Close

Succes
Wim

 

[Roncancio]

Sub Opslaan()
ThisWorkbook.SaveAs Filename:=Sheets("Apparaat").Range("K7").Value
 Workbooks.Open Filename:="F:\Microsoft Office 2003\Excel\Test exell HelpMij\Keurings Rapport nieuw.xls"
ThisWorkbook.close savechanges:=True
End Sub

Met vriendelijke groet,


Roncancio

 

[Paul-RT]

Waarom moet je deze volgorde aanhouden?
Je kunt toch het ingevulde sheet opslaan met naam uit K7
Wil je nog een sheet invullen maak je toch alle in te vullen cellen leeg.
En je slaat het blanco sheet op als sjabloon.

Cobbe

Staat reeds als "sjabloon" (leeg doc, read-only).
Waarom zo? Omdat er telkens een 100-tal of meer docs achter elkaar worden ingevuld.
Dus om de handelingen te beperken, 1 knop voor opslaan, leeg form openen en de huidige sluiten.

@ Roncancio: ik ga het proberen. Thanx.


Edit: Dat werkt Roncancio.
Ik heb alleen sub opslaan() gewijzigd in sub commandbutton1

Wederom veel thanx ! :thumb: