Is het mogelijk om datum en tijd automatisch bij te werken in bestandsnaam ?

[eus18]

Voor alle lezers als eerste de beste wensen natuurlijk.
Ik heb de volgende vraag:
Is het mogelijk om in een bestandsnaam van een excel document een datum en tijd aan toe te voegen zodanig dat deze automatisch wordt aangepast als het bestand is geopend.
Als het mogelijk is kan iemand dan ook uitleggen hoe eea te realiseren is.
Alvast bedankt.

Groet Eus

 

[VenA]

Volgens mij niet. Een geopend bestand kan je niet van naam wijzigen. Probeer het maar eens vanuit de verkenner als je het bestand geopend hebt.

 

[HSV]

Een mogelijkheid is om bij het openen het bestand op te slaan onder een andere naam (datum en tijd).
Daarna het origineel verwijderen waar het ook moge staan.


In Thisworkbook module.

Private Sub Workbook_Open()
Dim nm As String
nm = ThisWorkbook.FullName
 ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Date & "  " & Format(Time, "hh_mm_ss"), 52
Kill nm
End Sub

 

[eus18]

Harry,
benakt voor zover.
Ik begrijp wel dat ik het bestand zelf kan opslaan onder ander datum en tijd maar zou graag zien dat dat automatisch gebeurde.
Ik begrijp alleen niets van wat daaronder hebt gezet als die In ThisWorkbook modul.
Kun je mij dat nog uitleggen!

Gr. Eus

 

[HSV]

Eus,

Dit gaat in zijn geheel automatisch (zowel saveas met datum en tijd als het verwijderen 'Kill').

Open jouw bestand, druk Alt+F11 → linkerzijde staat projectverkenner, dubbelklik op 'ThisWorkbook'.
Kopieer de code vanaf forum en plak het in het grote witte vlak.

Bestand opslaan, daarna heropenen.
Doe dit alles eerst in een testbestand.
Succes.

 

[eus18]

Hallo Harry,

Dit werkt tot nu toe.
Nu nog de volgende vraag. Kan ik er ook nog een naam aan toevoegen en zo ja waar moet ik deze plaatsen in de macro.
Als voorbeeld. eus2016+ datum+tijd

Gr. Eus

 

[HSV]

Dat kan zo.

ThisWorkbook.SaveAs ThisWorkbook.Path & "\eus2016 " & Date & "  " & Format(Time, "hh_mm_ss"), 52

 

[snb]

Het zou handig zijn als je vertelde wat je hiermee wil bereiken.

Mij lijkt dit voldoende:

Private Sub Workbook_Open()
    c00 = "G:\OF\nieuwste" & Format(Date, "yyyymmdd") & ".xlsb"
    
    If Dir(c00) = "" Then
        ThisWorkbook.SaveCopyAs c00
        Workbooks.Open c00
        ThisWorkbook.Close 0
    End If
End Sub

 

[eus18]

Mijn bedoeling hiervan is het volgende.
Ik heb een redelijk gecompliceerd bestand waarin ik wijzigingen aanbreng.
Nu is het zo dat ik als ik wat gewijzigd heb dit bestand wil kunnen opstaan zonder daar telkens de datum en tijd bij te hoeven veranderen.
De oude versie moet dan ook gewoon blijven bestaan.

 

[Cobbe]

Als je het originele bestand wil behouden kan je deze toepassen:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
 Dim nm As String
  naam = "Naam van uw bestand zonder extentie hier invullen"
   With ThisWorkbook
            .SaveAs .Path & "\" & naam & Format(Now, "_dd_mm_yy hh_mm_ss"), 52
            .Close
  End with
End Sub

 

[eus18]

Allemaal bedankt, het werkt!