Opslaan op de juiste plaats

[svekkes]

Aan allen,

Ik heb hier een stukje code om een pdf file op te slaan vanuit excell.

FilenameStr = Application.DefaultFilePath & "\" & _
        Format(Now, "dd-mmm-yy h-mm-ss") & ".pdf"

Maar ik zou deze nu graag ergens anders opslaan en een andere naam willen geven. Hoe moet ik dit doen? De naam verwijst naar een cel (factuurnummer).

Dit zou de locatie moeten worden: F:\Sven\Facturen\"Fct(factuurnummer)"

Alvast bedankt.

 

[Roncancio]

Aan allen,

Ik heb hier een stukje code om een pdf file op te slaan vanuit excell.

FilenameStr = Application.DefaultFilePath & "\" & _
        Format(Now, "dd-mmm-yy h-mm-ss") & ".pdf"

Maar ik zou deze nu graag ergens anders opslaan en een andere naam willen geven. Hoe moet ik dit doen? De naam verwijst naar een cel (factuurnummer).

Dit zou de locatie moeten worden: F:\Sven\Facturen\"Fct(factuurnummer)"

Alvast bedankt.

Het huidige bestand wordt opgeslagen in de directory F:\Sven\Facturen\"Fct(factuurnummer). Het krijg de naam van wat er in cel A1 van het 1e werkblad staat.

If Worksheets(1).Range("A1").Value<>"" Then
ActiveWorkbook.SaveAs "F:\Sven\Facturen\Fct(factuurnummer)\" & Worksheets(1).Range("A1").Value & ".pdf"
End If

Met vriendelijke groet,


Roncancio