Alocar a variável "User" no caminho da pasta em que o Excel se encontra

Question

Pessoal, boa tarde!

A empresa que eu trabalho, migrou para o Office 365 com todo servidor na Nuvem. O código abaixo funcionava normalmente, pois a planilha principal se encontrava em um servidor físico e o caminho deste arquivo em Excel era fixo para qualquer usuário que estivesse logado na rede e em qualquer máquina na empresa, porém com a migração para nuvem, o caminho da mesma se tornou dinâmico pelo One Drive mediante o nome de usuário ativo no computador.

Eu criei a seguinte sub-rotina para capturar o usuário ativo na máquina e aloquei a uma variável que funcionou quando printei uma mensagem de teste na tela, conforme abaixo:

Sub GetActiveUserNameAndSavePDF()

Sub GetActiveUserName()

**Dim UserName As String** 

**UserName = Environ("UserName")** 

 ****     

**Dim User As String** 

**User = UserName** 

 ****     

End Sub

O código seguinte é o que busca toda a informação ativa na tela e salva como PDF na pasta que antes era em servidor físico. Tentei alocar a variável no caminho (destaque em verde), porém não funciona, o caminho não é encontrado:

Private Sub CommandButton1_Click()

ActiveWindow.SmallScroll Down:=-9

**ActiveSheet.Range("A1", "K30").Select** 

ActiveWindow.SmallScroll Down:=-42

**ChDir "C:\Users\" & User & "\Unimed FDRJ\OCA - Documentos\trab\pac\Cardiologia\Prints" '<<<<<< ALTERAR O CAMINHO DE SALVAMENTO'** 

 ****     

    **ThisWorkbook.Worksheets(Array("Autorização")).Select** 

 ****     

**ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, \_** 

                            **Filename:="C:\Users\" & User & "\Unimed FDRJ\OCA - Documentos\trab\pac\Cardiologia\Prints - " & Range("B9") & " - " & Range("B11") & " - Senha " & Range("J7") & " (" & Range("C13").Value & ")"** 

                                        ****                                            

**ActiveWindow.SmallScroll Down:=-3** 

  ****      

End Sub

Conseguem me ajudar? Agradeço desde já!

Answer 1

Olá

Bem vindo à Comunidade Microsoft

Tudo bem, Leandro ? Nossos fóruns são voltados à área técnica e ao usuário doméstico. Usuários em ambiente corporativo ou profissionais de informática e ou soluções para o Office em empresas devem usar os fóruns Microsoft Docs, para estas e outras dúvidas:

Technet

Microsoft Docs

Suporte para empresas