Private Sub btPubli_Click()
        Dim sID As String
        Try
            If nID_LF <> 0 Then
                sID = nID_LF.ToString
                Dim app As WorkflowApplication = New WorkflowApplication
                app.Registration = New WorkflowServerRegistration(serverName)                
                app.ApplicationName = "Controle_ouverture_dr_client"
                app.ApplicationType = WorkflowApplicationType.Client
                Dim parameters As Dictionary(Of String, String) = New Dictionary(Of String, String)
                parameters.Add("LF_ID", nID_LF)

                Dim LF_Conn As WorkflowConnection = app.Open
                LF_Conn.Connect()
                Dim wkf As PublishedWorkflow = LF_Conn.Database.GetPublishedWorkflow(WF_PUBLICATION)
                wkf.Refresh()
                Dim initiateur As New Initiator
                initiateur.Name = "workflow"
                Dim op As New WorkflowCreationOptions
                wkf.StartWorkflowDirectly(String.Empty, Nothing, initiateur, op, parameters)

                MsgBox("Votre DataRoom client est publiée", MsgBoxStyle.Information, MSG_TITRE)
                Close()
            Else
                MsgBox("Point d'entrée de la DataRoom non reconnu", MsgBoxStyle.Critical, MSG_TITRE)
            End If


        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub