Macro opslaan documenten met verschillende argumenten

[HBot]

Dat eerste stukje loopt nu goed,
sjabloon opent en wordt netjes weggeschreven onder de nieuwe naam (D3) in de juiste map.
ik heb cel (D3) ook leeg als cel (C38) op klaar staat, "so far so good"

maar opslaan onder een andere naam in een andere map loopt niet
ook als ik het pad en de range verander loopt ie vast.

ActiveWorkbook.SaveAs pad2 & "" & Sheets("Opstart door PL-AM").Range("d3") & ".xlsm", FileFormat:=52

 

[edmoor]

Dat "loopt ie vast" zegt helemaal niets.
Je krijgt vast een foutmelding en dan is het wel zo handig deze hier ook te vermelden.

 

[HBot]

zelfde melding;

Fout 1004 tijdens uitvoering:
Methode SaveAs van object_Workbook is mislukt

 

[edmoor]

Dan klopt je uitvoerpad niet.
tevens plaats je code niet in codetags waardoor \ tekens wegvallen en is het dus niet te controleren of je die wel hebt gebruikt.

 

[HBot]

edmoor,

Ik heb nog even rond geneusd op het net (heel veel in technisch Engels, niet mijn sterkte punt), maar ben niet de enige die dit probleem heeft, alleen kan ik de juiste oplossing niet vinden,
ook geprobeerd met filemane ed.
alles werkt perfect tot aan deze regel,

ActiveWorkbook.SaveAs pad2 & "" & Sheets("Opstart door PL-AM").Range("d3") & ".xlsm", FileFormat:=52

dan komt de foutmelding
Fout 1004 tijdens uitvoering:
Methode SaveAs van object_Workbook is mislukt


blijft vreemd, ook geprobeerd delen van de regel weg te laten ed.

geef nog niet op,
misschien nog andere suggesties.

 

[edmoor]

Het is simpel.
De waarde van dit klopt niet;

pad2 & "" & Sheets("Opstart door PL-AM").Range("d3") & ".xlsm"

En je hebt het hier nog steeds niet in codetags geplaatst.

 

[HBot]

ActiveWorkbook.SaveAs pad2 & "" & Sheets("Opstart door PL-AM").Range("d3") & ".xlsm", FileFormat:=52

vreemd maak gewoon een kopie uit de macro daar staat het wel. :-(

gaan verder puzzelen, gaat lukken.

 

[edmoor]

En NOG steeds geen codetags waardoor, zoals ik al eerder zei, tekens weg kunnen vallen.
Doe voor die regel ook eens dit:

MsgBox pad2 & "" & Sheets("Opstart door PL-AM").Range("d3") & ".xlsm"

Dan kan je precies zien wat de waarde er van is en kan je dat hier ook laten zien.

 

[HBot]

edmoor die code tags "/"staan er wel in maar als ik de regel kopieër zie ik ze wel maar na plaatsen zijn ze weg?

de melding is;
S:\Projecten\OFO\Masterdata OFO\Opzet nieuwe OFO\Test\OFO: testen.xlsm

waarbij "OFO: testen" de waarde is in cel [D3]

 

[edmoor]

Dat zijn geen code tags.
Kijk hier:
https://www.helpmij.nl/forum/announcement.php?f=5

Dit is uiteraard sowieso fout:

S:\Projecten\OFO\Masterdata OFO\Opzet nieuwe OFO\Test\OFO: testen.xlsm

Fout, omdat er geen dubbele punt in een bestand- of mapnaam mag worden gebruikt.

 

[HBot]

edmoor,

weer wat geleerd, dan van die dubbele punt was de reden dat het niet werkte,

bedankt voor het meedenken, op naar de volgende uitdaging.
Gr