VBA Envoi d'un SMS en un seul clic

Bonjour à tous

Je cherche à pouvoir envoyer en un seul clic un SMS par le biais de Skype.

Le texte standard sera mis dans une cellule référence.

J'ai créer déjà un "clic" similaire pour effectuer un appel téléphonique d'un numéro introduit dans un cellule, en voici la formule :

=LIEN_HYPERTEXTE("Tel:0"&L10;"S")

Existe-t-il un code pour envoyer des SMS ?

D'avance merci.

Willau

Bonjour,

voici un exemple tirer de cette discution:

https://answers.microsoft.com/en-us/skype/forum/skype_win10-skype_messms-skype_instamessms/send-skype-message-from-excel-vba-and-skype4com10/e6674ccf-caad-4949-a0d8-e19a81c0b9db

à tester,

Sub testingskype()
'ajouter la référence à: Skype4COM 1.0 Type Library
Dim aSkype As SKYPE4COMLib.Skype
Set aSkype = New SKYPE4COMLib.Skype
Dim oChat As Chat
Dim skUser As SKYPE4COMLib.User
    Set skUser = aSkype.User ("minette")
    Set oChat = aSkype.CreateChatWith (skUser.Handle)
    oChat.OpenWindow
    oChat.SendMessage "hello.....testing"
End Sub

Merci sabV pour ta réponse.

Je vais essayer ça.

Encore merci !

Willau