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
