A avatar Guest 16 Février 2005 #1 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
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
K kloss Guest 16 Février 2005 #2 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 ++ Vote positif 0 Vote négatif
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 ++