Communication entre vba access et edge

Version imprimable

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:

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

08/03/2023, 14h00
User

Bonjour,

Peut-être utiliser GetObject à la place de createobject :

Code:

set edge = GetObject([ pathname ], [ class ])

Pour plus d'info :

https://learn.microsoft.com/fr-fr/of...bject-function
08/03/2023, 15h35
paselo

Merci pour cette première répsonse, je vais un peu analyser ça car je ne suis pas très doué ;-)
08/03/2023, 17h40
paselo

Si quelqu'un est capable de me donner quelques infos supplémentaire merci car mes quelques tests pour l'instant ne sont pas très concluant ;-)
08/03/2023, 18h16
deedolith

Le problème est que tu instancies un objet Shell, qui va lui même lancer Ms Edge.
Mais l'objet Shell ne fait pas la passerelle entre Ms Access et Ms Edge (en clair, Ms Access ne peut communiquer avec Ms Edge via cette méthode).

Si tu veux interagir avec Ms Edge, il te faut passer par Selenium Web Driver.
08/03/2023, 18h29
User

Bonjour,

Oui, apparemment on a pas le contrôle sur edge comme on pouvait l'avoir avant avec internet explorer.
08/03/2023, 18h39
paselo

Oups alors j'ai l'impression que ça va se compliquer ;-)... ou alors est-il plus facile de le faire sur IE ? Mais est-ce que IE existera encore longtemps ?
Merci afin que je parte dans la meilleure direction possible
08/03/2023, 21h28
deedolith

Il y a des objets COM pour piloter IE, qui fonctionnent sans problème.
Mais comme tu le dit, pour combien de temps encore ?

j'essaie avec selenium mais sans résultat... j'ai installé msedgedriver.exe qui correspond à ma version de edge !
J'ai mis dans les références des outils visual basic "SeleniumWrapper Type library"

Et pour faire un test, je lance ce code mais j'ai un message d'erreur : erreur d'execution ^-2146232832 (80131600)': Browser "edge" is not available

Code:

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
Private Sub Commande3_Click()
      ' Initialiser le pilote Selenium
    Dim driver As New SeleniumWrapper.WebDriver
    driver.Start "edge", "C:\webdriver\msedgedriver.exe"
 
    ' Accéder à une page web
    driver.Get "https://www.google.com/"
 
    ' Rechercher un élément sur la page (le champ de recherche Google)
 Dim searchBox As SeleniumWrapper.WebElement
    Set searchBox = driver.findElementById("lst-ib")
 
    ' Saisir du texte dans le champ de recherche
    searchBox.SendKeys "SeleniumWrapper"
 
    ' Cliquer sur le bouton de recherche Google
    searchBox.submit
 
    ' Attendre que la page de résultats de recherche soit chargée
    driver.Wait 5000
 
    ' Afficher le titre de la page (devrait être "SeleniumWrapper - Recherche Google")
    Debug.Print driver.Title
 
    ' Fermer le pilote Selenium
    driver.Stop
End Sub

Mais je n'y connais rien donc qu'est ce que je fais faux ?

Merci

08/03/2023, 22h47
paselo

et je ne peux même pas utiliser IE car il n'accepte pas whatsappweb ..
09/03/2023, 11h47
paselo

Est-ce que quelqu'un a déjà essayé depuis un code vba accees de "communiquer" avec Edge ? si oui avec Selenium et si oui c'est volontiers que je prends des conseils car j'ai essayé pas mal de choses sans succès ¨!

Merci
14/03/2023, 18h38
paselo

Je tente de relancer la discussion .. Merci
15/03/2023, 15h27
paselo

Est-ce que quelqu'un connait un spécialiste qui pourrait m'aider même contre rénumération...
Merci
Pascal
15/03/2023, 16h32
deedolith

Si personne ne te répond, c'est que personne n'a la solution.