Donald est en train d’écrire une macro dans laquelle il doit référencer le bureau d’un utilisateur. Cependant, le chemin d’accès au bureau varie nécessairement d’un système à l’autre et d’un utilisateur à l’autre. Il se demande quel codage il peut utiliser pour déterminer le chemin vers le bureau quel que soit le système.

Il existe plusieurs façons de trouver le chemin d’accès au bureau dans VBA. Une façon est d’appeler l’hôte de script Windows, de cette manière:

Function GetDesktop() As String     Dim oWSHShell As Object

Set oWSHShell = CreateObject("WScript.Shell")

GetDesktop = oWSHShell.SpecialFolders("Desktop")

Set oWSHShell = Nothing End Function

Notez qu’il s’agit d’une macro définie par l’utilisateur que vous pouvez utiliser à partir de la feuille de calcul ou d’une autre macro. L’utilisation de la feuille de calcul serait la suivante:

=GetDesktop()

Une autre façon de déterminer le chemin vers le bureau est d’utiliser la ligne suivante dans votre code:

sPath = Environ("USERPROFILE") & "\Desktop"

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (8233) s’applique à Microsoft Excel 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban d’Excel (Excel 2007 et versions ultérieures) ici:

link: / excelribbon-Finding_the_Path_to_the_Desktop [Trouver le chemin vers le bureau].