Opretten mappe som filen skal gemmes under

Hej eksperter.

Jeg sidder lige med et vba program, hvor jeg gerne vil have det sådan at den laver en mappe som filen skal gemmes under. Når jeg trykker på kommando kanppen udskriv og gem.

Formuleret på en anden måde.

Det står et naven i felt b4 Som skal være den mappe der skal oprettes op Hd.

F.eks. Faktura\excelfakturaDB\bent hansen\faktura_1

Har styr på det meste af det, det er bare lige det med at den skal lave en mappe inden den gemmer der volder problemer. Hvis mappen findes skal den bare se bort fra at lave en.

Ligger lige den del at programmet det jeg har fundet ud af indtil vider. :-)

Private Sub CommandButton1_Click()


'Gem og udskriv faktura

Const xsti = "e:\Faktura\excelfakturaDB\"      'tilpasses
Dim nummer
Dim kunde
  On Error Resume Next

Range("A1:D55").PrintOut ' skal sættes aktiv når prg overdrages
  Range("B48") = " K O P I " ' skriver kopi i cellen og sættes aktiv ved lev.
  Range("A1:D55").PrintOut  ' sættes aktiv ved lev
  Range("B48") = ""  ' fjerner kopi igen  , sættes aktiv ved lev.

nummer = ActiveWorkbook.Sheets(1).Cells(8, 4)  'skal tilpasses
  kunde = ActiveWorkbook.Sheets(1).Cells(4, 2)
 
  ActiveWorkbook.SaveAs Filename:= _
  "e:\Faktura\excelfakturaDB\" + CStr(kunde) + "\faktura_" + nummer + ".xls", FileFormat:=xlNormal, _
  Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
  CreateBackup:=False
Workbooks.Open Filename:= _
        "e:\Faktura\excelfakturaDB\Laves auto faktura190807(færdig)_1.xlt" ' ret til den fil du åbner ved ny faktura


  ThisWorkbook.Saved = True
  ActiveWorkbook.Close


End Sub