Opgelost Check of pdf bestaat a.d.h.v. knop.

[ExcelTonnie]

Hoe zou dan de code precies moeten zijn want daar kom ik dus niet uit.


of iets dergelijks.

Activeworkbook.path, & \Documentatie\" & Range("L6") & ".pdf"

 

[edmoor]

Je vergeet een dubbele quote en er staat een komma teveel.

Activeworkbook.path & "\Documentatie\" & Range("L6") & ".pdf"

 

[ExcelTonnie]

Ok ga er morgen mee verder, bedankt tot zover.

 

[ExcelTonnie]

Je vergeet een dubbele quote en er staat een komma teveel.

Activeworkbook.path & "\Documentatie\" & Range("L6") & ".pdf"

Helaas werkt dit ook niet, hetzelfde principe doe ik ook met een afbeelding ophalen van een locatie waar het workbook staat als er maar een map Pic staat.
Maar het lukt me maar niet met een Pdf.

If Dir(ThisWorkbook.Path & "\Pic\" & Details & ".jpg") <> "" Then 'wanneer picture niet bestaat krijg je blanco blad
         Image1.Picture = LoadPicture(ThisWorkbook.Path & "\Pic\" & Details & ".jpg")
  
    Else
        Image1.Picture = LoadPicture(vbNullString) 'Hier het blanco blad
End If
    Me.Repaint

 

[edmoor]

Plaats je document hier.

 

[ExcelTonnie]

Plaats je document hier.

Heb het bestand helemaal uitgekleed en alleen het deel erin gelaten waar het om draait.
Afbeeldingen en bijgevoegde Pdf's zijn onzin dingen.
Hoop dat ik hiermee kan aantonen wat mijn bedoeling is.
Er is een submap "Pic" en een submap "Documentatie" waar resp. de afbeeling in staan en Pdf

 

[edmoor]

En om welke Sub gaat het?

 

[ExcelTonnie]

Lijkt mij toch wel duidelijk dat het om de submap Documentatie gaat.
De submap Pic werkt correct.
Als het programmabestand maar in de root staat en de sub daar onder.

 

[snb]

Nog immer samengevoegde cellen....

Private Sub CommandButton5_Click()
   ThisWorkbook.FollowHyperlink "G:\OF\" & Cells(2, 21) & ".pdf"
End Sub

 

[ExcelTonnie]

Nog immer samengevoegde cellen....

Stimt maar dat was niet mijn vraag.
Wat is er erg aan de optie samenvoegen ?

 

[snb]

Alles

 

[ExcelTonnie]

Nog immer samengevoegde cellen....

Private Sub CommandButton5_Click()
   ThisWorkbook.FollowHyperlink "G:\OF\" & Cells(2, 21) & ".pdf"
End Sub

Op deze manier moet het altijd van de G: schijf komen en das nou net niet de bedoeling.

 

[snb]

Sjonge, jonge.

 

[edmoor]

Lijkt mij toch wel duidelijk dat het om de submap Documentatie gaat.

Ik had het niet over een submap maar over de naam van de macro.

 

[ExcelTonnie]

Ik had het niet over een submap maar over de naam van de macro.

Neem me niet kwalijk.
De naam weet ik zo even niet want heb de pc niet bij de hand maar de sub achter de knop PDF

 

[ExcelTonnie]

Inmiddels heb ik het opgelost, bedankt voor jullie hulp.