automatisk genåbning af activworkbook

Private Sub CommandButton1_Click()

Const xsti = "g:\Faktura\excelfakturaDB\"      'tilpasses
Dim faktNr
  On Error Resume Next
  Range("A1:D55").PrintOut copies:=2, Collate:=True
 
  faktNr = ActiveWorkbook.Sheets(1).Cells(8, 4)  'skal tilpasses
 
  ActiveWorkbook.SaveAs Filename:= _
  "g:\Faktura\excelfakturaDB\faktura_" + CStr(faktNr) + ".xks", FileFormat:=xlNormal, _
  Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
  CreateBackup:=False
 
Rem Opdater fakturaNr
  faktNr = faktNr + 1
 
  Open xsti + "næsteFakturaNr.txt" For Output As #1
  Write #1, faktNr
  Close #1
 
 
  AvtiveWorkbook.Close
 
End Sub

Lagde lige vba kode ud afligevel da det måske kunne hjælp, til at finde ud af hvordan det evt. kunne laves.

Hvad hedder den du skal åbne: ??

Private Sub CommandButton1_Click()

Const xsti = "g:\Faktura\excelfakturaDB\"      'tilpasses
Dim faktNr
  On Error Resume Next
  Range("A1:D55").PrintOut copies:=2, Collate:=True

  faktNr = ActiveWorkbook.Sheets(1).Cells(8, 4)  'skal tilpasses

  ActiveWorkbook.SaveAs Filename:= _
  "g:\Faktura\excelfakturaDB\faktura_" + CStr(faktNr) + ".xks", FileFormat:=xlNormal, _
  Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
  CreateBackup:=False

Rem Opdater fakturaNr
  faktNr = faktNr + 1

  Open xsti + "næsteFakturaNr.txt" For Output As #1
  Write #1, faktNr
  Close #1

Workbooks.Open Filename:= _
        "C:\skabelon.xls"' ret til den fil du åbner ved ny faktura

  ThisWorkbook.Close

End Sub

Det virker godt nok. Men den kommer og spørger om ændringer i faktura skal gemmes. Kan man undgå at den kommer og spørger om det ?

sæt denne linie

ThisWorkbook.Saved = True

ind lige over

ThisWorkbook.Close

et svar ;-))

Tak hjælpen. :)