Mes Documents

Résolu
deltaxxx Messages postés 32 Date d'inscription lundi 14 avril 2003 Statut Membre Dernière intervention 19 juin 2009 - 26 nov. 2005 à 10:10
deltaxxx Messages postés 32 Date d'inscription lundi 14 avril 2003 Statut Membre Dernière intervention 19 juin 2009 - 26 nov. 2005 à 10:40
Bonjour,

Je cherche le moyen de trouver le path complet de "mes documents"

un peu comme la fonction "GetWindowsDirectory" mais pour mes documents... Alors si quelqun a une piste, je suis preneur ;)

merci

2 réponses

michelxld Messages postés 402 Date d'inscription vendredi 6 août 2004 Statut Membre Dernière intervention 12 octobre 2008 32
26 nov. 2005 à 10:37
bonjour

tu peux tester

Sub cheminMesDocuments()
Const Cible = &H5 'Mes Documents
Dim objShell As Object
Dim objFolder As Object, objFolderItem As Object


Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(Cible)
Set objFolderItem = objFolder.Self


MsgBox objFolderItem.Path
End Sub

cordialement
michel
3
deltaxxx Messages postés 32 Date d'inscription lundi 14 avril 2003 Statut Membre Dernière intervention 19 juin 2009
26 nov. 2005 à 10:40
merci beaucoup pour cette réponse tres rapide !! tout marche a merveil :P

c tres aprécié !!

0
Rejoignez-nous