recuperer le nom du menu démarrer

[tmanzo]

Boujours,

je recherche une solution pour récupere le nom qui est afficher en haut du menu démarrer pour l'ajouter dans une cellule.

j'arrive à récuperer le login de la session mais pas le nom qui est differente dans le menu démarrer

merci d'avance pour vos réponses

 

[kiki29]

Re : recuperer le nom du menu démarrer

Salut,s'il s'agit du nom de login de la session Windows,utiliser Environ("USERNAME")
sinon voir avec

Option Explicit

Sub VariablesEnvironnement()
Dim i As Long, sEnv As String
Dim Pos As Long
    ActiveWorkbook.Worksheets.Add
    i = 1
    Do
        sEnv = Environ(i)
        If Len(sEnv) = 0 Then Exit Do
        Pos = InStr(Environ(i), "=")
        Cells(i, 1) = Left$(sEnv, Pos - 1)
        Cells(i, 2) = Right$(sEnv, Len(sEnv) - Pos)
        i = i + 1
    Loop
End Sub

 

[tmanzo]

Re : recuperer le nom du menu démarrer

Merci d'avoir repondu KIKI69

mais ce que je cherche, c'est ce qui apparait en haut de menu "démarrer" avec ta solution je ne vois par apparaitre le nom qui ce trouve en haut (qui est different du login )

Merci encore d'avoir répondu