hvordan ændre jeg makroen så jeg kan gemme filen i en bestemt mappe

Denne linie giver dig en sti   
tempFilePath = Environ$("temp") & "\"   
så måske noget alla dette
tempFilePath = "C:\Projekt\Ulykker\"

Jeg får en fejlmelding som lyder:
Run time error '1004': Dokumentet blev ikke gemt. Dokumentet kan være åbent, eller der kan være opstået en fejl under lagring.

Det har jeg fået ligegyldigt hvad jeg forsøger at ændre...

Den fremhæver denne linie:

Worksheets("Rapport").ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
        tempFileName, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

Jeg har svaret på flere ExportAsFixedFormat sprøgsmål i Excel og Word gruppen i løbet af december - måske du kan sammenligne med dem. Jeg har lidt travlt i dag, og kommer ikke til at kigge nærmere på dette.
indeholder tempFileName det du forventer?
får du det rigtige ind i "nr" ?

Ja tempFileName gør det jeg forventer og det er det rigtige jeg får ind i "nr", jeg kan bare ikke få den til at gemme den andre steder end i temp...

Prøv at hent demoen "Create PDF" herfra...  http://www.smartoffice.dk/Tips/Eksperten/Index.asp se om du bliver klogere på din egen løsning af den, og om du kan få den til at gemme

Jeg kan ikke helt finde ud af det ud fra linket... Så jeg står stadig med fejlmeldingen...

Har ikke lige noget godt svar - koden ser OK ud

Tusind tak for hjælpen smartoffice_dk. det var en fejl 40, hvor jeg havde skrevet det forkerte drev.
Jeg har fået den til både at lave pdf. filen, gemme den hvor jeg vil have den, lave mailen, medtage mailadresse fra celle og sende den automatisk. Hvis nogen er interesseret lægger jeg koden her.

Sub CreatePDF_attach_to_EMAIL()

    Dim Wkb As String
    Dim FilePath As String
    Dim FileName As String
    Dim OutApp As Object
    Dim OutMail As Object

Wkb = ThisWorkbook.Name
FilePath = "M:\APV, nærved-ulykke\Nærved-ulykker 2017\" 'hvor filen gemmes
Afdeling = [Rapport!B6]                                'cellen hvor afdelingens navn er i
nr = [Rapport!D8]                                      'cellen hvor dato for hændelse er i
Modtager = [Rapport!D6]                                'cellen hvor mailadressen for teamlederen er i

FileName = FilePath & Afdeling & " " & nr & ".pdf"

Worksheets("Rapport").ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
        FileName, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
       
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

With OutMail
    .Display
    End With
        Signature = OutMail.Body 'Indsætter mailens standard signatur

On Error Resume Next

With OutMail
.To = "AB@kajbech.dk;" & Modtager
.cc = ""
.BCC = ""
.Subject = "Registrering af Nærvedulykke fra " & ActiveWorkbook.Worksheets("Rapport").Range("B6") & " - " & ActiveWorkbook.Worksheets("Rapport").Range("B7")
.Body = "Hej" & Chr(10) & Chr(10) & "Se registrering af nærvedulykke på vedhæftet fil." & Chr(10) & Signature
.Attachments.Add (FileName)
.Display '.send
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing

'If Dir(TempFileName) <> "" Then Kill FileName 'Hvis dette aktiveres slettes filen efter afsendelse
   
End Sub