Excel vba : Appel téléphonique via l'application Microsoft Mobile connecté
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:
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 |
Access VBA Mobile Connecté
Bonjour
je désire faire la mème chose à partir d'Access pour envoyer des SMS
pouvez vous m'aider
Pierre
