Notifications
Clear all

Botão do Projeto A, fechar o projeto A abrir projeto B

16 Posts
2 Usuários
0 Reactions
2,395 Visualizações
Lorenzon
(@lorenzon)
Posts: 355
Reputable Member
Topic starter
 

Pessoal,

O projeto Programação, através de um botão, abre a userform1 da planilha BD que encontra-se no caminho: C:Usersalisson.jalDownloads

Isso funciona perfeitamente, mas eu preciso que, ao abrir a userform1 da planilha BD, o mesmo seja encerrado.

Exemplo para explicação:

Botão1_click

unload programação

Abra a userform1 da planilha BD.show

end sub

 
Postado : 05/03/2015 8:11 am
Lorenzon
(@lorenzon)
Posts: 355
Reputable Member
Topic starter
 

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
Página 2 / 2