excel file opslaan in bepaalde map als PDF file.

[2000syd]

Hoy iedereen,
een jaartje geleden hebbe jullie mij hier zeer goed geholpen ivm een excel file mat macro's en formules te maken.
Nu word steed deze in de verkeerde map opgeslagen. Het moet in de map "facturen 2016" in plaats van "facturen 2015".
Kan mij hier iemand bij helpen aub? Ik weet helemaal niet meer hoe ik dat toen gedaan heb..

 

[CorVerm]

Je zult het volgende moeten aanpassen naar 2016

Padnaam = "C:\users\nico\desktop\brenco-technics\facturen\facturen [COLOR="#FF0000"]2015[/COLOR]\"

 

[Ginger]

Tip... Maak voor dit soort bestanden een extra sheet met bijvoorbeeld de naam "instellingen". Hierin kan je dan het pad zetten waar je bestand (of deel van het bestand) moet worden opgeslagen. Zo hoef je nooit in de code te "rommelen" als je ipv iets hard gecodeerd, het eea gewoon uit een instelling haalt. Als je de cel waarin de instelling staat dan ook nog 'ns een Naam geeft, ben je helemaal flexibel.

Dus in de sheet "instellingen" zet je in cel B1 het pad C:\users\nico\desktop\brenco-technics\facturen\facturen 2015\ (in cel A1 zet je dan de omschrijving van die instelling). De cel B1 benoem (= NamedRange (naam bereik)) je dan bijvoorbeeld als rngPadPdf. In de code wordt dan je verwijzing:

Padnaam = [rngPadPdf]

 

[edmoor]

Ik zou gaan voor de tip van Ginger, maar dit kan ook:

Padnaam = "C:\users\nico\desktop\brenco-technics\facturen\facturen " & Year(Range("B11")) & "\"

In beide gevallen is het wellicht handig om in VBA te controleren of de betreffende map wel bestaat en zoniet, deze aan te maken.

 

[2000syd]

Hoy,
bedankt voor jullie antwoorden,
Maar hoe geraak ik daar waar ik dit moet veranderen? ? Dat weet ik nimeer.
Greets Nico

 

[edmoor]

Druk op de toetscombinatie ALT+F11 om in de VBA editor te komen.

 

[Warme bakkertje]

Of als het gewoon jaarlijks moet aangepast worden.
En met onderste regel controle op aanwezigheid van nieuwe directory en indien nodig aanmaken.

    Padnaam = "C:\users\nico\desktop\brenco-technics\facturen\facturen " & Year(Date) & "\"
    If Dir(Padnaam) = vbNullString Then MkDir Padnaam

 

[2000syd]

Wou bedankt heren. Voor mij een grote oplossing en voor jullie aan normale zaak. ;-).
Hartelijk dank!!

 

[Ginger]

Maar hoe geraak ik daar waar ik dit moet veranderen? ? Dat weet ik nimeer.

I rest my case...
Zie post nr.3