• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

bestaan opslaan met als naam de datum van vandaag

Status
Niet open voor verdere reacties.
D

DAVYLENDERS

Gebruiker
Lid geworden
4 okt 2009
Berichten
11
Ik heb een bestaanje gemaakt met een button erin.
Als ik daarop klik slaat hij het bestand altijd in de zelfde map op.
Nu zou ik graag hebben dat hij dat opslaat met als naam de datum van vandaag.

Deze code heb ik er voor gebruikt.
Code: 
Private Sub CommandButton1_Click()
sName = Application.GetSaveAsFilename("T:\Mag-Data\Mit pc\davy\uren interim voor door te mailen", _
    "Excel files (*.xls),*.xls", 1)
If sName = False Then Exit Sub
ActiveWorkbook.SaveAs sName
End Sub

Wat moet ik veranderen aan de code zodat hij het bestaand opslaat met als naam de datum van vandaag.
 
Dan zal je volgens mij gewoon de naam elke dag moeten wijzigen.
Of dit automatis kan weet ik niet.


Of begrijp ik het verkeerd?
 
brentie zei:
Dan zal je volgens mij gewoon de naam elke dag moeten wijzigen.
Of dit automatis kan weet ik niet.


Of begrijp ik het verkeerd?
Klik om te vergroten...

Ik bedoel er eigenlijk mee als ik vandaag het bestand opslag dan krijgt het als naam mee
07-01-2011.
Sla ik vandaag het bestand nog eens op dan blijft de naam 07-01-2011 en moet hij vragen om het te mogen overschrijven.

Sla ik morgen het bestand op moet hij als naam mee geven 08-01-2011

Normaal wordt het bestaan max maar 1 keer per dag opgeslagen
 
Deze gebruik ik voor het opslaan van een bestand met een ingevulde datum op een vaste plaats op de harde schijf.

Code: 
Sub Opslaan()

With Sheets("formulier")
ActiveWorkbook.SaveAs FileName:= _
.[b77] & Format(.[b78], "yyyy-mm-dd") & " " & "tekst" & ".xls"
End With

Application.DisplayAlerts = True
End Sub

hier staat in b77 het bestandenpad
hier staat in b78 de datum

P.s. voor de datum van vandaag kun je de formule gebruiken.
=vandaag()

misschien heb je hier iets aan (anderen zullen dit vast mooier en korter kunnen).
 
Laatst bewerkt:
Of:
Code: 
sName = Application.GetSaveAsFilename("T:\Mag-Data\Mit pc\davy\uren interim voor door te mailen[COLOR="red"]\" & Date[/COLOR], _
    "Excel files (*.xls),*.xls", 1)
 
DAVYLENDERS zei:
Ik bedoel er eigenlijk mee als ik vandaag het bestand opslag dan krijgt het als naam mee
07-01-2011.
Sla ik vandaag het bestand nog eens op dan blijft de naam 07-01-2011 en moet hij vragen om het te mogen overschrijven.

Sla ik morgen het bestand op moet hij als naam mee geven 08-01-2011

Normaal wordt het bestaan max maar 1 keer per dag opgeslagen
Klik om te vergroten...


oo sorry dan
 
HSV zei:
Of:
Code: 
sName = Application.GetSaveAsFilename("T:\Mag-Data\Mit pc\davy\uren interim voor door te mailen[COLOR="red"]\" & Date[/COLOR], _
    "Excel files (*.xls),*.xls", 1)
Klik om te vergroten...

Bedankt :thumb:

dit is wat ik zocht

Alemaal bedankt voor de snel reacties en hulp top.
 
DAVYLENDERS zei:
Bedankt :thumb:

dit is wat ik zocht

Alemaal bedankt voor de snel reacties en hulp top.
Klik om te vergroten...

Ben iets te rap geweest er is toch nog iets fout.

Als ik op de button klik krijg ik het opslaan scherm en daar staat de datum van vandaag
maar als ik dan op opslaan klik dan krijg ik een foutmelding 1004.
Ik denk dat het formaat van de datum verkeerd is om op te slaan.
Als datum kiest hij 07/01/2011 maar dat moet zijn 07-01-2011 denk ik .

