men så er mit spørgsmål

 

Hvordan får jeg den til at gemme det med navnet månedsrapport_åååå-mm.pdf ???

 

Jeg har en celle som har det aktuelle år og måned i formatet åååå-mm

 

Private Sub CommandButton1_Click()
Dim ArkNavn, DataSti, Filnavn As String
Dim objFolders As Object
Set objFolders = CreateObject("WScript.Shell").SpecialFolders

ArkNavn = "Rapport" 'Navnet på den fane som skal udskrives
DataSti = objFolders("mydocuments") & "\min-folder\" 'Der hvor filen skal gemmes, husk at afslutte med \
Filnavn = "Månedesrapport_" & Sheets(ArkNavn).Range("A3").Value

'Tjekker om mappen 'DataSti' eksisterer, hvis ikke oprettes den
If Dir(DataSti, vbDirectory) = "" Then
    MkDir DataSti
End If

'Gemmer det aktive ark som .pdf
Sheets(ArkNavn).ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=DataSti & Filnavn, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
MsgBox "Filen er gemt som " & DataSti & Filnavn & ".pdf", vbInformation
End Sub

Prøv:

Filnavn = "Månedsrapport_" & Format(Sheets(ArkNavn).Range("E8").Value) & Format(Sheets(ArkNavn).Range("B20").Value, "mm-yyyy")

 

Hvilket nu giver følgende filenavn: Månedsrapport_BygningsNavn01-2012

Men jeg kunne godt tænke mig at den hed: Månedsrapport_BygningsNavn_01-2012

 

Men jegkan ikke få det til at virke - nogen foreslag