Automatisch opslaan via VBA

[NajKwin]

Hallo,

Ik zou graag mijn sheet graag via een VBA code automatisch willen laten opslaan om het halfuur.

Wil dit echter niet doen via de automatisch opslag die het programma kent.

Wie kan mij hier aan helpen

gr Naj

 

[ExcelAmateur]

Naj,

Als je even had gezocht, was je vast wel hier uitgekomen.
http://www.helpmij.nl/forum/showthread.php/878937-Automatisch-opslaan-van-een-exel-blad-naar-pdf

 

[NajKwin]

Had deze wel gezien maar wil hem niet opslaan naar een PDF.

Wil gewoon dat het bestand naar een kwartier zich zelf opslaat.

Heb wel de volgende code gevonden die een macro moet starten.
_______________________________________________________________________
Private Sub Workbook_Open()
Application.OnTime DateAdd("s", 300, Time), "ThisWorkbook.Opslaan"
End Sub
_______________________________________________________________________
Heb een macro gemaakt opslaan genoemd maar heb het idee dat hij niet werkt.

GR Naj

 

[edmoor]

Dan hoef je toch alleen maar het opslag formaat te wijzigen in standaard Excel?
Verder blijft de code gelijk.

 

[NajKwin]

Sorry maar ben niet zo thuis in VBA

Zou het dan zo worden:
_____________________________________________________________________________________
Sub dotchie()
With Sheets("Blad1").Range("A1:F15")
.ExportAsFixedFormat _
Type:=xlTypeXLSM, _
Filename:="C:\uw locatie\uwlocatie\uwlocatie\uwmap\excelpdf " & Format(Now(), "DD.MM.YYYY.hhmm") & ".xlms", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End With
End Sub
_________________________________________________________________________________________________________

Volgens mij wordt hier van Blad1 A1 tot F15 opgeslagen & wordt aan de bestandsnaam de dag en tijd weer gegeven en dat hoeft niet.

 

[Timshel]

Volgens mij gewoon zo:

Sub dotchie()
    ThisWorkbook.Save
End Sub

 

[gast0660]

Hoi,
Zet dit stukje code in This workbook

Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:30:00"), "Dotchie"
End Sub

en dit stukje in een module

Sub Dotchie()
Application.DisplayAlerts = False
ThisWorkbook.Save
Application.DisplayAlerts = True
End Sub

Na het openen van uw werklad wordt die om het half uur opgeslagen
Groet

 

[HSV]

Alle drie de codes in Thisworkbook, anders zal het bestand zich steeds weer heropenen na het sluiten.

Option Explicit
Private t As Single

Private Sub Workbook_Open()
 ThisWorkbook.dotchie
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Application.OnTime t, "ThisWorkbook.dotchie", , False
End Sub

Sub dotchie()
     t = DateAdd("s", 5, Time)
   Application.OnTime t, "thisworkbook.dotchie"
  ThisWorkbook.Save
End Sub

 

[NajKwin]

Sorry kom er niet uit

Sorry maak kom er niet uit

Heb het ingevoegd maar er gebeurt niets

Heb er een proefbestandje bij gedaan
Kan iemand daar even naar kijken en zeggen wat er niet goed is?

Bekijk bijlage 28122015.zip

 

[ExcelAmateur]

Je moet wel goed lezen waar je de code moet plaatsen, ik heb het voor je gedaan.

 

[HSV]

Druk Alt+F11; aan de linkerkant zie je nu de projectverkenner staan met de naam van je werkboek.
Klap het uit met de + en dubbeklik op 'ThisWorkbook'.
Daar moeten de codes staan.

 

[NajKwin]

Gelukt.

Dank voor de hulp

Projectverkenner was niet uitgeklapt maar was op te roepen met CTRL+R

Nogmaals dank