Mapnaam bij het maken van een PDF bestand

[SeringZH]

Is het ook mogelijk om een nieuwe map automatisch aan te maken bij het wisselen van het jaar.
Map D:\PDF Bestand\2019 wordt dan D:\PDF Bestand\2020
Het jaar wil ik dan ophalen uit een ander blad met Jaar(Vandaag))

SeringZH

 

[HSV]

In cel A1 het jaartal plaatsen.

Sub MaakMap()
 CreateObject("shell.application").Namespace("D:").newfolder "PDF Bestand\" & Range("A1").Value
End Sub

 

[SeringZH]

@HSV

Het aanmaken van een map lukt zo prima. Bedankt.
Nu ga ik dit nog uitproberen om het in een keer te doen met het opslaan van een PDf
misschien macro's koppelen?

SeringZH

 

[HSV]

Goed idee.

 

[SeringZH]

Hoe ik het nu moet doen om een PDF bestand automatisch in de juiste map te plaatsen zie ik nog niet.

SeringZH

 

[HSV]

Bv.

activesheet.exportasfixedformat 0, "D:\PDF Bestand\" & Range("A1").Value & "\testje.pdf"

 

[SeringZH]

Het begint me een beetje te duizelen.
Ik had het aanmaken van een pdf via de recorder gedaan en dat is nogal lang.
Met het laatste voorbeeld ziet het er een stuk overzichtelijker uit

Nu wordt er een map aangemaakt met mapnaam 2019
Daaronder staat het pdf bestand met de naam 2019
Verander ik het jaar in 2020, dan wordt dus 2020 / 2020
Hoe plaats ik het PDF bestand nu in de map met het jaar dat in een cel staat?
Het is dus de bedoeling dat dit automatisch gaat.

SeringZH

 

[HSV]

Bv.

0, "D:\pdf bestand\"&range("a1")&"\" &range("a2")&."pdf"

 

[SeringZH]

Het lukt me nog steeds niet.
waar staat Range("A2") voor?

 

[HSV]

Plaats het bestand eens zodat we niet over en weer hoeven schrijven.

 

[SeringZH]

Om te beginnen:

Hier een testbestandje
Op deze manier wordt er dus een map aangemaakt en staat het pdf bestand apart.

 

[HSV]

En zo krijgt de Pdf de naam uit cel A3 mee.

 ActiveSheet.ExportAsFixedFormat 0, "D:\PDF Bestand\" & Range("A1").Value [COLOR=#ff0000]& "\" & range("a3").value & ".pdf"[/COLOR]

 

[SeringZH]

Nu heb ik:
D:\PDF Bestand
Bij openen staat er een map 2019 met daar in een lege map Tekstbestand en de PDF eronder, dus niet in de map 2019

Wat ik dus wil is dat er een map wordt aangemaakt met het huidige jaar getal = Jaar(Vandaag()) en waarin de pdf's van dit jaar worden geplaatst.
In 2020 moet er dan weer een map worden aangemaakt waar de pdf's van dat jaar in worden opgeslagen
Misschien is het wel iets dat niet kan, maar dat weet ik juist niet.

 

[VenA]

Type je de code over en vergeet je dan iets of kopieer je deze?

Hier werkt het gewoon

 

[HSV]

Ik vermoed het eerste.

De rode tekst werd in het aangeleverde bestand ook al vergeten.

activesheet.exportasfixedformat 0, "D:\PDF Bestand\" & Range("A1").Value & [COLOR=#ff0000]"\testje.pdf"[/COLOR]

Tja, zo kan ik wel aan de gang blijven.

 

[SeringZH]

Sorry, ik was inderdaad wat vergeten....

Maar nu Code gekopieerd en naam aangepast.

IN D:\
PDF Bestand klik
Map 2019->Test.PDf->Leeg
PDF2019 en dit is dus de pdf

Het zou dus moeten wezen:
PDF Bestand->Test.PDF->PDF2019



Groet,
SeringZH

 

[HSV]

activesheet.exportasfixedformat 0, "D:\PDF Bestand\Test.pdf\PDF" & Range("A1").Value & "\testje.pdf"

 

[SeringZH]

Code overgezet, maar Fout 1004 niet opgeslagen.
Voor vandaag stop ik er mee. Zodra het werkt geef ik een berichtje.

SeringZH

 

[HSV]

Dat zal geen bericht worden vrees ik.

Wat is het mappenstructuur waarin het moet worden opgeslagen?
Dus niet met pijltjes werken maar aangeven met een backslash.

Bv.
D:\map1\map2\map3\2019\enbestandsnaam.pdf

Of heb je een Mac?

 

[SeringZH]

Geen Mac

D:\PDF Bestand\2019\ Deze map is leeg

Sorry dat het zo moeizaam gaat, maar ik weet nog steeds niet wat ik fout doe.

Groet

SeringZH