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