automatisch opslaan op bepaalde locatie

[cplatinck]

Hi,

voor het inlezen van een xrs bestanden in excel heeft een vroegere collega een macro geschreven.
Wij hadden hier graag aan toegevoegd dat het bestand automatisch wordt opgeslagen in de map waaruit het xrs bestand wordt ingelezen.

In de macro staat volgende code:

Sub Import_Lijsten()

Const ASSLIJST = "Excel_Assemblystuklijst.xsr"

Dim ModelDir As String

' ModelDir = BrowseFolder("Selecteer de directory met de lijsten.")
ModelDir = InputBox("", "Geef de directory waar de lijsten staan.", "D:\Xsteel_Models\")

If ModelDir = "" Then Exit Sub
ModelDir = MyTrim(ModelDir)
If Right(ModelDir, 1) <> "\" Then
    ModelDir = ModelDir + "\"
End If

If (Dir(ModelDir + ASSLIJST)) <> "" Then
    Worksheets("Samenstellingslijst").Activate
    Assemblystuklijst (ModelDir + ASSLIJST)

End If


End Sub

ik zou volgende code toevoegen, maar dit werkt blijkbaar niet, het xlsx bestand wordt niet opgeslagen in de juiste map, maar bij mijn documenten. Weet iemand wat ik verkeerd doe?

Dim SaveDir As String
...
SaveDir = ModelDir
...
ChDir SaveDir
ActiveWorkbook.SaveAs Filename:= _
"Samenstellingslijst.xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False

 

[Warme bakkertje]

ActiveWorkbook.SaveAs Filename:=ModelDir & _
"Samenstellingslijst.xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False

 

[cplatinck]

werkt perfect, bedankt

is het ook mogelijk om eventueel een datum toe te voegen aan de bestandsnaam? vb samenstellingslijst_20110111 of samenstellingslijst_11012011 ?

 

[Warme bakkertje]

Welke datum wil je ? Steeds de huidige datum van opslaan of een vastgestelde datum uit een cel of ....?

 

[cplatinck]

de huidige datum van opslaan

 

[Warme bakkertje]

ActiveWorkbook.SaveAs Filename:=ModelDir & _
"Samenstellingslijst_" & Format(Date,"ddmmyyyy") & ".xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False

 

[cplatinck]

héél erg bedankt!

 

[Warme bakkertje]

Zet je de vraag dan nog even op opgelost