*

Help!

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

Hulp bij posten

Recente topics

Pagina's: [1]   Omlaag

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

0 leden en 1 gast bekijken dit topic.

Offline Sunnybat

  • Volledig lid
  • **
  • Berichten: 248
  • 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?
Gelogd
Excel 365 NL

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.236
  • 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.
Code: [Selecteer]
Save.....én
Code: [Selecteer]
SaveAs.....
in één macro

:) SoftAid :)             


Gelogd
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

  • Volledig lid
  • **
  • Berichten: 248
  • 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
Gelogd
Excel 365 NL

Offline Sunnybat

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

Found it
Code: [Selecteer]
Sub BackUp()

    Dim BackUpPath As String
        BackUpPath = "Your path"
       
    Dim BackUpFile As String
        BackUpFile = BackUpPath & "BackUp.xlsm"
       
        ThisWorkbook.SaveCopyAs Filename:=BackUpFile
       
End Sub
Thnx
Gelogd
Excel 365 NL

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.236
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Save & SaveAs & SaveCopyAs
« Reactie #4 Gepost op: 01 juni 2024, 16:58:03 »
Citaat van: Sunnybat op 01 juni 2024, 11:44:45
Code: [Selecteer]
    Dim BackUpPath As String
        BackUpPath = "Your path"

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

:) SoftAid :)             
Gelogd
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

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

Yep
het werkt  :thumbsup:
Gelogd
Excel 365 NL
Pagina's: [1]   Omhoog
 


www.combell.com