na het geven van een naam alsnog via button "opslaan"

[Inkie64]

Hi all,

Ik heb onderstaande macro geschreven. Uiteindelijk geef ik het excel bestand een variabele naam en wil ik deze via de macro opslaan. Dit lukt me niet. Het scherm komt op waarbij de naam weliswaar goed naar voren komt, maar ik moet handmatig saven. Vervolgens gaat de macro weer verder. Hoe kan ik zorgen dat het bestand automatisch wordt opgeslagen?
Alvast bedankt, groeten, Inkie


'
Dim MySaveNameCert As Variant
'
Workbooks.Open Filename:= _
"C:\Documents and Settings\inkie.000\Desktop\MU draft.xls"

----hier komt wat copy paste werk, niet relevant voor deze vraag ----


Windows("MU draft.xls").Activate
Range("A37").Select

'
MySaveNameCert = Windows("MU draft.xls").ActiveCell


'
fNameInitial = "klant" & "MySaveNameCert" & ".xls"

' Select Save Drive & Path
MySaveName = ActiveCell
ChDrive ("C")
ChDir ("C:\Documents and Settings\inkie.000\Desktop")
fNameInitial = "klant " & MySaveNameCert & ".xls"
Do
fName = Application.GetSaveAsFilename(fNameInitial)
Loop Until fName <> False
Workbooks(Workbooks.Count).SaveAs Filename:=fName
ActiveWorkbook.Save


End Sub

 

[AlexV]

Hoi Inkie,

Denk dat je in plaats van de GetSaveAs de SaveAs beter kunt gebruiken

Vervang

fName = Application.GetSaveAsFilename(fNameInitial)

Met deze

    Set NewWb = ActiveWorkbook
    NewWb.SaveAs fNameInitial

Natuurlijk aan het eind ook netjes sluiten.

    NewWb.Close False
    Set NewWb = Nothing

Groetjes,
Alex,

 

[Inkie64]

Je bent een held! Probleem opgelost, super bedankt!

 

[snb]

Alternatief:

Workbooks.Open "C:\Documents and Settings\inkie.000\Desktop\MU draft.xls"
  With Activeworkbook
    .SaveAs "C:\Documents and Settings\inkie.000\Desktop\klant" .sheets(1).range("A37") &".xls"
   End with
End Sub