skype + vbaRésolu

Question

bonjour
J'ai fais sous access une gestion de t&#233;l&#233;prospection avec de jolie formulaire et tout mais je voudrai l'am&#233;lior&#233;. J'utilise pour la prospection skype, le logiciel pour t&#233;l&#233;phoner par internet. Donc je souhaiterai mettre un bouton sur mon formulaire access qui envoyerai directement le num&#233;ro de mon formulaire sur le logiciel skype et lance l'appel si possible.
Pouvez vous m'aider?
Avez vous deja vue cela?
merci
@+

cs_rabbiwan · Accepted Answer

re


bon j'ai trouv&#233; comme un grand


lol


alors voici ce qu'il faut faire apres avoir install&#233; skype :

Option Compare Database
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


Private Sub CmdAppel_Click()


Dim coucou As String
    
    Dim phoneconnect As String
    phoneconnect = "callto:+33" & Right(Texte0, 9)
    Call ShellExecute(0, "open", phoneconnect, "", "+33" & coucou, SW_SHOWMAXIMIZED)


End Sub

voila amusez vous bien

cs_rabbiwan · Answer

zut je me suis tromp&#233; de code
lol
c t celui de test 
lol
Private Sub CmdAppel_Click()


Dim phoneconnect As String
phoneconnect = "callto:+33" & Right(Texte0, 9)
Call ShellExecute(0, "open", phoneconnect, "", "", SW_SHOWMAXIMIZED)


End Sub

cs_RENAUD34 · Answer

Cool, &#231;a marche et c'est plus simple que les indications et exemples fournis sur www.skype.com

DCT_Jones · Answer

Salut Rabbiwan, 

Ce que tu as fait la m'interresse tres fort, dans le sens ou je dois pour mon stage creer dans un carnet d'adresse ( fait en Windev ) un bouton lier a chaque contact, qui excecuterait direcetement un appel via skype. Ce que tu fais en gros except&#233; que c'est sous access. Est ce que tu sais m'expliquer un peu ton code et comment je dois faire si je veux l'integrer dans un programme de visual basic ou bien de windev . ?
Tu utilise les API's skype 1.3 ou 2.0 ?

Ton code : 

Private Sub CmdAppel_Click() 
Dim phoneconnect As String
phoneconnect = "callto:+33" & Right(Texte0, 9)    //  je comprend pas comment tu inseres le numeros &#224; appeler 
                                                                              //   ( mon cas sera tt le temps en skype out )
Call ShellExecute(0, "open", phoneconnect, "", "", SW_SHOWMAXIMIZED)


End Sub

Un tout grand merci pour reponse elle me donnera un serieu coup de pouce ..

cs_rabbiwan · Answer

Bonjour
Alors c'est tr&#233;s simple.
pour t&#233;l&#233;phoner en france il te faut 10 chiffres.
Mais quand tu es &#224; l'&#233;tranger tu dois faire un indicatif et les 9 derniers chiffres du num&#233;ro.
L&#224; c'est la m&#234;me chose.
le right me permet de r&#233;cup&#233;rer les 9 chiffres du num&#233;ro qui est en variable
@+

DCT_Jones · Answer

Tout d'abord merci d'avoir r&#233;pondu, 

Mais je dois t'avouer que je n'ai pas encore tt compris !! En fait ce que je voulais savoir c'est un peu la procedure a suivre pour faire fonctionner ceci.. 
   Genre est ce que je dois installer les API de skyp avant .. si oui lesquels ( j'ai cru comprendre qu'il y en avait plusieurs et differente version ) . 
   Est ce que c'est simple de transposer ton code dans visual basic ?? 
  
J'esp&#232;re que tu sauras m'aider...

Merci et A +++

cs_RENAUD34 · Answer

alors DCT_Jones voici un exemple d'application : - crée un nouveau projet VB - sur le formulaire (form1) met une zone de texte (text1) et un bouton (command1) - dans le code colle ceci :

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Sub Command1_Click() Dim NumTel As String If Left(Text1, 1) = 0 Then 'enlève le zéro en tête des numéros français NumTel = "+33" & VirePasNum(Mid(Text1, 2)) ElseIf Left(NumTel, 1) <> "+" Then 'met le "+" si on est déjà en format international NumTel = "+" & VirePasNum(Text1) End If 'envoie la commande à Skype s'il est installé, sinon ça va dans NetMeeting... ShellExecute 0, "open", "callto:" & NumTel, "", "", 3 End Sub Function VirePasNum(Txt As String) As String Dim i As Integer 'supprime les carractères non numériques For i = 1 To Len(Txt) If InStr(1, "0123456789", Mid(Txt, i, 1)) <> 0 Then VirePasNum = VirePasNum + Mid(Txt, i, 1) End If Next i End Function

et voila

DCT_Jones · Answer

Waouhhhh !!! 

Tout grand merci, je test &#231;a cette aprem et jte dis quoi , mais d'avance merci .....

A++++

aldive · Answer

UN super grand merci c'est génial comme bout de code

Skype + vba

9 réponses

Discussions similaires