Problème avec Application.GetOpenFilename

Salut tout le monde , je cherche a créer un menu pour que l'utilisateur puisse ouvrir n'importe quel fichier a partir de son disque dur mais la commande Application.GetOpenFilename ne fonctionne pas elle m'affiche l'erreur 424 " Un objet et requis" svp est ce que qq pourrait m'aider, voila mon programme c'est tout bete :

Citation:

---

Private Sub Ouvrir_Click(Index As Integer)

Dim QuelFichier

QuelFichier = Application.GetOpenFilename()
MsgBox QuelFichier

End Sub

---

Il existe un contrôle qui fonctionne très bien sous vb.net c'est "OpenFileDialog".
Tu l'ajoute à ta form, puis au clic de ton bouton "Ouvrir" tu met :

Code:

---

1 2 3 4

Private Sub OuvrirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OuvrirToolStripMenuItem.Click 'Ouvre la boite de dialogue "ouvrir Fichier" OpenFileDialog1.ShowDialog() End Sub

---

Ceci t'ouvre une boite de dialogue, tu pourra parcourir tous les fichiers que tu veux ensuite pour ouvrir le fichier sélectionner :

Code:

---

1 2 3 4 5

Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk 'ouverture du fichier sélectionner par l'utilisateur Process.Start(OpenFileDialog1.FileName)   End Sub

---

Voilà en espérant t'avoir aider, bonne continuation.