Copyright 1998 - 2026 DPG Media B.V. Tue, 10 Nov 2026 20:41:58 GMT Tue, 10 Nov 2026 20:41:58 GMT GoT - list_messages https://gathering.tweakers.net/ Gathering of Tweakers https://tweakers.net/icon-192.png nl-nl https://gathering.tweakers.net/rss/list_messages/1406607 Excel save to folder - Client software algemeen - GoT gathering@tweakers.net (Administrator) RobIII https://gathering.tweakers.net/forum/list_message/33907912#33907912 Waar hoort mijn topic? PRG >> OFF Waar hoort mijn topic?
PRG >> OFF]]> RobIII https://gathering.tweakers.net/forum/list_message/33907912#33907912 Wed, 28 Apr 2010 08:46:04 GMT urk_forever https://gathering.tweakers.net/forum/list_message/33907204#33907204 ^^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. urk_forever https://gathering.tweakers.net/forum/list_message/33907204#33907204 Wed, 28 Apr 2010 06:52:10 GMT BertS https://gathering.tweakers.net/forum/list_message/33907183#33907183 Visual Basic:1 2 3 4 5 6 7 8 9 10 11 12 13 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 Visual Basic:
1
2
3
4
5
6
7
8
9
10
11
12
13

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
]]> BertS https://gathering.tweakers.net/forum/list_message/33907183#33907183 Wed, 28 Apr 2010 06:48:25 GMT Juppehup https://gathering.tweakers.net/forum/list_message/33907115#33907115 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
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

]]> Juppehup https://gathering.tweakers.net/forum/list_message/33907115#33907115 Wed, 28 Apr 2010 06:29:36 GMT