Opslaan via VBA

NajKwin · 2 okt 2020

Hallo Forum gebruikers,

Ik gebruik deze code:

PHP:

Public sub SaveMe
    if not thisworkbook.saved then
          thisworkbook.save
    end if
    application.ontime now+Timevalue("01:00:00"), "SaveMe"
end sub

om het bestand op te slaan. echter nu zou ik graag deze willen uitbreiden zodat ik een Kopie op een andere plaats opsla.

Ik heb al even gekeken maar ik zoor het bomen het bos niet meer of ik stel google de verkeerder vraag.

Kan iemand mij zeggen hoe ik deze kan aanpassen zodat er ook een copy gemaakt wordt op een andere plaats?

b.v.d.

Naj Kwin

edmoor · 2 okt 2020

Dat kan met ThisWorkbook.SaveCopyAs:
https://docs.microsoft.com/en-us/office/vba/api/excel.workbook.savecopyas

loek010 · 2 okt 2020

Probeer dit eens

Code:

Public sub SaveMe
    if not thisworkbook.saved then
          thisworkbook.save
Dim fso As Object
    Set fso = VBA.CreateObject("Scripting.FileSystemObject")
    Call fso.CopyFile("[COLOR="#FF0000"]C:\Users\Yourname\Documents\Bestandsnaam.xlsm[/COLOR]", "[COLOR="#FF0000"]C:\Users\Yourname\OneDrive\Documenten\Bestandsnaam.xlsm[/COLOR]")
    end if
    application.ontime now+Timevalue("01:00:00"), "SaveMe"
end sub

De rood gekleurde file path uiteraard wijzigen naar je eigen file path

of deze code in Private Sub Workbook_BeforeClose

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ActiveWorkbook.Save
    Dim fso As Object
    Set fso = VBA.CreateObject("Scripting.FileSystemObject")
    Call fso.CopyFile("[COLOR="#FF0000"]C:\Users\Yourname\Documents\Bestandsnaam.xlsm"[/COLOR], "[COLOR="#FF0000"]C:\Users\Yourname\OneDrive\Documenten\Bestandsnaam.xlsm[/COLOR]")
End Sub

NajKwin · 3 okt 2020

Dank U.

hier kan ik wel mee uit de voeten

Opslaan via VBA

NajKwin

Gebruiker

edmoor

Inventaris

loek010

Gebruiker

NajKwin

Gebruiker

Nieuwste berichten

Wij waarderen jouw privacy