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