1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53
| Private Sub choix_message_Click()
Dim Numero As String
Dim Message As String
Dim Edge As Object
Dim WhatsAppWeb As String
Dim EdgeWindow As Object
Dim rs As DAO.Recordset
Dim id As Long
Dim Portable As String
Dim optButton As OptionButton
Dim optGroup As OptionGroup
Dim db As DAO.Database
id = Me.CurrentRecord 'obtenir l'ID de la ligne actuelle
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT [Tél portable] FROM R_Recherche_articles WHERE N°_Contrat=" & N°_Contrat)
If Not rs.EOF Then
Portable = rs.Fields("Tél portable").Value 'obtenir le numéro de téléphone correspondant à l'ID de la ligne actuelle
End If
rs.Close
Set rs = Nothing
Set db = Nothing
' Enlever les espaces et ajouter "41" au début du numéro
Numero = "41" & Replace(Portable, " ", "")
' Récupérer le texte sélectionné dans la combobox
Message = choix_message.Value
' Afficher le numéro de téléphone
'MsgBox "Vous êtes sur le point d'envoyer un message à ce numéro : " & Numero, vbInformation, "Confirmation"
' Construire l'URL de WhatsApp Web
WhatsAppWeb = "microsoft-edge:https://web.whatsapp.com/send?phone=" & Numero & "&text=" & Replace(Message, " ", "%20")
Set Edge = CreateObject("Shell.Application")
'Shell "C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe -new-window " & WhatsAppWeb
Shell "C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe " & WhatsAppWeb
' Attendre que la fenêtre Edge soit active
Do While EdgeWindow Is Nothing
Set EdgeWindow = Edge.Windows().Item(Edge.Windows().count - 1)
DoEvents
Loop
' Envoyer le message en appuyant sur la touche "Entrée"
' EdgeWindow.Document.querySelector("div[contenteditable='true']").innerHTML = Message
' EdgeWindow.Document.querySelector("div[contenteditable='true']").focus
End Sub |
Partager