Guru do Excel e Power BI

Enviado: **05 Jul 2020 às 15:33**

Boa tarde.

É possível estabelecer um parâmetro, de maneira que eu possa salvar simultaneamente, um arquivo em duas unidades?
Em outras palavras, quero salvar todos os arquivos em duas unidades externas, cartão SD e HD externo.

Grato - GENECI.

Enviado: **13 Jul 2020 às 07:22**

Boas penso que este código lhe possa ajudar:

Código: Selecionar todos

Sub salvar()
    
    Dim PrimeiroCaminho As String
    Dim SegundoCaminho As String
    Dim NomeDoFicheiro As String

    PrimeiroCaminho = "D:\Users\amira\Desktop\Pasta1\"
    SegundoCaminho = "D:\Users\amira\Desktop\Pasta2\"
    NomeDoFicheiro = ActiveWorkbook.Name

    ActiveWorkbook.SaveAs Filename:=PrimeiroCaminho & NomeDoFicheiro

    ActiveWorkbook.SaveAs Filename:=SegundoCaminho & NomeDoFicheiro
    
End Sub

Alguma dúvida só chamar.

Guru do Excel e Power BI

SALVANDO SIMULTANEAMENTE EM DUAS UNIDADES.

SALVANDO SIMULTANEAMENTE EM DUAS UNIDADES.

SALVANDO SIMULTANEAMENTE EM DUAS UNIDADES.