Runtime error 438_TerminalServicesProfilePath
Bonjour,
Je vais essayer de faire simple, même si mon problème semble être compliqué.
J'étais sous Windows XP avec Office 2007.
J'ai créé un classeur Excel avec une macro me permettant de récupérer le chemin du profil TS d'un utilisateur.
Tout fonctionnait très bien.
Windows 7 étant à la mode, j'ai réinstallé mon poste.
J'ai réinstaller le même Excel 2007, mais ma macro ne fonctionne plus.
J'ai un beau message d'erreur :
Citation:
Erreur d'exécution '438':
Propriété ou méthode non gérée par cet objet
Voici le code qui me pose problème :
Code:
1
2
3
4
5
6
7
8
9
10
|
Sub macro1()
Set objUser = GetObject("LDAP://cn=toto,ou=User-Accounts,dc=emea,dc=cib")
WScript.Echo "Terminal Services Profile Path: " & objUser.TerminalServicesProfilePath
End Sub |
Si je copie ce code dans un VBS cela fonctionne bien.
Pourquoi est ce que cela fonctionne en VBS et pas en VBA ?
Qu'est ce qu'il manque à mon Windows 7 par rapport à mon ancien XP ?
Si qqcn pouvais me donner un coup de main sur ce problème, ca me sortirait une très grosse épine du pied.
Merci d'avance à tous !
:ccool:
