Este fórum está sendo desativado

[andriessen]

Boa noite!

Alguém sabe me dizer como sair da tela do excel i ir para a pagina aberta do google. Não quero abrir uma nova pagina, apenas mudar a tela .
Meu programa manda mensagens por WhatsApp para determinado apto e quando executo ele ABRE o WhatsApp no browser e manda a mensagem. Porém algumas vezes da erro porque demora muito para abrir a pagina. Se a pagina ja estivesse aberta eu poderia economizar muito tempo.

Grato

[Basole]

@andriessen

Uma opção é baixar o app do whatsapp e instalar no seu PC: https://www.whatsapp.com/download

....e usando o InternetExplorer para "linkar" o aplicativo.

Segue exemplo de rotina para enviar a mensagem com o apliativo já conectado, automaticamente:

Código: Selecionar todos

Sub Enviar_WhatsApp()
    Dim IE       As Object
    Dim Num_Cel  As String
    
     Num_Cel = "11912345678" '(*** Insira o numero cel. com o ddd ****)
    
     Set IE = CreateObject("InternetExplorer.Application") 'Cria o objeto internet Explorer
      
      IE.navigate "whatsapp://send?phone=55" & Num_Cel & _
                  "&text=Hello Word" ' * Envia a mensagem para este telefone no brasil (55)
    
        Application.Wait Now() + TimeSerial(0, 0, 4)   'Aguarda por 4 segundos....
     
      VBA.SendKeys "~"   '   .... e envia a  tecla: v
    
    Set IE = Nothing
    
End Sub

[andriessen]

Bom dia , Basole!
Funcionou. mas preciso de mais uma ajuda. Consegui trocar o numero cel por uma variavel que ja tinha mas nao consegui subtituir o HELLO WORD por uma variavel "textoenviar".
Poderia me ajudar?

[andriessen]

@Basole

[Basole]

@andriessen
Não me atentei a esse detalhe da variavel da Api da mensagem.
Segue com as alteracoes .....

Código: Selecionar todos

Sub Enviar_WhatsApp()
    Dim IE              As Object
    Dim Num_Cel         As String
    Dim textoEnviar     As String
         
     Num_Cel = "11912345678" '(*** Insira o numero cel. com o ddd ****)
     textoEnviar = "Hello Word"
       
      ' As variaveis acima podem ser associadas a(s) celula(s) especifica:
      '  Ex.:   Num_Cel = Range("A1")
      '         sMsg = Range("A2")
     
     Set IE = CreateObject("InternetExplorer.Application") 'Cria o objeto internet Explorer
      
      IE.navigate "whatsapp://send?phone=55" & Num_Cel & _
                  "&text=" & textoEnviar & ""  ' * Envia a mensagem para este telefone no brasil (55)"
    
        Application.Wait Now() + TimeSerial(0, 0, 4)   'Aguarda por 4 segundos....
     
      VBA.SendKeys "~"   '   .... e envia a  tecla: v
    
    Set IE = Nothing
    
End Sub