Sub PourLePlaisir() ' hommage à Herbert
'par souci de fainéantise
ActiveWorkbook.Names.Add Name:="NOMWINDOWS", RefersToR1C1:= _
"=MID(GET.WORKSPACE(23),SEARCH(""Users\"",GET.WORKSPACE(23))+6,FIND(""\"",GET.WORKSPACE(23),8)-2)"
[A1].Formula = "=NOMWINDOWS"
End Sub