MsgBox, InputBox não aparecem no Access

[andregiordano43]

Boa tarde à todos!!

Estou desenvolvendo um aplicativo que consolida alguns dados utilizando VBA no Excell e depois importa tudo para o Access.

Fiz um formulário no Access para deixar uma interface mais familiar para o usuário, porém o problema é que quando o user clica no botão onde roda a macro VBA (que está no Excell), alguns InputBox e MsgBox não aparecem!!

Quer dizer, até aparece, mas parece que o Excell roda "por tras" do Access, e para o cara ver a mensagem ele tem que dar um ALT+TAB.

A maneira que estou acessando o Excell é a seguinte:

Dim oApp As Object

Set oApp = CreateObject("Excel.Application")

Set e = CreateObject("Excel.Application")

Set pasta = e.Workbooks.Open("C:\Documents and Settings\agiord\Desktop\Pastas\Consolida_Mes.xls")

e.Visible = True

Alguém conhece alguma outra forma, para que as mensagens que digitei no Excell apareçam no Access sem o cara ter que dar ALT+TAB???

Abraços!!!

[João.Neto]

AppActivate pasta.name

[andregiordano43]

Olá amigo !!!

Ele deu um erro quando digitei o comando que você passou:

"O Objeto é obrigatório"

Voce sabe como resolver?

Abraços!!

[João.Neto]

AppActivate e.name

[andregiordano43]

Perfeito, muito obrigado!