Este fórum está sendo desativado

[GENECI]

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.

[AfonsoMira]

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.