bestand hernoemen

[wilbert1967]

hallo

met

Sub bestand_open()

  filetoopen = Application _
    .GetOpenFilename("excel bestand (*.xls), *.xls", , " ")
  If filetoopen <> False Then
    Workbooks.Open filetoopen
  End If

End Sub

open ik een bestand en verwerk ik de gegevens, maar daar na wil ik het bestand hernoemen naar '.bak'
Hoe doe ik dat?

mvg wilbert

 

[oeldere]

probeer deze code eens

With ActiveWorkbook
  .SaveAs Filename:="C:\jouwnaam.bak"

 

[wilbert1967]

hallo

dank voor antwoord
maar dan blijf het origineel bestaan

ik heb een oplossing gevonden
met

Name oudenaam as nieuwenaam

mvg
wilbert