Excel Planilha com Erro de compilação

[Jmbs]

@Patropi,

 

 Amigo poderia me ajudar nesse erro de compilação.

 

 

 

 

 

Att

[Edson Luiz Branco]

Boa noite, @Jmbs

 

Essas funções que estão nesse trecho de código não são nativas do VBA, são API's do Windows e elas tem que ter sido declaradas no topo do seu código, logo nas primeiras linhas (fora dessa Sub), ou área de declaração.

Procure por instruções Declare tais como:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName ... etc

Se não existirem veja novamente no código de onde foi copiado para ter certeza de que não foi deixado de fora.

Também verifique se você está usando a versão do Office 32 ou 64bits, pois as API's têm que estarem convertidas para a arquitetura correta.

[Jmbs]

Boa noite, @Edson Luiz Branco

 

Fiz algumas alterações nas API,s, não sei se foram suficiente. Estou anexando o arquivo pra você me ajudar.

Usuário:Guia do Excel

Senha:controledeestoque2015

 

Att

Cópia de Controle de Estoque 3.0.7z

[Edson Luiz Branco]

você não disse ainda se seu Office é 32/64...

[Jmbs]

Boa noite, @Edson Luiz Branco

 

Desculpe meu amigo, é 64

 

 

Att

[Edson Luiz Branco]

Não tenho como testar aqui porque o meu é 32bits, mas teste alterando o tipo do argumento hwnd das funções acima de Long para LongPtr.

De:
(ByVal hWnd As Long,...
Para:
(ByVal hwnd As LongPtr,...