Sub Btn_Tarif_Click
   Dim nom_file As String
   nom_file =  "file:///sdcard/_lelong/fiches_tarif/" & nomdoc
   'Msgbox(nom_file,"nom fichier")
Dim zz As Intent 'Requires a reference to the Phone library
    zz.Initialize(zz.ACTION_VIEW, nom_file)
    zz.SetType("application/pdf")
    'zz.WrapAsIntentChooser("Choose PDF Viewer")
    StartActivity(zz)
End Sub