jaartal invoegen

[Oude leerling]

Geacht forum,

In cel E4 staan het jaartal
Om nu het juiste document te openen heb ik onderstaande code bedacht.
Deze doet het echter niet
Als ik echter de "jr" in de code verander in bv. 2017 , dan werkt het wel.
Kunt u mij helpen wat het wel moet zijn?

Dim jr As Integer
jr = Rang("E4").Value
ChDir "C:\Users\Public\Documents\Kasbladen Amstelveen jr"

Jaap

 

[HSV]

Zo wel?

"C:\Users\Public\Documents\Kasbladen Amstelveen " & range("e4")

 

[Oude leerling]

Harry , ja dat werkt goed.
Als ik echter hetzelfde doe met onderstaande code dan gaat er weer wat fout.

2017 wijzigen in " & Range("E4")

"K:\Kasbladen Amstelveen 2017\Kasblad Amstelveen WEEK"  & Range("I3") & " .xls"



 "K:\Kasbladen Amstelveen" & Range("E4")\Kasblad Amstelveen WEEK"  & Range("I3") & " .xls"

 

[HSV]

Kijk eens naar de posities van de spaties in dit stukje.

WEEK"  & Range("I3") & " .xls"

Alsook de spaties en dubbele quotes.

"K:\Kasbladen Amstelveen 2017\
 "K:\Kasbladen Amstelveen" & Range("E4")\

 

[Oude leerling]

Harry,
Ik ben bang dat mijn kennis betr. quotes en spaties in een adres te wensen overlaat.

Weet niet wat ik fout doe.

 

[HSV]

Zo dan Jaap?

 "K:\Kasbladen Amstelveen " & Range("E4") & "\Kasblad Amstelveen WEEK "  & Range("I3") & ".xls"

 

[Oude leerling]

Harry,
Je bent een kei!!
Het was dat "en-teken" en die quote voor de slash .

Ik ga me er toch eens in verdiepen hoe dat in elkaar steekt.
In mijn handboek staat hier niks over

Dank je wel voor de geboden hulp

Vriendelijke groet , Jaap