Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Save & SaveAs & SaveCopyAs  (gelezen 72299 keer)

0 leden en 1 gast bekijken dit topic.

Offline Sunnybat

  • Ervaren lid
  • ***
  • Berichten: 254
  • Geslacht: Man
  • Oplossing.be
Save & SaveAs & SaveCopyAs
« Gepost op: 01 juni 2024, 02:49:46 »
Hoi,

is het mogelijk om een bestand op te slaan met het huidige naam en meteen een copy met een andere naam?
Excel 365 NL

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.254
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Save & SaveAs & SaveCopyAs
« Reactie #1 Gepost op: 01 juni 2024, 09:48:50 »
Hallo Sunnybat,

in Excel bedoel je? Met een Macro wel, natuurlijk.
Save.....én
SaveAs.....
in één macro

:) SoftAid :)             


Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Sunnybat

  • Ervaren lid
  • ***
  • Berichten: 254
  • Geslacht: Man
  • Oplossing.be
Re: Save & SaveAs & SaveCopyAs
« Reactie #2 Gepost op: 01 juni 2024, 11:29:11 »
@SoftAid

Mooi ga ik even zoeken ( google is youre best friend )

Thnx
Excel 365 NL

Offline Sunnybat

  • Ervaren lid
  • ***
  • Berichten: 254
  • Geslacht: Man
  • Oplossing.be
Re: Save & SaveAs & SaveCopyAs
« Reactie #3 Gepost op: 01 juni 2024, 11:44:45 »
@SoftAid

Found it
Sub BackUp()

    Dim BackUpPath As String
        BackUpPath = "Your path"
       
    Dim BackUpFile As String
        BackUpFile = BackUpPath & "BackUp.xlsm"
       
        ThisWorkbook.SaveCopyAs Filename:=BackUpFile
       
End Sub

Thnx
Excel 365 NL

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.254
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Save & SaveAs & SaveCopyAs
« Reactie #4 Gepost op: 01 juni 2024, 16:58:03 »
    Dim BackUpPath As String
        BackUpPath = "Your path"

"Your path" moet je wel nog veranderen door het juiste pad, iets als "C:\Gebruikers\[gebruikersnaam]\"

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Sunnybat

  • Ervaren lid
  • ***
  • Berichten: 254
  • Geslacht: Man
  • Oplossing.be
Re: Save & SaveAs & SaveCopyAs
« Reactie #5 Gepost op: 02 juni 2024, 13:10:55 »
@SoftAid

Yep
het werkt  :thumbsup:
Excel 365 NL

 


www.combell.com