Usuário de rede - vba

[Felipe Paz]

Pessoal, bom dia, vi em algum lugar a possibilidade de criar uma variável que defina o usuário atual da máquina. Explico melhor:

Criei uma planilha onde esta pode ser importada como pdf, porém a criei no meu pc e passaria esta planilha para outro pc com outro usuário. O problema é que toda vez que tiver que trocar de usuário ou pc eu tenho que redefinir no vba de novo o caminho onde será salvo esse pdf.

 

                              ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                            "C:\Users\felipe.paz\Documents\" & nome & ".pdf", Quality:=xlQualityStandard _
                            , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
                            True

 

Aqui está definido no meu usuário mas gostaria de deixar uma variável que independente do usuário o caminho possa sempre estar correto.

[Basole]

Tente desta forma: 

  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                            Environ("USERPROFILE") & "\Documents\" & nome & ".pdf", Quality:=xlQualityStandard _
                            , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
                            True

 

[Felipe Paz]

Deu certo, Basole. Valeu ae!!!

[RiKemmerich]

Tem outra maneira de identificar o usuário do computador,

 

Dim ObjNetwork, GetUserN

Set ObjNetwork = CreateObject("WScript.Network")
GetUserN = ObjNetwork.UserName
UserID = GetUserN
UserID = LCase(UserID)