skype + vba

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

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

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é 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 à 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 ..

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

Tout d'abord merci d'avoir ré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ère que tu sauras m'aider...

Merci et A +++

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

Waouhhhh !!!

Tout grand merci, je test ça cette aprem et jte dis quoi , mais d'avance merci .....

A++++

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