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 365 e Office .

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 outras soluções devem usar os fóruns abaixo indicados para esta e outras dúvidas:

Microsoft Learn

Obtenha suporte para o Microsoft 365 para empresas