save as

[Edje_007]

Hoi ,

Ik zou graag de keuze willen maken waar ik het worksheet bewaar , vb : c:\ naam klant \..( de activesheet range moet mogelijk blijven )
Nu wordt het bestand rechtstreeks in de root opgeslagen .



Private Sub OptionButton3_Click()
opttionbutton3 = False
Dim fName As String, FileNm As String
FileNm = ActiveSheet.Range("a1).Value & ActiveSheet.Range("a3").Value
fName = ActiveWorkbook.Path & "\" & FileNm & ".xls"
Debug.Print fName
'Vewijder indien aanwezig ---------------------------------*
If Dir(fName) <> "" Then Kill fName
'Kopieer worksheet
ThisWorkbook.ActiveSheet.Copy
'Bewaar worksheet
ActiveWorkbook.SaveAs Filename:=fName
ActiveWorkbook.Close
End Sub

[Alvast bedankt !

Ed

 

[Palmpje]

Volgens mij is ActiveWorkbook.Path in jouw geval leeg. Wordt er een template gebruikt?

 

[Edje_007]

path is idd leeg , vandaar dat er automatisch de root wordt gekozen .

IK zou graag zelf willen kiezen met een activewindows , maar het lukt mij niet !
ed

 

[kroko]

probeer het volgende eens.
Het eerste gedeellte kan je zoeken wwar je wil het 2de gedeelte save waar je wil
Option Explicit

Sub getopen()

Dim naam As String
'Do
naam = Application.GetOpenFilename("tekstfiles (*.txt),*.txt")
'Loop Until naam <> False

Workbooks.Open Filename:=naam
End Sub


Sub getsave()
Dim naam As String

naam = Application.GetSaveAsFilename("tekstfiles (*.txt), *.txt")

Workbooks.SaveAs Filename:=naam

End Sub

 

[Edje_007]

Hoi Kroko ,

Het tweede keuze gedeelte is de bedoeling , maar ik zou graag willen dat de data van cel a1 en cel a3 ( zoals in mijn code) de filenaam bepalen .Dit gebeurt nu , maar de file wordt automatich opgeslagen en ik zou dit zelf willen bepalen waar ! Zoals het voorbeeld in de afbeelding .

Alvast bedankt voor de moeite !!!

Groeten

Ed

 

[Edje_007]

De code die ik zocht is :

With Application.Dialogs(xlDialogSaveAs)
.Show
End With

thx
Ed