Je cherche à ouvrir un document d'une base B dans la base A via une dialogbox
Voici le code que j'ai fais : il fonctionne nickel
- Code : Tout sélectionner
Sub Click(Source As Button)
Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim db1 As New NotesDatabase ("chemin_serveur","chemin_fichier")
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Set Db = session.CurrentDatabase
Set uidoc = ws.CurrentDocument
recupcode = uidoc.FieldGetText("ac1_fc")
Dim view As NotesView
Dim collection As NotesDocumentCollection
variable = recupcode
Set view = db1.GetView("Par code AC")
Set doc = view.GetDocumentByKey(variable, True)
If Not doc Is Nothing Then
Call ws.EditDocument(False, doc)
Else
Msgbox "Il n'y a aucun document correspondant au code AC : " & recupcode
End If
End Sub
Il m'ouvre bien le document souhaité mais je ne sais pas comment je peux intégrer la notion de Dialogbox
est ce quelqu'un aurait-il une idée?
Merci d'avance
Cordialement
