Alternative Openfiledialog

Bonjour

je bloque depuis hier , sur ce code qui ouvre via openfiledialog  un dataset stocké dans un dossier .

Je voudrais sauter l'étape du openfiledialog et ouvrir directement le dataset dont le chemin d’accès est :

Dim Filename As String = System.IO.Path.GetFileName(My.Application.Info.DirectoryPath & "\" & "\stocks" & "\" & "Classeur.xml")

voila le code :

Private Sub MenuOuvrirDS_Click(sender As Object, e As EventArgs) Handles MenuOuvrirDS.Click, BoutonDS.Click
        Dim Premier As Boolean = My.Settings.premier
        If Premier = False Then

            For Each Table In My.Forms.Affichage.DSet.Tables
                Table.dispose
            Next Table


        End If
        Dim DialogueOuvrir As New OpenFileDialog
        With DialogueOuvrir
            .InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
            .Filter = "Fichiers xml (*.xml)|*.xml"
            .ShowDialog()
        End With
        Dim fichierDS As String = DialogueOuvrir.FileName
        My.Settings.fichierDS = fichierDS
        Dim fichierschéma As String = Path.ChangeExtension(fichierDS, "xsd")
        My.Settings.LeSchema = fichierschéma

        With My.Forms.Affichage
            .DSet.ReadXmlSchema(fichierschéma)
            .DSet.ReadXml(fichierDS)
            .DataGridView1.DataSource = .DSet.Tables("Initiale")
            .MdiParent = Me
            .Show()
        End With
        My.Settings.premier = False

    End Sub

PS: merci à Clément Marmotte pour la mise a disposition de ce programme.

le lien du programme : https://www.transfernow.net/dl/20231126yj8LcCJG

merci beaucoup de votre aide

Windows / Firefox 120.0