numéroteur téléphonique à partir d'Excel

Bonjour,

j'ai trouvé ce code VBA sur le net. Je t'en fait profiter.

Je n'ai pas tester donc je ne te promet rien.

Disons que tu as des noms sur la colonne 1 et de numeros sur la colonne 2.
Selectionne une ligne et lances le module dialer :

Declare Function tapiRequestMakeCall Lib "tapi32.dll" _
(ByVal stNumber As String, ByVal stDummy1 As String, _
ByVal stDummy2 As String, ByVal stDummy3 As String) As Long
Public Const ID_CANCEL = 2
Public Const MB_OKCANCEL = 1
Public Const MB_ICONSTOP = 16, MB_ICONINFORMATION = 64


Sub Dialer()
ColName = 1
ColPhone = 2
vRow = Selection.Row - 1
If vRow = 0 Then Exit Sub
DialNumber Range("A1").Offset(vRow, ColPhone - 1).Value,
Range("A1").Offset(vRow, ColName - 1).Value
End Sub


' ***********************************************************
' FUNCTION: DialNumber()
'
' PURPOSE: To dial a telephone number using the computer's modem
'
' ARGUMENTS:
' PhoneNumber: The telephone number to dial
'
' EXAMPLE:
' Type the following in the Debug window to dial a phone number:
'
' ? DialNumber("555-1212")
'
' About this code see Microsoft knowledgebase article Q141625
' ***********************************************************
Function DialNumber(PhoneNumber, Optional vName As Variant)
Dim Msg As String, MsgBoxType As Integer, MsgBoxTitle As String
Dim RetVal As Long
' Ask the user to pick up the phone.
Msg = "Please pickup the phone and click OK to dial " _
& Chr(13) & Chr(13) & PhoneNumber & " " & vName
MsgBoxType = MB_ICONINFORMATION + MB_OKCANCEL
MsgBoxTitle = "Dial Number"
If MsgBox(Msg, MsgBoxType, MsgBoxTitle) = ID_CANCEL Then
Exit Function
End If
' Send the telephone number to the modem.
RetVal = tapiRequestMakeCall(PhoneNumber, "", vName, "")
If RetVal < 0 Then
Msg = "Unable to dial number " & PhoneNumber
GoTo Err_DialNumber
End If
Exit Function
Err_DialNumber: 'This is not an On Error routine.
Msg = Msg & Chr(13) & Chr(13) & _
"Make sure no other devices are using the Com port"
MsgBoxType = MB_ICONSTOP
MsgBoxTitle = "Dial Number Error"
MsgBox Msg, MsgBoxType, MsgBoxTitle
End Function


Bonne journée

David

"LANIMAL" <lanimal@tiscali.fr> wrote in message
news:OBXmI7N3GHA.2420@TK2MSFTNGP02.phx.gbl...

Bonsoir
Dans un tableau Excel (2000) j'ai, entre autres, une colonne Noms et une
colonne N° de tél (qq centaines de lignes).
Je cherche un moyen de réaliser sur un téléphone fixe (fréquences vocales)
la numérotation d'un n° de téléphone figurant dans le tableau Excel.

J'ai lu une possibilité sur le forum :

http://www.vbfrance.com/codes/ANNUAIRE-AVEC-NUMEROTEUR-VOCAL-DTMF_37968.aspx

Cela me paraît astucieux...
mais je ne sais pas comment utiliser l'info donnée !

Alors... si quelqu'un sait ? ...

Bien sûr, je suis éventuellement intéressé par toute autre solution
répondant à mon pb.
Veuillez m'excuser si vous avez déjà lu ce post que j'ai envoyé la semaine
dernière, je crois. Mais comme je n'en retrouve pas la trace dans la
liste, je me demande s'il est bien parti.
Je ne maîtrise pas bien mon navigateur de news (Thunderbird).
Est-ce lui qui me trahit ou moi qui le drive mal ? ...

Merci à mes "répondeurs" éventuels.