datum als naam kiezen bij opslaan

[davylenders123]

Sub opslaan()
'
' opslaan Macro
'

'
    ActiveWorkbook.SaveAs Filename:="D:\backup werk\12092010.xlsm", FileFormat _
        :=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

Wat moet er aan deze code worden aangepast om als naam bij het opslaan de datum van vandaag te nemen.
Of is dat niet mogelijk.

Deze macro is gekoppelt aan een knop in het werkblad.

 

[Warme bakkertje]

Sub opslaan()
'
' opslaan Macro
'

'
    ActiveWorkbook.SaveAs Filename:="D:\backup werk\" & format(date,"dd-mm-yyyy") & ".xlsm", FileFormat _
        :=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

 

[davylenders123]

Sub opslaan()
'
' opslaan Macro
'

'
    ActiveWorkbook.SaveAs Filename:="D:\backup werk\" & format(date,"dd-mm-yyyy") & ".xlsm", FileFormat _
        :=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

Bedankt het werkt :thumb::thumb:

 

[davylenders123]

Bedankt het werkt :thumb::thumb:

Er is toch nog iets foute in de formule.

Ik heb het nu op de pc gezet op het werk en het werkt niet meer heb alleen de lokatie aangapast naar .
T:\Mag-Data\Mit pc\davy\planning magazijn

Ik krijg dan een foutmelding 1004.

Het is ook wel met exel 2003 mischien is dat het probleem was het vergeten, te vermelden.

 

[HSV]

Excel 2003 kent geen .xlsm extensie, dus wordt het .xls

 

[davylenders123]

Excel 2003 kent geen .xlsm extensie, dus wordt het .xls

Heb xlsm al aangepast naar xls maar werkt nog niet.

 

[Roncancio]

Heb xlsm al aangepast naar xls maar werkt nog niet.

Ook het rode gedeelte kan uit de code.

Sub opslaan()
'
' opslaan Macro
'

'
    ActiveWorkbook.SaveAs Filename:="D:\backup werk\" & format(date,"dd-mm-yyyy") & ".xls"[COLOR="Red"], FileFormat _
        :=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False[/COLOR]
End Sub

Met vriendelijke groet,


Roncancio

 

[HSV]

Sub opslaan()
[COLOR="red"]On Error Resume Next[/COLOR]
    ActiveWorkbook.SaveAs Filename:="D:\Excel Tips\Alle VBA om te leren\" & Format(Date, "dd-mm-yyyy") & ".xls"
    
End Sub

En kun je deze rode regel invoegen in geval je wil annuleren.

 

[DAVYLENDERS]

Sub opslaan()
[COLOR="red"]On Error Resume Next[/COLOR]
    ActiveWorkbook.SaveAs Filename:="D:\Excel Tips\Alle VBA om te leren\" & Format(Date, "dd-mm-yyyy") & ".xls"
    
End Sub

En kun je deze rode regel invoegen in geval je wil annuleren.

Sub opslaan()
On Error Resume Next
    ActiveWorkbook.SaveAs Filename:="T:\Mag-Data\Mit pc\davy\planning magazijn" & Format(Date, "dd-mm-yyyy") & ".xls"
   
End Sub

Heb nu de code hierboven gebruikt maar slaat op in de verkeerde map.

Hij slaat al op in T:\Mag-Data\Mit pc\davy\ en zou nog een stap verder moeten gaan dat het in de map planning magazijn komt.
De naam die hij nu gebruikt is planning magazijn13-09-2010.xls
Dit zou moete zijn 13-09-2010.xls in de map planning magazijn.

 

[Roncancio]

Sub opslaan()
On Error Resume Next
    ActiveWorkbook.SaveAs Filename:="T:\Mag-Data\Mit pc\davy\planning magazijn[COLOR="Red"][B]\[/B][/COLOR]" & Format(Date, "dd-mm-yyyy") & ".xls"
   
End Sub

De backslash moest er nog bij.

Met vriendelijke groet,


Roncancio

 

[davylenders123]

Sub opslaan()
On Error Resume Next
    ActiveWorkbook.SaveAs Filename:="T:\Mag-Data\Mit pc\davy\planning magazijn[COLOR="Red"][B]\[/B][/COLOR]" & Format(Date, "dd-mm-yyyy") & ".xls"
   
End Sub

De backslash moest er nog bij.

Met vriendelijke groet,


Roncancio

Dat was het .
Sorry dat ik het zelf niet heb gevonden maar ben er niet zo goed in in die formulles

Bedankt :thumb: