Bonjour

Voici un code que j'utilise pour envoyer un message whatsappweb depuis un code vba access !

Le problème est que le code ouvre à chaque fois un nouvel onglet alors que j'aimerais que le code analyse si un onglet "whatsapp web " est déjà ouvrir et si c'est le cas qu'il utilise cet onglet et si non qu'il en crée un !

D'avance merci

Pascal

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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