Bonjour,

Bien vérifier que le téléphone mobile soit connecté au PC avec l'application "Microsoft Mobile connecté" et ça fonctionne du tonnerre

Bon weekend

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
Private Sub BT_Appeler_Client_Click()
Dim objShell As Object
Dim Numero_Telephone As Variant
Dim Texte_Selection As String
    Texte_Selection = Me.TextBox_Telephone.SelText 'Récupérez le texte sélectionné
    If Len(Texte_Selection) > 0 And IsNumeric(Replace(Texte_Selection, " ", "")) Then 'Vérifiez si du texte numérique est sélectionné
        Numero_Telephone = Texte_Selection 'Récupération du numéro de téléphone
        Numero_Telephone = Replace(Numero_Telephone, "  ", "") 'Suppression des doubles espaces
        Numero_Telephone = Replace(Numero_Telephone, " ", "") 'Suppression des espaces
        Set objShell = VBA.CreateObject("WScript.Shell") 'Création d'un objet Shell pour exécuter la commande d'appel téléphonique
        objShell.Run "tel:" & Numero_Telephone 'Lancement de l'appel téléphonique Windows 11 privé
        Set objShell = Nothing 'Libération de l'objet Shell
        Unload Me
    Else
        MsgBox "Sélectionner un numéro de téléphone valide", vbExclamation, "! Oups ! Action interrompue"
    End If
End Sub