VBA med "Gem som PDF" med mulighed for angivelse af filnavn

Hej Line

Hej lineriber

Jeg har oprettet en knap i Excel, kaldet cmdGemSom, og lagt følgende kode i dens Click_hændelse:


Private Sub cmdGemFilSom_Click()
'variabel til det nye filnavn
    Dim fnavn As String

       
        Do
            'GemSom dialogen åbnes og fnavn tildeles det nye filnavn af typen .xls
            fnavn = Application.GetSaveAsFilename(, fileFilter:="PDF (*.pdf), *.pdf")
       
        'spørg igen på fnavn ... hvis der ikke er tastet et nyt filnavn ?
        Loop Until fnavn <> ""
               
        'gem workbook under det nye filnavn
        ThisWorkbook.SaveAs fnavn
               
   
   
   
    fnavn = Empty
   
   
End Sub


Mvh Nicolai

Argh !!!!

Det går en tand for stærkt i dag !!!
Så jeg prøver lige igen .......


Jeg har oprettet en knap i Excel, kaldet cmdGemSom, og lagt følgende kode i dens Click_hændelse:


Private Sub cmdGemFilSom_Click()
'variabel til det nye filnavn
    Dim fnavn As String

       
        Do
            'GemSom dialogen åbnes og fnavn tildeles det nye filnavn af typen .pdf
            fnavn = Application.GetSaveAsFilename(, fileFilter:="PDF (*.pdf), *.pdf")
       
        'spørg igen på fnavn ... hvis der ikke er tastet et nyt filnavn ?
        Loop Until fnavn <> ""
               
        'gem workbook under det nye filnavn
        ThisWorkbook.SaveAs fnavn
               
   
   
   
    fnavn = Empty
   
   
End Sub


Mvh Nicolai

Hmm, der er noget der ikke virker Nicolai.

Når jeg ligger koden ind og prøver at køre den, får jeg godtnok boksen op hvor jeg kan angive filnavn. Og der er forudfyldt med at filtypen er .pdf.

MEN MEN MEN, når filen gemmes, så gemmes den i excel som pdf, og kan efterfølgende ikke åbnes i adobe som pdf!

Normalt når man gemmer som pdf, så åbnes adobe, og den nye fil med det gemte navn, åbnes i pdf.
Når jeg bruger din kode, så sker det ikke. Istedet bliver navnet bare ændret i øverste menubjælpe i excel!

Forstår du hvad jeg mener?

Hej Line

Så er jeg tilbage :o)

Kigger lige på "skidtet" ...


Mvh Nicolai

Hmm ...

Hvilken version af Excel bruger du ??


mvh Nicolai

Hej Line

Pas!

Efter hvad jeg har Gogglet, så tror jeg, at man minimum skal ha´ Officepakken, version 2007, for at gemme Excel filer som pdf´er!

Og da jeg kun har Excel 2003, må jeg være dig svar skyldig :O(

Mvh Nicolai

Hej Nicolai
Jeg har netop excel 2007 (engelsk version), og der kan man netop gemme som PDF.

Er der andre der har et bud på hvordan jeg løser det her problem??

Lukker igen, pga manglende svar....