Discussion :

[pilote301152]

Code pour trouver le chemin du répertoire "Mes Documents" ?

[SilkyRoad]

bonjour

tu peux tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub cheminMesDocuments()
'testé avec Excel2002 & WinXp
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

bon week end
michel

[jmfmarques]

Tu trouveras là une réponse "générale" que j'ai faite en ce qui concerne le chemin des répertoires spéciaux

http://www.developpez.net/forums/sho...light=speciaux

Il te suffira de lui donner le bon paramètre ..., je pense

Edit : Je vois que SilkyRoad te l'a même déjà indiqué, ce paramètre

[pilote301152]

Merci le code de SilkyRoad marche à merveille

Pour un premier contact sur ce forum ... c'est Super