Wagner,
Observa abaixo o código que eu associei ao código que você informou. Ele consegui executar a SUB abrir2, a qual fica localizada na pasta de trabalho da planilha BD.
O problema é que ela não fecha o projeto de cadastro, fazendo da seguinte forma:
O botão do projeto A, abre a planilha BD, executa a SUB abrir2, mas não fecha o projeto A.
Option Explicit
Sub AbrirArquivo()
Dim Caminho As String
'Use esse caminho ou outro qualquer que queira de acordo onde está o seu arquivo BD na rede
Caminho = "L:Avaliacao_de_desempenhoBASE_DE_DADOSBD_MASTER.xlsm"
Workbooks.Open Filename:=Caminho
Dim PathToFile As String, _
NameOfFile As String, _
wbTarget As Workbook
'Defina o nome do arquivo e local. Você precisará atualizar esta informação!
NameOfFile = "BD.xlsm"
PathToFile = "L:Avaliacao_de_desempenhoBASE_DE_DADOS"
'Tentativa de definir a pasta de trabalho de destino a uma variável. Se um erro é
'gerado, em seguida, o livro não está aberto, então abra-o
On Error Resume Next
Set wbTarget = Workbooks(NameOfFile)
If Err.Number <> 0 Then
'Open the workbook
'Abra a pasta de trabalho
Err.Clear
Set wbTarget = Workbooks.Open(PathToFile & "" & NameOfFile)
End If
'Check and make sure workbook was opened
'Verifique e certifique-se de livro foi aberto
If Err.Number = 1004 Then
MsgBox "Sorry, but the file you specified does not exist!" _
& vbNewLine & PathToFile & "" & NameOfFile
Exit Sub
End If
On Error GoTo 0
'Run the macro! (You will need to update "MacroName" to the
'Execute a macro! (Você vai precisar atualizar "macro" para a
'name of the macro you wish to run)
'nome da macro que você deseja executar)
On Error Resume Next
Application.Run (wbTarget.abrir2)
End Sub
Temos que adaptá-lo de tal modo que faça essas ações, mas que também encerre o projeto A.
Postado : 06/03/2015 2:09 pm