Excel Enviar Dahsboard do excel para grupo do whatsapp - VBA

[Joselito Dionisio Mendonca]

Devido a uma necessidade do trabalho busquei saber como fazer para enviar gráficos do excel automaticamente para grupo do whtasapp, vi vários posts vídeos e cheguei ao comando abaixo, nele eu consigo fazer o envio de mensagens, porém não consigo copiar um intervalo de células para colar no whatsapp e fazer o envio.

O objetivo é enviar a mensagem, mas não para um contato especifico e sim para um grupo do whatsapp na empresa em que trabalho (qualidade), para que possam receber esse report. No caso o comando deve fazer um loop para achar o nome do grupo do whatsapp especificado.

 

A mensagem enviada deve ser a seguinte.

 

Intervalo de células A1:X76

 

Poderia me ajudar? Desde já agradeço. Muito obrigado!  

 

 

Segue abaixo o comando que estou utilizando:

 

Private Sub CommandButton1_Click()

ThisWorkbook.Save
Dim contato As String
Dim texto As Variant
Dim grafico As Variant
Dim linha As Integer

'GRAPH é a guia da planilha
Sheets("GRAPH").Select

 linha = 2
 
   
' Shell "C:\Program Files\Google\Chrome\Application\chrome.exe" & " https://web.whatsapp.com/"
 ActiveWorkbook.FollowHyperlink Address:=" https://web.whatsapp.com/"

 Application.Wait (Now + TimeValue("00:00:08"))

 Do Until Sheets("GRAPH").Cells(linha, 7) = ""

 Application.Wait (Now + TimeValue("00:00:04"))

 
 'texto é o intervalo de células onde está o gráfico que desejo copiar, contato é a célula onde está o nome do grupo
 texto = Sheets("GRAPH").Range("A1:X77").Copy 
 grafico = ActiveSheet.Paste
 contato = Cells(linha, 7)

 Application.Wait (Now + TimeValue("00:00:04"))

  Call SendKeys("{TAB}", True)
  
 Application.Wait (Now + TimeValue("00:00:01"))

  Call SendKeys(contato, True)
  
 Application.Wait (Now + TimeValue("00:00:01"))

  Call SendKeys("~", True) 'entra na tela do contato no WhatsApp

 Application.Wait (Now + TimeValue("00:00:04"))

  Call SendKeys(texto, True)
  Call SendKeys(grafico, True)
  
 Application.Wait (Now + TimeValue("00:00:01"))

  Call SendKeys("~", True)

 linha = linha + 1

 Loop

MsgBox ("Notificação enviada com sucesso")

End Sub

[Alberto Alencar]

Olá Joselito,

 

Se possível gostaria de conhecer o código VBA final que utilizou para enviar mensagem do Excel para um grupo do Whatsapp. Não precisa divulgar todo o código, apenas as partes relacionadas com este tema.

 

Desejo fazer isto e Já consultei várias fontes mas até agora sem sucesso.

 

Agradeço antecipadamente!