Este fórum está sendo desativado

[EvandroRodrigues]

Bom dia!
Criei uma macro para gerar um relatório. Ela está funcionando bem, o problema é que quando outro usuário executa a macro, ela não funciona.
Acredito que o problema está no caminho utilizado para salvar o relatório:
c:\users\Evandro\desktop..........
Existe uma maneira de deixar o caminho genérico, para que seja salvo na área de trabalho de cada usuário?

[alexandrevba]

Boa noite!!

Tente pegar o caminho activo.

Código: Selecionar todos

ThisWorkbook.Path & "\NomeArquivo.xls" 

Att

[Reinaldo]

Experimente utilizar a função disponibilizado no link http://www.ozgrid.com/forum/showthread.php?t=24985
Sintaxe: SpecialfolderPath & "\" & NomeDoArquivo

Código: Selecionar todos

Function SpecialFolderPath() As String
     
    Dim objWSHShell As Object
    Dim strSpecialFolderPath
     
     'On Error GoTo ErrorHandler
     ' Create a shell object
    Set objWSHShell = CreateObject("WScript.Shell")
     ' Find out the path to the passed special folder,
     '  just change the "Desktop" for one of the other options
    SpecialFolderPath = objWSHShell.SpecialFolders("Desktop")
     ' Clean up
    Set objWSHShell = Nothing
    Exit Function
ErrorHandler:
     
    MsgBox "Error finding " & strSpecialFolder, vbCritical + vbOKOnly, "Error"
End Function

[TuckaCabral]

Utilize a função ENVIRON ("USERPROFILE").
Ela vai pegar o caminho do desktop do usuario que estiver logado.
Mto boa... pode ser usada tambem pra definir permissoes de uso, mas dai seria usando USERNAME ao inves de USERPROFILE.

[EdivanCabral]

Tenta isso amigo:

Caminho = Environ("userprofile") & "\Desktop"