Rechercher le dossier "Mes documents"

[dalbator]

Bonjour,

Je cherche à enregistrer ma feuille test.xls dans le dossier "mes documents".

Mon problème consiste à trouver une macro qui me génère l'emplacement du dossiers "mes documents" sur le pc de l'utilisateur... Car selon les machines (xp, vista, utilisateur logué...) le chemin est différent.

Si quelqu'un à une idée pour trouver ma variable "chemin_mes_documents" se serait cool... moi je bloque.


emplacement = chemin_mes_document & "\test.xls"
ActiveWorkbook.SaveAs Filename:=emplacement, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False

merci d'avance

 

[SergiO]

Re : Rechercher le dossier "Mes documents"

Bonjour,

Ceci fonctionne sous Windows 2000 et XP.

Util = Environ("UserName")
Emplacement = "C:\Documents and Settings\" & Util & "\Mes documents\Test.xls"

@+

 

[MichelXld]

Re : Rechercher le dossier "Mes documents"

bonsoir


tu peux aussi essayer

Sub CheminRepertoire_MesDocuments()
    Const Cible = &H5
    Dim objShell As Object, objFolder As Object
    Dim objFolderItem As Object
    
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.NameSpace(Cible)
    Set objFolderItem = objFolder.Self
    
    MsgBox objFolderItem.Path
End Sub

Bonne soirée
MichelXld

 

[kiki29]

Re : Rechercher le dossier "Mes documents"

A titre documentaire : Liste des variables d'environnement

Sub VariablesEnvironnement()
Dim i As Integer, sEnv As String
   
    i = 1
    Do
        sEnv = Environ(i)
        If Len(sEnv) = 0 Then Exit Do
        Cells(i, 1) = Environ(i)
        i = i + 1
    Loop
End Sub

 

[dalbator]

Re : Rechercher le dossier "Mes documents"

Merci à tous les trois.

Je vais maintenant tester sur plusieurs machines.
Mais je devrais m'en sortir.

Quand je pense au temps perdu à chercher tout seul dans mon coin...

Encore merci.