deux discussions figurent dans ce fichier De: Tertonn Objet: Re: Faire composer un numéro de téléphone à Excel Date : mercredi 12 avril 2000 17:55 Bonjour, Demat Une possibilité serait d'enregistrer le son de chaque numéro dans un fichier Wav . declare function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" _ (ByVal lpszSoundName As String, ByVal uFlags As long) As long Sub Téléphone() dim strNum As String dim I% strNum = "0223210540" For I% = 1 To Len(strNum) sndPlaySound32 "c:\Répertoire_Des_Sons\" & Mid$(Num, I%, 1) & ".Wav", 0 'Application.Wait (Now + (1 / 86400)) Next end Sub Kenavo "François Temporelli" a écrit dans le message news: 8d20e5$8r6$1@front3.grolier.fr... > Bonjour à toutes et à tous, > > Je sollicite encore une fois votre précieuse aide pour quelque chose qui > pourrait, peut-être, intéresser d'autres personnes. > > Voilà, j'ai réalisé mon carnet d'adresses, téléphone ... sous Excel 97 et ce > que je voudrais essayer de faire est que le numéro de téléphone soit composé > automatiquement : il suffira d'approcher le combiné du téléphone vers les > enceintes qui devront faire le son (fréquences DTMF) qui correspond aux > numéros. > > Je n'ai pas trouvé la moindre fonction, ni objet, qui me permet d'utiliser > la carte son sous VB d'Excel. En fait il me faudrait une fonction qui aurait > comme argument un numéro de canal et une fréquence (touches DTMF : son par > combinaison de 2 fréquences sinusoïdales). > > Je crois que c'est beaucoup trop demandé à Excel, mais on ne sait jamais. > > Si c'est impossible avec la carte son, je vais essayer de faire composer le > numéro par le modem, cela me semble bien plus facile et réalisable sous > Excel. > > Je vous remercie vivement d'avance pour toutes les informations que vous > pourrez apporter. > > Salutations > > François > > > ****************************************************** De: Objet: Re: Faire composer un numéro de téléphone à Excel Date : jeudi 13 avril 2000 09:39 Sub composer() ' la 1° fois activer le code ci dessous ' ActiveSheet.OLEObjects.Add(FileName:="C:\WINDOWS\DIALER.EXE", Link:=false, _ DisplayAsIcon:=false).Select 'recuper le nom excel de l' objet "icone dialer" cliquer dessus avec le bouton gauche 'modifier "Objet 40" par le nom du bouton dialer ("Objet 1" sur une nouvelle feuille) ActiveSheet.Shapes("Object 40").Select Selection.Verb Verb:=xlPrimary 'modifier pause 5 pour attendre dialer For pause = 1 To 5 SendKeys (" ") Next pause 'rentrer le numero a composer en G1 numero = range("G1") SendKeys (numero) SendKeys ("~") end Sub