Ouverture d'une boîte de dialogue pour ouvrir un fichier

Bonjour,

Je suis récemment passé sous Windows 7, et le code que j'utilisais sous XP pour ouvrir une boîte de dialogue permettant de sélectionner un fichier ne marche plus:

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub OpenDialogBox()   Dim objDialog As Object   Set objDialog = CreateObject("UserAccounts.CommonDialog") objDialog.InitialDir = ThisDocument.Path objDialog.Filter = "Toutes les images(*.bmp;*.dib;*.gif;*.jpg;*.ico;*.cur)" objDialog.showopen   End Sub

---

Je voulais donc savoir s'il existait une solution aussi simple que sur Excel:

Code:

---

Application.getopenfilename

---

Ce code ne marche pas chez moi sous Visio, peut-être qu'il existe une référece à ajouter, ou un équivalent Visio.

Merci :D

bonsoir
pourquoi windows 7 ?
qu'est-ce que cela apporte de +, à part le fait que certaines applications ne marchent plus ?

J'avais trouvé ce code sur le net, et il précisait qu'il faisait appel à une fonction ou un DLL qui n'était plus présent sur Windows 7.

Bon, finalement j'ai trouvé une solution.

Je rajoute la référence Microsoft Excel XX.X Object Library et j'appelle

Code:

---

Excel.Application.GetOpenFilename

---