Salut,

tu peux determiner l'emplacement du bureau de 2 facons :


Function GetDesktop() As String
Dim oWSHShell As Object

Set oWSHShell = CreateObject("WScript.Shell")
...