recuperer le nom du menu démarrer

tmanzo · 18 Janvier 2011

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 · 18 Janvier 2011

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

Code:

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 · 18 Janvier 2011

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

recuperer le nom du menu démarrer

tmanzo

Guest

kiki29

XLDnaute Barbatruc

tmanzo

Guest

Discussions similaires

recuperer le nom du menu démarrer

tmanzo

Guest

kiki29

XLDnaute Barbatruc

tmanzo

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency