Discussion :

[marycaLou]

Bonjour,

J'ai une macro qui permet de classer des courriels sur un poste ou un serveur. Elle fonctionne bien.
Le problème que nous rencontrons est lorsque l'utilisateur sélectionne son bureau, le chemin que je vois est vide.
Voici mon code pour repérer le répertoire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
If Dir(FolderName, vbDirectory) = "Desktop" Or Dir(FolderName, vbDirectory) = "Bureau" Or _
        FolderName = "Desktop" Or FolderName = "Bureau" Then ....

Le "Foldername" me donne "Bureau" mais si je veux avoir le nom du répertoire le résultat est "", soit vide.

Comment faire pour avoir le nom du répertoire?

[Jean-Philippe André]

Salut,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Function GetDesktop() As String
    Dim oWSHShell As Object
 
    Set oWSHShell = CreateObject("WScript.Shell")
    GetDesktop = oWSHShell.SpecialFolders("Desktop")
    Set oWSHShell = Nothing
End Function

ou bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[marycaLou]

Merci. Beaucoup.
Cela à bien fonctionné.