bonjour
tout est dans le titre sauf la réponse:
comment composer un n° de téléphone contenu dans une cellule ?
est ce que l'on peut appeler les fonctions TAPI de Windows depuis le code ?
comment?
fera-t-il beau demain?
merci de vos réponses
gerard
If ResVal < 0 Then Msg = "Ce numéro n'a pas pu être appelé : " & PhoneNumber GoTo Err_TapiDialNumber End If
Exit Sub
" application ne mobilise le port de communication." MsgBoxType = MB_ICONSTOP MsgBoxTitle = "Erreur de numérotation" & ", " & Version MsgBox Msg, MsgBoxType, MsgBoxTitle
End Sub '---------------------------
Pour effecuter un appel , tu peux remplacer le numéro de téléphone par l'adresse d'une cellule.
Sub test() TapiDialNumber "45789878", "Cloé" End Sub '---------------------------
Salutations!
"gerard" a écrit dans le message de news:3fdb3062$0$19275$ bonjour tout est dans le titre sauf la réponse: comment composer un n° de téléphone contenu dans une cellule ? est ce que l'on peut appeler les fonctions TAPI de Windows depuis le code ? comment? fera-t-il beau demain? merci de vos réponses gerard
Bonjour Gérard,
Il y a un fichier sur ce propos sur Excelabo de Misange
'Dans le haut d'un module standard :
Declare Function tapiRequestMakeCall Lib "tapi32.dll" _
Err_TapiDialNumber:
Msg = Msg & vbNewLine & vbNewLine & "Vérifier qu'aucune autre" & _
(ByVal stNumber As String, ByVal stDummy1 As String, _
ByVal stDummy2 As String, ByVal stDummy3 As String) As Long
'---------------------------
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
If ResVal < 0 Then
Msg = "Ce numéro n'a pas pu être appelé : " & PhoneNumber
GoTo Err_TapiDialNumber
End If
Exit Sub
" application ne mobilise le port de communication."
MsgBoxType = MB_ICONSTOP
MsgBoxTitle = "Erreur de numérotation" & ", " & Version
MsgBox Msg, MsgBoxType, MsgBoxTitle
End Sub
'---------------------------
Pour effecuter un appel , tu peux remplacer le numéro de téléphone par l'adresse d'une cellule.
Sub test()
TapiDialNumber "45789878", "Cloé"
End Sub
'---------------------------
Salutations!
"gerard" <turlututu@free.fr> a écrit dans le message de news:3fdb3062$0$19275$626a54ce@news.free.fr...
bonjour
tout est dans le titre sauf la réponse:
comment composer un n° de téléphone contenu dans une cellule ?
est ce que l'on peut appeler les fonctions TAPI de Windows depuis le code ?
comment?
fera-t-il beau demain?
merci de vos réponses
gerard
If ResVal < 0 Then Msg = "Ce numéro n'a pas pu être appelé : " & PhoneNumber GoTo Err_TapiDialNumber End If
Exit Sub
" application ne mobilise le port de communication." MsgBoxType = MB_ICONSTOP MsgBoxTitle = "Erreur de numérotation" & ", " & Version MsgBox Msg, MsgBoxType, MsgBoxTitle
End Sub '---------------------------
Pour effecuter un appel , tu peux remplacer le numéro de téléphone par l'adresse d'une cellule.
Sub test() TapiDialNumber "45789878", "Cloé" End Sub '---------------------------
Salutations!
"gerard" a écrit dans le message de news:3fdb3062$0$19275$ bonjour tout est dans le titre sauf la réponse: comment composer un n° de téléphone contenu dans une cellule ? est ce que l'on peut appeler les fonctions TAPI de Windows depuis le code ? comment? fera-t-il beau demain? merci de vos réponses gerard
