none
COPIAR PASTA DE TRABALHO? RRS feed

Respostas

  • Sub CRIARCOPIA()
    
    Dim ARQDESTINO As String
    Dim PASTA As String
    
    
    
    PASTA = "C:\Users\ANDERSON\OneDrive"
    
    ARQDESTINO = PASTA & "\" & "CONTROLE DE OPÇÕES" & ".xlsm"
        ChDir PASTA
        Application.DisplayAlerts = False
    
    
        ActiveWorkbook.SaveAs Filename:=ARQDESTINO, _
            FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
            Application.DisplayAlerts = True
    End Sub
    




    sábado, 6 de junho de 2015 20:03