[VI-2007] Ouverture d'une boîte de dialogue pour ouvrir un fichier [Résolu]

[Ariaar]

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

[champenois51]

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

[Ariaar]

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.

[Ariaar]

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