Discussion :

[Empty_body]

Salut,
Existe-t-il un moyen en vb de récupérer le chemin d'accès du répertoire du profile de l'utilisateur connecté???
Merci.

[ouskel'n'or]

J'ai récupéré ça hier ou avant-hier je ne sais plus où... Regarde si ça peut t'intéresser

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub VariablesEnvironnement()
Dim EnvString, Indx, Msg, PathLen
Indx = 1    ' Initialise l'index à 1.
Do
    ' Extrait la variable d'environnement.
    EnvString = Environ(Indx)
    ' Vérifie l'entrée PATH.
    If Left(EnvString, 5) = "PATH=" Then
        ' Extrait la longueur.
        PathLen = Len(Environ("PATH"))
        Msg = "Entrée PATH = " & Indx & _
            " et longueur = " & PathLen
        Exit Do
    Else
        ' Pas d'entrée PATH, donc incrémente.
        Indx = Indx + 1
 
End If
Loop Until EnvString = ""
If PathLen > 0 Then
    MsgBox Msg  ' Affiche le message.
Else
    MsgBox " Il n'existe pas de variable " & _
        "d'environnement PATH."
End If
For i = 1 To 30
    MsgBox Environ(i)
    Debug.Print Environ(i)
Next
 
End Sub

Tu utilises les paramètres ALLUSERSPROFILE ou APPDATA ou CODEPOSTE

Tu dois pouvoir t'en sortir... si c'est bien ce qu'il te faut...

Tu dis, là je parts mais y'en a plein d'autres sur le forum qui vont pouvoir être plus précis et puis je ne parts pas longtemps...

A+

[ThierryAIM]

essaye ca aussi, si tu y trouve ton bonheur :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Declare Function SHGetSpecialFolderPath Lib "shell32.dll" Alias "SHGetSpecialFolderPathA" _
        (ByVal hwndOwner As Long, ByVal lpszPath As String, _
        ByVal nFolder As Long, ByVal fCreate As Long) As Long
 
Public Function GetSpecialFolderPath(ByVal dossier As Long, hWnd As Long)
    Dim buffer As String
 
    buffer = Space(256)
    SHGetSpecialFolderPath hWnd, buffer, dossier, 0
    GetSpecialFolderPath = Left(buffer, InStr(buffer, Chr(0)) - 1)
 
End Function
 
 
Private Sub Command1_Click()
    For i = 0 To 50
        Debug.Print GetSpecialFolderPath(i, Me.hWnd)
    Next
End Sub

[Empty_body]

Merci de vos réponses...
Thierry AIM, ton code semble le mieux correspondre à mes attentes même si il donne trop d'info... La seule chose que j'aimerais retrouver est le nom de l'utilisateur actuellement loggé sur la machine, ce nom correspondant au profile sur la machine... Avec tes 2 fonctions, j'ai nom seulement le nom mais toute série d'info que je ne sais exploiter.

[Megaxel]

Hello!
Si tu ne cherches QUE le login de l'utilisateur, essaie ça:

Code :

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

1
2
3
Sub Test()
    MsgBox Environ("UserName")
End Sub

[Empty_body]

Merci... J'ai effectivement utilisé cette solution...