ABRIR PLANILHA DE MESMA PASTA

PABLOMOREIRAGV 26/01/2011 08:55:19
#363456
Olá amigos,

Alguém sabe me informar o código para que ao executar, terá a função de abrir uma planilha que está na mesma pasta? Quero usar uma planlha principal que terá vários botões que ao clicar abrirá as planilhas especificadas via código que estarão na mesma pasta, porém não queria que no código constasse caminho pois se eu movimentar a pasta para outro pc o código terá que funcionar do mesmo jeito. Alguém pode me ajudar.

Obrigado

IRENKO 26/01/2011 09:24:24
#363460
Simples, em um modulo coloque uma sub supondo:

Sub Plan1()

Sheets([Ô]Plan1[Ô]).Select

End sub

insira um botão na planilha onde vai ser o menu e depois associe a sub à esse botão.
PABLOMOREIRAGV 26/01/2011 09:29:15
#363461
IRENKO,

Acho que me expressei mal. Quando eu disse abrir uma outra planilha a partir da atual, eu me referia a abrir outro arquivo do excel a partir de uma planilha que está na mesma pasta.

Obrigado
JONATHANSTECKER 26/01/2011 10:04:23
#363462
Resposta escolhida
ThisWorkbook.Path
IRENKO 26/01/2011 11:26:52
#363464
Application.Run [Ô][ô][Ô] & ThisWorkbook.Path & [Ô]\Planilha.xls[ô][Ô]

Para isso a outra plamilha tem q estar na mesma pasta, caso não é só apontar.
PABLOMOREIRAGV 26/01/2011 12:58:29
#363473
IRENKO,

Tentei este código e não deu certo. informei o nome da planilha que está na mesma pasta e tá dizendo que a macro não pode ser encontrada.
JONATHANSTECKER 26/01/2011 13:27:23
#363477
Workbooks.Open (ThisWorkbook.Path & [Ô]\Pasta1.xls[Ô])
PABLOMOREIRAGV 26/01/2011 13:53:47
#363488
JONATHANSTECKER,

Valeu cara, deu certinho aqui, estou encerrando o tópico pontuando vc. E também não posso de deixar de agradecer ao IRENKO pela atenção.

Obrigado a todos! Um abraço.
IRENKO 26/01/2011 14:17:44
#363492
Segue exemplo.

na linha:

Application.Run [Ô][ô][Ô] & ThisWorkbook.Path & [Ô]\Planilha2.xls[ô]!Módulo1[Ô]

Vc pode atribuir uma macro para ser acionada na abertura da Planilha2, ou seja, Macro1:

Application.Run [Ô][ô][Ô] & ThisWorkbook.Path & [Ô]\Planilha2.xls[ô]!Módulo1.Macro1[Ô]
Tópico encerrado , respostas não são mais permitidas