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:
Je voulais donc savoir s'il existait une solution aussi simple que sur Excel:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Ce code ne marche pas chez moi sous Visio, peut-être qu'il existe une référece à ajouter, ou un équivalent Visio.
Code : Sélectionner tout - Visualiser dans une fenêtre à part Application.getopenfilename
Merci
Partager