wat moert er dan aan de code nog veranderen
 
Dat is vreemd, het zet bij mij de datum zo neer: 7-1-2011
 
Nee hoor, ik gebruik ook Excel 2003.

Probeer het zo eens Davy.
Code: 
Private Sub CommandButton1_Click()
sName = Application.GetSaveAsFilename("T:\Mag-Data\Mit pc\davy\uren interim voor door te mailen\" & Format(Date, "dd - mm - yyyy"), _
    "Excel files (*.xls),*.xls", 1)
           If sName = False Then Exit Sub
      On Error Resume Next  'voor het annuleren van overschrijven
  ActiveWorkbook.SaveAs sName
End Sub
Of:
Code: 
\"& DateValue(Date),
 
Laatst bewerkt:
HSV zei:
Nee hoor, ik gebruik ook Excel 2003.

Probeer het zo eens Davy.
Code: 
Private Sub CommandButton1_Click()
sName = Application.GetSaveAsFilename("T:\Mag-Data\Mit pc\davy\uren interim voor door te mailen\" & Format(Date, "dd - mm - yyyy"), _
    "Excel files (*.xls),*.xls", 1)
           If sName = False Then Exit Sub
      On Error Resume Next  'voor het annuleren van overschrijven
  ActiveWorkbook.SaveAs sName
End Sub
Of:
Code: 
\"& DateValue(Date),
Klik om te vergroten...

Bedankt de lange code die je gepost had is de juiste.

:thumb:
 
Ik heb nog wat aan het aanpassen geweest en heb een nieuwe macro gemaakt die nog een paar extra handelingen doet.

Nu slaat hij het bestand op als je de macro activeerd als " uren interim08-01-2011.
Dit omdat ik het zo heb opgenomen.

Maar nu zou ik graag hebben dat hij het opslaat als " uren interim en dan datum vandaag.
Vandaag zou dat dan zijn "uren interim 08-01-2011"
en morgen wordt het dan
"uren interim 09-01-2011

Heb zelf al wat aan het proberen geweest maar wil niet lukken.


Code: 
Private Sub CommandButton1_Click()
ActiveSheet.Unprotect
    Cells.Select
    Selection.Locked = True
    Selection.FormulaHidden = False
    Range("E11").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    ChDir "T:\Mag-Data\Mit pc\davy\uren interim voor door te mailen"
    ActiveWorkbook.SaveAs Filename:= _
        "T:\Mag-Data\Mit pc\davy\uren interim voor door te mailen\uren interim08-01-2011.xls" _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
 
heb jij de toevoeging van je vorige antwoord ook geprobeerd?

Code: 
" & Format(Date, "dd - mm - yyyy")
 
Probeer dit eens.

Code: 
"T:\Mag-Data\Mit pc\davy\uren interim voor door te mailen\uren interim " & DateValue(Date) &".xls"
Of:
Code: 
"T:\Mag-Data\Mit pc\davy\uren interim voor door te mailen\uren interim " & format(date, "dd-mm-yyyy") & ".xls"
 
HSV zei:
Probeer dit eens.

Code: 
"T:\Mag-Data\Mit pc\davy\uren interim voor door te mailen\uren interim " & DateValue(Date) &".xls"
Of:
Code: 
"T:\Mag-Data\Mit pc\davy\uren interim voor door te mailen\uren interim " & format(date, "dd-mm-yyyy") & ".xls"
Klik om te vergroten...

De 2de is de juiste.
Nu straks alleen eens kijken of hij een nieuwe datum gebruikt na 00 u he maar denk het wel.

Alle B E D A N K T :thumb:
 
DAVYLENDERS zei:
De 2de is de juiste.
Nu straks alleen eens kijken of hij een nieuwe datum gebruikt na 00 u he maar denk het wel.

Alle B E D A N K T :thumb:
Klik om te vergroten...

Je datum handmatig even aanpassen gaat veel sneller dan wachten :P vergeet dan je datum niet terug juist te zetten na de nodige tests
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan