Erreur 800A01AD sous Windows 7

Version imprimable

Bonjour,
Mon code fonctionnait sous Xp et plus sous Windows 7 ? Connaitriez-vous l'équivalent. :?
Merci
Code:

1 2 3 4 5 Set objDialog = CreateObject("UserAccounts.CommonDialog") objDialog.Filter = "Money|*.ofx|Tous les fichiers|*.*" objDialog.Flags = &H0200 objDialog.FilterIndex = 1 objDialog.InitialDir = "D:\downloads"

02/12/2011, 11h34
omen999

bonjour,
un classique
sinon la fonction API GetOpenFileName peut également être utilisée mais il faut un wrapper et c'est un peu compliqué pour le scripteur occasionnel :roll:
02/12/2011, 15h17
Superpat9999

Navré, mais je n'y arrive pas, j'ai toujours pas. J'ai toujours l'erreur 800A01AD.
Je souhaite ouvrir une boite de dialogue dans un dossier particulier et sélectionner un fichier avec une extension .ocx !:cry:
02/12/2011, 16h19
omen999

as-tu au moins essayé la solution testée par progicl dans le lien que je t'ai donné (le dernier message) ?
02/12/2011, 17h55
Superpat9999
Oui merci, cela fonctionne avec la commande suivante et j'ai copié la dll, mais je suis obligé de changer de dossier et de sélectionner les .ofx.
C'est beaucoup moins pratique :roll:
Code:

1 2 3 4 Set objDialog = CreateObject("SAFRCFileDlg.FileOpen") Ret = objDialog.OpenFileOpenDlg Fichier = objDialog.FileName
02/12/2011, 19h24
omen999

Citation:

mais je suis obligé de changer de dossier et de sélectionner les .ofx.

eh oui, lire ici

:salut:
essaye cette fonction BrowseForFile() pour résoudre le problème du fichier redouté de dialogue dans Windows Vista et Windows 7 , il ouvre un dialogue de navigation utilisant un fichier hta pour contourner la sécurité du navigateur. Il n'y a pas de filtre natif pour le type de fichier. Tous les fichiers sont parcourus pour que se fait normalement par l'intermédiaire de l'Explorateur Windows

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Function BrowseForFile()
 Dim shell : Set shell = CreateObject("WScript.Shell")
 Dim fso : Set fso = CreateObject("Scripting.FileSystemObject")
 Dim tempFolder : Set tempFolder = fso.GetSpecialFolder(2)
 Dim tempName : tempName = fso.GetTempName()
 Dim tempFile : Set tempFile = tempFolder.CreateTextFile(tempName & ".hta")
 tempFile.Write _
 "<html>" & _
 "    <head>" & _
 "        <title>Browse</title>" & _
 "    </head>" & _
 "    <body>" & _
 "        <input type='file' id='f'>" & _
 "        <script type='text/javascript'>" & _
 "            var f = document.getElementById('f');" & _
 "            f.click();" & _
 "            var shell = new ActiveXObject('WScript.Shell');" & _
 "            shell.RegWrite('HKEY_CURRENT_USER\\Volatile Environment\\MsgResp', f.value);" & _
 "            window.close();" & _
 "        </script>" & _
 "    </body>" & _
 "</html>"
 tempFile.Close
 
 shell.Run tempFolder & "\" & tempName & ".hta", 1, True
 
 BrowseForFile = shell.RegRead("HKEY_CURRENT_USER\Volatile Environment\MsgResp")
 shell.RegDelete "HKEY_CURRENT_USER\Volatile Environment\MsgResp"
End Function
 
MsgBox BrowseForFile,64,"BrowseForFile"

04/12/2011, 10h28
Superpat9999

Merci à tous,
Je vais renoncer et juste me servir de SAFRCFileDlg, car après essai je ne trouve rien de satisfaisant. Je pensais que connaissant le dossier et l’extension, on aurait dû retrouver une fonction simple sous Windows 7 et équivalente à celle d'XP, mais ce n'est pas le cas. Peut-être en faisant appel à un autre langage ? :(
Bon dimanche