SaveAs med mulighed for at definere hvor arket skal gemmes.

Sub SaveInNewDirectory()
Dim varFname As Variant
  ChDrive "D"
  ChDir "D:\Temp"
  varFname = Application.GetSaveAsFilename(ThisWorkbook.Name, _
      "Excel Files (*.xls),*.xls")
  If varFname = False Then Exit Sub
  ThisWorkbook.SaveAs varFname
End Sub

du kan skrive  CrDir WorkSheets(" Bestilling").Range("G9")
:-) www.smartoffice.dk

Hej Flemming.

Den første del af koden var lige det jeg søgte. Jeg har dog svært ved lige at placere hvor den sidste del (CrDir WorkSheets(" Bestilling").Range("G9")) skal sættes ind.

Hvad står der i G9 cellen ?

Der står et bestillingsnummer - Som bestilleren selv taster ind.

OK - så skulle noget alla dette her være nok

Sub SaveInNewDirectory()
  ChDrive "D"
  ChDir "D:\Temp\"
  ThisWorkbook.SaveAs WorkSheets(" Bestilling").Range("G9") & ".xls"
End Sub

Den sidste kode åbner ikke dialog boksen, sådan som jeg egentlig ville (Det gjorde den første. Den har samme effekt som min oprindelige kode. - Den førse virkede sk*"e godt - dog uden at indsætte "Bestilling" + "G9"  - som ville være prikken over i'et.

Undskyld - det skrottede jeg lige :-)

Sub SaveInNewDirectory()
Dim varFname As Variant
Dim sFileName As String
  ChDrive "D"
  ChDir "D:\Temp"
  sFileName = WorkSheets(" Bestilling").Range("G9") & ".xls"
  varFname = Application.GetSaveAsFilename(sFileName, _
      "Excel Files (*.xls),*.xls")
  If varFname = False Then Exit Sub
  ThisWorkbook.SaveAs varFname
End Sub

Her en kode der åbner Gem som dialogboksen:

Sub GemSom()

    Application.Dialogs(xlDialogSaveAs).Show

End Sub

Det lige som det skal - man får jo tårer i øjnene når tingene virker

Det virker!

:-)

Jeg citerer lige dit spørgsmål:
Er det muligt at lave en kode der åbner Gem Som dialog boksen?

Her er koden:
Application.Dialogs(xlDialogSaveAs).Show

- lidt sjovt at svaret blev afvist *S*

Næ - læs nu endelig videre og forstå problemstillingen... "Men vil gerne kunne definere hvor arket skal gemmes."

...Det er rigtigt hvad rvm siger - man kan jo rent faktisk selv definere hvor man vil gemme, når man har fået åbnet dialogboksen. Men når ret skal være ret så synes jeg nu at Flemming havde fortjent pointene. Det må du da være enig i?

Jeg syntes også Flemmings løsning var god og har intet imod at han har fået pointene *SS*