Jo hej å God afton för er som jag är nattarbetande...

Jag har skapat X antal PDF:er från ett program som jag i efterhand vill öppna via en "knapp" på startmenyn.

Men de PDF:er jag lyckas komma åt öppnas i Excel !?! Jag vill att de skall öppnas som PDF:er från de bibliotek de lagras i ?!

Följande kodrader använder jag :

Private Sub Biblioteket_Click()

ChDir "E:\Kent\Månadsrapporter"

'Hämtar en ny PDF:fil från mappen "...Månadsrapporter"

Dim myPath As String: myPath = "E:\Kent\Månadsrapporter\"
Dim myFile As String

myFile = Dir(myPath & "MånRapport*.PDF")

Do While Len(myFile) > 0

Workbooks.Open (myPath & myFile)

MinFil = myFile

myFile = Dir

Loop

End Sub

Tips om hur jag skall lyckas öppna dem som PDF och ingenting annat !!

/fleXcel