Accès à "Mes documents"

[avatar]

Bonjour,
Existe-t-il un moyen d'intégrer dans une macro de sauvegarde le nom "Mes documents" plutôt que c:\Documents and setting\user....

Dans le cas contraire comment récupérer facilement le userid à partir d'une macro ?

Merci

 

[kloss]

Hello

Function SpecFldPath(FolderName As Variant) As String
Dim wShell As Object
' Valeurs possibles pour l'argument :
' "AllUsersDesktop"
' "AllUsersStartMenu"
' "AllUsersPrograms"
' "AllUsersStartup"
' "Desktop"
' "Favorites"
' "Fonts"
' "MyDocuments"
' "NetHood"
' "PrintHood"
' "Programs"
' "Recent"
' "SendTo"
' "StartMenu"
' "Startup"
' "Templates"
Set wShell = CreateObject("WScript.Shell")
SpecFldPath = wShell.SpecialFolders(FolderName)
Set wShell = Nothing
End Function


++