Discussion :

[toto2022]

Bonjour à tous,
Je voudrais savoir s'il est possible de composer un numéro de téléphone automatiquement avec excel. J'ai un téléphone cisco ip phone donc il est branché directement à mon ordinateur et ca passe par le réseau de mon entreprise. Est-ce possible et si oui pouvez-vous me donner quelques indications?
Merci!!!

[ouisansdoute]

Bonjour,

En faisant une recherche sur google "Excel +téléphoner" tu trouveras plusieurs réponses. j'ai par exemple trouvé ce code (qui utilise le numéroteur de Windows) mais je ne l'ai pas testé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
'Attribute VB_Name = "ProcPourTelephoner"
 
Declare Function tapiRequestMakeCall Lib "tapi32.dll" _
    (ByVal stNumber As String, ByVal stDummy1 As String, _
    ByVal stDummy2 As String, ByVal stDummy3 As String) As Long
 
'Cette procédure permet de déclencher la numérotation
'par le numéroteur de Windows (P. Supera).
Sub TapiDialNumber(PhoneNumber$, NomAppelé$)
Const MB_ICONSTOP = 16, MB_ICONINFORMATION = 64
Dim Msg As String, MsgBoxType As Integer, MsgBoxTitle As String
Dim ResVal As Long
 
    ResVal = tapiRequestMakeCall(PhoneNumber, "", NomAppelé, "")
 
    If ResVal < 0 Then
        Msg = "Ce numéro n'a pas pu être appelé : " & PhoneNumber
        GoTo Err_TapiDialNumber
    End If
 
    Exit Sub
 
Err_TapiDialNumber:
    Msg = Msg & vbNewLine & vbNewLine & "Vérifier qu'aucune autre" & _
            " application ne mobilise le port de communication."
    MsgBoxType = MB_ICONSTOP
    MsgBoxTitle = "Erreur de numérotation"
    MsgBox Msg, MsgBoxType, MsgBoxTitle
 
End Sub
 
Sub test()
    TapiDialNumber "0000000000", "Correspondant"
End Sub