M
magoo
Guest
Bonjour,
Je souhaite pouvoir cliquer sur un n° de téléphone placé dans une cellule de ma feuille pour qu'il se compose via mon modem ou au travers du numéroteur de outlook.
J'ai bien trouvé sur le site un exemple mais je débute et je n'arrive à le mettre en forme dans excel. :-((
http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=111710&t=111710
Private Declare Function tapiRequestMakeCall Lib "TAPI32.DLL" (ByVal Dest$, ByVal AppName$, ByVal CalledParty$, ByVal Comment$) As Long
Sub Appeler(Num$, Optional Auteur$, Optional Titre$ = "", Optional Sujet$ = "")
On Error Resume Next
tapiRequestMakeCall Num, Titre, Auteur, Sujet
If Err <> 0 Then MsgBox "Appel impossible"
End Sub
Sub Test()
Appeler [A8], "Zon"
End Sub
Si quelqu'un peu m'aider pour l'intégrer dans une feuille ou je suis preneur de tout autre exemple.
Merci beaucoup
Magoo
Je souhaite pouvoir cliquer sur un n° de téléphone placé dans une cellule de ma feuille pour qu'il se compose via mon modem ou au travers du numéroteur de outlook.
J'ai bien trouvé sur le site un exemple mais je débute et je n'arrive à le mettre en forme dans excel. :-((
http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=111710&t=111710
Private Declare Function tapiRequestMakeCall Lib "TAPI32.DLL" (ByVal Dest$, ByVal AppName$, ByVal CalledParty$, ByVal Comment$) As Long
Sub Appeler(Num$, Optional Auteur$, Optional Titre$ = "", Optional Sujet$ = "")
On Error Resume Next
tapiRequestMakeCall Num, Titre, Auteur, Sujet
If Err <> 0 Then MsgBox "Appel impossible"
End Sub
Sub Test()
Appeler [A8], "Zon"
End Sub
Si quelqu'un peu m'aider pour l'intégrer dans une feuille ou je suis preneur de tout autre exemple.
Merci beaucoup
Magoo