geen pdf-formulier maar geheimschrft zie ik

Status
Niet open voor verdere reacties.
O

Oude leerling

Gebruiker
Lid geworden
30 aug 2010
Berichten
554
Geacht forum,

Ik wil met onderstaande code , dubbelklikken op een bepaalde cel , een pdf-bestandje openen.

De code wordt netjes uitgevoerd maar ik zie geen pdf-formulier maar een soort geheimschrift.
Hoe krijg ik nou wel dat pdf-bestandje te zien?

Jaap


Code: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
If Target.Column = 4 Then
 
a = ActiveCell
Workbooks.Open Filename:="C:\Users\Gebruiker\Documents\Opdrachtbevestigingen" & "\" & a & ".pdf"
Else
End If
End Sub
 
Een PDF is geen Excel werkboek dus die kan je nooit openen met Workbooks.Open.
Gebruik dit:
Code: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 4 Then
        Set objShell = CreateObject("Shell.Application")
        objShell.Open ("C:\Users\Gebruiker\Documents\Opdrachtbevestigingen" & "\" & Target.Value & ".pdf")
        Cancel = True
    End If
End Sub
 
Laatst bewerkt:
edmoor,

Had ik me niet gerealiseerd.

Dank je wel voor de supersnelle reactie!!
Helemaal goed.
Vriendelijke groet Jaap
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan