XL 2010 VBA et Skype ça marchait avant ???

[Bens7]

Bonjour a tous!
Voici mon probleme jutilise un macro depuis plus de 2 ans pour envoyer un message Skype via un macro vba ...
tous fonctionner parfaitement jusqua l'an passe ...

Sub skypeok()
Dim aSkype As SKYPE4COMLib.Skype
Set aSkype = New SKYPE4COMLib.Skype
Dim oChat As Chat
Dim skUser As SKYPE4COMLib.User
Set skUser = aSkype.User("user.voulu")
Set oChat = aSkype.CreateChatWith(skUser.Handle)
oChat.OpenWindow
oChat.SendMessage ("Test")
End Sub

J'ai reinstaller le module Skype4COM.dll de ce coter la aucun soucci, excel est autorise dans Skype, le message arrive bien jusqu’à Skype mais le message ne s'envoie pas .
J'ai un message d'erreur :
CHAT:CREATE: opening a dialog to the given user failed

J'ai était sur answers.microsoft... personne ne sais résoudre le problème


voila si quelqun peut m'eclairer c'est hyper urgent.
Merci

 

[Staple1600]

Bonsoir le fil, le forum

Non testé

sub a()
Dim oSkype As SKYPE4COMLib.Skype
 Set oSkype = New SKYPE4COMLib.Skype
 Dim oChat As Chat
 Dim skUser As SKYPE4COMLib.User
 Set oMembers = CreateObject("Skype4COM.UserCollection")
 oMembers.Add (oSkype.User("user.voulu"))
 Set oChat = oSkype.CreateChatMultiple(oMembers)
 oChat.OpenWindow
 oChat.Topic = "Test"
 oChat.SendMessage "message de test"
End sub

 

[Modeste geedee]

tous fonctionner parfaitement jusqua l'an passe ...
voila si quelqun peut m'eclairer c'est hyper urgent.

Pour l'hyper urgence ...
depuis l'an passé, il s'est déjà écoulé : Onze mois !!!

 

[Bens7]

Bah je voulais pas quon me dise que cest un post doublon
..
mais oui c'est toujours urgent maia en cherchant il parrais que Skype ne fournis plus ce service... du.coup si quelqun l'utilise encore tenez moi informe...

 

[Staple1600]

Bonsoir le fil, le forum


Bens7
Tu as testé le code que j'ai posté dans le message#2?

 

[Bens7]

C'est exactement le même code... que le mien

 

[Staple1600]

Re,

Non ce n'est pas le même code!
Sinon pourquoi l'aurais-je posté?
Lis-le ligne par ligne et tu verras les différences

 

[Bens7]

Erreur 438 Propriete ou méthode non géré par cette objet :
oMembers.Add (oSkype.User("live:nomcontact"))

désolé

 

[Staple1600]

Re

Donc du coup, c'est plus "il parait"
"maia en cherchant il parrais que Skype ne fournis plus ce service"
C'est donc une certitude

Mais il y a peut-être un espoir en allant voir ici
Ce lien n'existe plus

 

[Bens7]

oui je suis arrivé à cette impasse aussi malheureusement mon anglais est trop faible pour comprendre c'est quoi ucwa.... d'où mon post....

 

[Staple1600]

RE

utilises un moteur de recherche pour traduire
Sinon voir aussi ces scripts
http://go.microsoft.com/fwlink/?LinkId=313244
qu'il faudra ensuite essayer d'adapter en VBA ou d'éxécuter via un objet ScriptControl
(cf. CreateObject("ScriptControl"))

 

[Bens7]

malheureusement je n'ai pas assez de connaissance ... je suis débutant ... j'arrive à adapter les codes que je trouve sur le net mais écrire par moi même ... pas au niveau... personne n'utilise Skype et VBA ? incroyable quand même .... ça m'a l'air d'être bien pratique pourtant

 

[Staple1600]

Re

•Je n'utilise pas Skype et pourtant j'ai cherché des infos par rapport à ta question
•Tu débutes?

Où est le problème?
Il suffit de persévérer et d'utiliser les ressources que nous offre le net.

C'est chronophage voilà tout mais ça se tente, non?

 

[Bens7]

c'est ce que je fais ... mais comme avant ça marchais ... j'ai les boules que ça marche plus... peut être quelqu'un a la solution??

 

[Staple1600]

Re,

@Bens7
Fais des recherches sur UCWA et VBA
Et si les ressources sont anglophones, traduis-les avec g..gle translate
L'origine du problème est là semble-t-il

if you are using skype for business, then read this stackoverflow.com/questions/43139603/… .... apparently microsoft crippled that software product, so that it can no longer be used with VBA directly. another layer of software has to be added ... see this Ce lien n'existe plus