Este fórum está sendo desativado

[WLOPES]

Estou desenvolvendo uma macro para gravar uma plan no desktop, só que eu queria generalizar.
Tem alguma função ou comando no vba que me diga o desktop do usuário para que eu possa usar em uma variável para indicar o caminho onde a plan vai ser gravada?
Abs.

[daniexcel]

Código: Selecionar todos

Sub Save_File()

 vbSimNao = MsgBox("Tem certeza que deseja salvar o arquivo?", vbYesNo, "GURU DO EXCEL")
                'se resposta for sim, ele exclui, sai e desmarca
                If vbSimNao = 6 Then


    Sheets("MAIN").Select
    ActiveWindow.SelectedSheets.Visible = False

' salva o arquivo na pasta
On Error Resume Next
Dim Caminho As String 'declaracao da variável caminho
Caminho = "C:\Users\" & Environ$("username") & "\Desktop\"
ActiveWorkbook.SaveAs Filename:=Caminho & "arquivo.xls" ' digite o nome do arquivo

    
                    Else
' se sair, nao faz nada
                        Exit Sub
                End If
    
End Sub

[daniexcel]

veja se o codigo acima te atende

[WLOPES]

- Dani, obrigado pela ajuda.
Pesquisei um pouco e cheguei a esta solução:
Obrigado pela ajuda.

Sub gravar_plan_no_desktop()
'
' gravar_plan_no_desktop Macro
'
Dim nameplan As String
Dim TempDesk, DeskPath As String 'variável que vai armazenar a Pasta Desktop do usuário
DeskPath = Environ("USERPROFILE")
TempDesk = DeskPath & "\Desktop\"
nameplan = Range("a1") + " liberada"
ActiveSheet.Select
ActiveSheet.Move
ActiveWorkbook.SaveAs Filename:=TempDesk + nameplan, _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close

End Sub