Opslaan op 1 maand terug

[reijm1]

Ik heb onderstaande om een bestand op te slaan voor deze maand.
Maar kan iemand me uitleggen hoe ik hem 1 maand terug kan laten gaan, maar wel de uitgeschreven maand te zien krijg?
bijv. op deze manier zou hij hem opslaan onder juni, maar ik wil dat hij hem opslaat onder Mei.

kan iemand me helpen?

Public Sub Opslaan()
Dim MyDate, MyMonth, MyMonthName, MySheetNumber, MyYear

MyDate = Date 'Datum in dd-mm-jjjj
MyMonth = Format(Date, "mm") 'Maand in mm
MyMonthName = MonthName(MyMonth) 'Maand in Long
MyYear = Year(Now())
MyDay = Day(Now())

On Error GoTo Errorhandler
DoCmd.Hourglass True

On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateFolder("O:\#Borstlap Tilburg\Management Information\Nieuwe Actiefile" & " " & MyMonthName & "\")

Kill ("O:\#Borstlap Tilburg\Management Information\Nieuwe Actiefile" & " " & MyMonthName & "\" & "Nieuwe actiefile" & " " & MyDay & "-" & MyMonth & ".xls")

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, _
"50 run actie for backorder > 0", "O:\#Borstlap Tilburg\Management Information\Nieuwe Actiefile" & " " & MyMonthName & "\" & "Nieuwe actiefile" & " " & MyDay & "-" & MyMonth & ".xls"

DoCmd.Hourglass False

MsgBox "Bestand is geexporteerd.", vbOKOnly + 
vbInformation, "Mededeling"

Exit_Opslaan:
Exit Sub

Errorhandler:
DoCmd.Hourglass False
MsgBox Err.Description
Resume Exit_Opslaan

End Sub

 

[Wigi]

reijm

als je code post, wil je dan aub code tags gebruiken?

En is dit geen Access ipv. Excel?

Wigi