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

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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"