Mappen, submappen aanmaken met VBA

[HSV]

Probeer ook zeker eens de code van @snb.

Let wel: in cel c8 moet het path eindigen met een backslash, anders moet de code aangepast worden.
Dit zou er bv in kunnen staan:

OOP\ConciergePlus\Excel bestanden\Ink_afzet\

Sub hsv()
with sheets("Param")
  CreateObject("shell.application").Namespace("F:\").NewFolder .range("c8") & Year(Date)
  ThisWorkbook.SaveAs "F:\" & .range("c8") & Year(Date) & "\" & year(.Range("C9")) & "_" & year(Range("C2")) & " - " & year(Range("C3")), 53
end with
End Sub

 

[pvag]

Gelukt

Beste experts,

met veel kunst en vliegwerk is het me gelukt de zaak draaiende te krijgen.
Het zal wellicht niet zijn zoals jullie (experts) het zouden doen, maar het werkt en ik ben tevreden.
iedereen die mij advies heeft gegeven dank ik daar hartelijk voor.
m.v.g.
Ton

 

[HSV]

Kan je dat kunst en vliegwerk hier ook eens plaatsen?