Excel save to folder

[Meuzik]

Ik heb een excel bestand met enkele macro's

Met een command button wil ik dat excel het bestand opslaat in een bepaalde folder (afhankelijk van een cel waarde = H12), met een bepaalde bestandsnaam (ook afhankelijk van een bepaalde cel waaarde = ThisFile).
Nu slaat hij wel onder de goede filenaam op, maar steeds in "Mijn Documenten".
Is het een code-fout, of een soort beveiligingsfout?

---

Sub Opslaan()


' Opslaan Macro
'

ThisFile = Range("C12") & Range("I7") & Range("B49") & Range("I7") & Range("J1").Value


If Range("H12") = "Piet" Then

ChDir "D:\Maatprotocollen\Klanten\Piet"


ActiveWorkbook.SaveAs Filename:=ThisFile


etc...etc....


End Sub

---

[BertS]

Visual Basic:

Sub Opslaan()


' Opslaan Macro
'

ThisFile = "D:\Maatprotocollen\Klanten\" & Range("H12") & "\" & Range("C12") & Range("I7") & Range("B49") & Range("I7") & Range("J1").Value

ActiveWorkbook.SaveAs Filename:=ThisFile

'etc...etc.... 

End Sub

[urk_forever]

^^Met hem, de SaveAs functie zal wel standaard in My Documents saven als je alleen een bestandsnaam opgeeft. Dus het volledige pad aan de SaveAs functie meegeven zal misschien beter werken.

[RobIII]

Waar hoort mijn topic?
PRG >> OFF