Este fórum está sendo desativado

[CAMILOALVES]

Boa Tarde!
Tenho uma planilha onde atualizo dados diários e salvo os resultados no diretório C:\..., gostaria se possível, ajuda de vocês no sentido de sempre que Eu clicar no botão “salvar arquivo”, além de salvar os dados no diretório de origem (C:\...), o fizesse também automaticamente em um diretório alternativo (Q:\...) sendo que o arquivo salvo no diretório (Q:\...) devem sempre deve subscrever o anterior e não ir criando várias versões.
DIRETÓRIO ATUAL - C:\MODULAR\QUALIDADE\05 - Planilhas de controle Qualidade\1 Planilhas de Qualidade ASC 1\01- Planilha de controle Qualidade ASC 1 - 2018.xlsm
DIRETÓRIO ALTERNATIVO - Q:\ 01 - Planilhas Controle de Qualidade
Desde já agradeço

[babdallas]

Tente isso. Se não der certo, anexe seu arquivo e diga o que não deu certo.

Código: Selecionar todos

Public Sub SalvarPastaTrabalho()

    Dim strCaminho1     As String
    Dim strCaminho2     As String
    Dim strNome        As String
    
    Application.DisplayAlerts = False
    
    strCaminho1 = "C:\MODULAR\QUALIDADE\05 - Planilhas de controle Qualidade\1 Planilhas de Qualidade ASC 1\"   '1º caminho do arquivo
    strCaminho2 = "Q:\ 01 - Planilhas Controle de Qualidade\"                                                   'Caminho Alternativo
    strNome = ThisWorkbook.Name                                                                                 'Nome do arquivo atual
    
     
    ActiveWorkbook.SaveAs Filename:=strCaminho1 & strNome
    
    ActiveWorkbook.SaveAs Filename:=strCaminho2 & strNome
    
    Application.DisplayAlerts = True
End Sub

[CAMILOALVES]

Prezado babdallas 06 Abr 2018 às 16:35
Muitíssimo Obrigado, funcionou como imaginado por mim e desenvolvido por você.
Atenciosamente
Camilo