Discussion :

[goninph]

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

[sultan87]

Bonjour
je désire faire la mème chose à partir d'Access pour envoyer des SMS
pouvez vous m'aider
Pierre

[goninph]

Bonjour,

Je ne sais si c'est possible d'envoyer un SMS

Ce code fonctionne avec vba Excel et vba Outlook

Meilleures salutations