Sub btn_import_Click
' log("btn_inport")
Dim imp As parse
Dim d, f As String
PlayBeep
inact_bntoutil
Try
DocumentPicker.InitializeImport("picker", Array("public.data"))
Catch
Creat_Log("btn_import DP init", LastException)
hd.toastmessageshow("Erreur : Voir fichier Log",False)
End Try
Try
DocumentPicker.Show(synthese, button2)
Catch
Creat_Log("btn_import DP Show", LastException)
hd.toastmessageshow("Erreur : Voir fichier Log",False)
End Try
Try
Wait For Picker_Complete (Success As Boolean, URLs As List)
If Success Then
imp = parse_fic(URLs.Get(0))
d = imp.dir
f = imp.nom
File.Copy(d, f, File.DirDocuments, f)
End If
Catch
Creat_Log("btn_import DP Wait", LastException)
hd.toastmessageshow("Erreur : Voir fichier Log",False)
End Try
act_bntoutil
End Sub