messagebox tonen bij niet aanwezig document

[drubbus]

Ik gebruik de volgende code om aanvullende informatie uit de map pdf optehalen.


Private Sub CommandButton4_Click()
ActiveWorkbook.FollowHyperlink ("H:\Handhaving\Team Openbare Ruimte\Milieupolitie\TOOLS\vergunningen\pdf\" & ComboBox1.Text & ".pdf")
End Sub

Het komt echter wel eens voor dat het aanvullende document niet in de pdf map zit.
Nu wil ik graag een messagebox laten verschijnen.
"aanvullend document niet aanwezig" als dit zich voor doet.

Dank.
André

 

[Warme bakkertje]

If Dir("H:\Handhaving\Team Openbare Ruimte\Milieupolitie\TOOLS\vergunningen\pdf\" & ComboBox1.Text & ".pdf") = vbNullString Then MsgBox "Aanvullend document niet aanwezig": Exit Sub

 

[drubbus]

Helemaal top Warm bakkertje
bedankt
hier kan ik weer mee verder

 

[drubbus]

toch niet

warm bakkertje

ik vrees dat ik te vroeg heb gejuigd
Als het bestand niet aanwezig is opent zich idd de messagebox
Aleen als het bestand wel aanwezig is opent deze zich niet maar een excel map

HELP

 

[ExcelAmateur]

drubbus,

Heb je het ook zo geprobeerd?

Private Sub CommandButton4_Click()
 ActiveWorkbook.FollowHyperlink ("H:\Handhaving\Team Openbare Ruimte\Milieupolitie\TOOLS\vergunningen\pdf\" & ComboBox1.Text & ".pdf")
 If Dir("H:\Handhaving\Team Openbare Ruimte\Milieupolitie\TOOLS\vergunningen\pdf\" & ComboBox1.Text & ".pdf") = vbNullString Then MsgBox "Aanvullend document niet aanwezig": Exit Sub
End Sub

 

[drubbus]

ja geprobeerd ExcelAmateur ,hoewel hij nu wel weer het document kan openen krijg ik bij afwezigheid van het document een foutmelding

 

[ExcelAmateur]

Zou de on error helpen?

Private Sub CommandButton4_Click()
 On Error resume next
 ActiveWorkbook.FollowHyperlink ("H:\Handhaving\Team Openbare Ruimte\Milieupolitie\TOOLS\vergunningen\pdf\" & ComboBox1.Text & ".pdf")
 If Dir("H:\Handhaving\Team Openbare Ruimte\Milieupolitie\TOOLS\vergunningen\pdf\" & ComboBox1.Text & ".pdf") = vbNullString Then MsgBox "Aanvullend document niet aanwezig": Exit Sub
End Sub

Verder weet ik het niet.

 

[drubbus]

Top
dit is m
iedereen bedankt voor de snelle reactie en uiteindelijk de oplossing
Top fora dit

groet
Drubbus

 

[Warme bakkertje]

Je controleert toch eerst of het document aanwezig is.
Zo ja, openen anders Msgbox en routine verlaten.

Private Sub CommandButton4_Click()

    If Dir("H:\Handhaving\Team Openbare Ruimte\Milieupolitie\TOOLS\vergunningen\pdf\" & _
        ComboBox1.Text & ".pdf") = vbNullString Then MsgBox "Aanvullend document niet aanwezig": Exit Sub
    ActiveWorkbook.FollowHyperlink ("H:\Handhaving\Team Openbare Ruimte\Milieupolitie\TOOLS\vergunningen\pdf\" & ComboBox1.Text & ".pdf")
 
End Sub

 

[ExcelAmateur]

Warme bakkertje,

Je heb helemaal gelijk.
Sorry, ik zat verkeerd te denken.