Les Macros VBA→Les Répertoires Et Les Fichiers - FAQ Excel

Cet exemple affiche le chemin de "Mes documents".

Adaptez la valeur de la constante en fonction du répertoire à identifier.

VbaSélectionnezSub CheminRepertoiresSpeciaux() 'Testé avec Excel 2002 & 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 'La liste des constantes pour afficher le chemin des autres dossiers spéciaux de Windows '(Const Cible = &H5 'Mes Documents ) '&H5 = My Documents '&HC = (Virtual) \My Documents\ '&H27 = \My Documents\My Pictures '&H2E = \Documents '&HD = \My Documents\My Music '&HE = \My Documents\My Video '&H0 = Virtual Desktop '&H1 = Virtual Internet Explorer (icon on desktop) '&H2 = Start Menu\Programs '&H3 = Virtual My Computer\Control Panel '&H4 = Virtual My Computer\Printers '&H6 = \Favorites '&H7 = Start Menu\Programs\Startup '&H8 = \Recent '&H9 = \SendTo '&HA = Virtual \Recycle Bin '&HB = \Start Menu '&H10 = \Desktop '&H11 = Virtual My Computer '&H12 = Virtual Network Neighborhood '&H13 = \nethood (may dupe My Network Places) '&H14 = Virtual windows\fonts '&H15 = \templates '&H16 = \Start Menu '&H17 = \Programs '&H18 = \Startup '&H19 = \Desktop '&H1A = \Application Data '&H1B = \PrintHood '&H1C = \Local Settings\Applicaiton Data (non roaming) '&H1D = nonlocalized startup program group '&H1E = (NT) nonlocalized Startup group for all NT users '&H1F = (NT) all user's favorite items '&H20 = temporary Internet files '&H21 = (NT) Internet cookies '&H22 = (NT) Internet history items '&H23 = \Application Data '&H24 = Windows directory or SYSROOT '&H25 = GetSystemDirectory() '&H26 = \Program Files '&H28 = \ '&H29 = x86 system directory on RISC '&H2A = x86 Program Files folder on RISC '&H2B = \Program Files\Common '&H2C = x86 Program Files Common folder on RISC '&H2D = \Templates '&H2F = \Start Menu\Programs\Administrative Tools '&H30 = \Start Menu\Programs\Administrative Tools '&H31 = Virtual Network and dial-up connections folder '&H35 = My Music folder for all users '&H36 = My Pictures folder for all users '&H37 = My Video folder for all users '&H38 = System resource directory '&H39 = Localized resource directory '&H3A = Links to OEM specific apps for all users '&H3B = \Local Settings\Application Data\Microsoft\CD Burning '&H3D = Virtual Computers Near Me folder End Sub