Bonjour,
J'ai cette macro de Monsieur Walkenbach que je n'arrive pas
à faire fonctionner.
Que faut-il faire pour pouvoir utiliser cette macro ?
'Attribute VB_Name = "ProcPourTelephoner2"
'Transmets le contenu de la cellule active (un numéro de téléphone)
'au numéroteur de Windows puis compose le numéro.
'(Les commentaires de l'auteur détaillent les opérations)
'John Walkenbach, mpep
Sub CellToDialer()
' Transfers active cell contents to Dialer
' And then dials the phone
' Get the phone number
CellContents = ActiveCell.Value
If CellContents = "" Then
MsgBox "Select a cell that contains a phone number."
Exit Sub
End If
' Activate (or start) Dialer
Appname = "Dialer"
AppFile = "Dialer.exe"
On Error Resume Next
AppActivate (Appname)
If Err <> 0 Then
Err = 0
TaskID = Shell(AppFile, 1)
If Err <> 0 Then MsgBox "Can't start " & AppFile
End If
' Transfer cell contents to Dialer
Application.SendKeys "%n" & CellContents, True
' Click Dial button
Application.SendKeys "%d"
End Sub
Et une autre question dont la réponse est fort probablement
"IMPOSSIBLE". Mais sait-on jamais, il y a des sorciers
sur ce site de news ;-)
À partir du nom d'une personne, de son adresse et de son
code postal entrés dans des cellules, peut-on obtenir son
numéro de téléphone dans une autre cellule ?
Pour trouver un numéro de téléphone, j'utilise le site Canada 411.
Est-ce possible d'automatiser cette recherche ?
Serge
Bonjour,
J'ai cette macro de Monsieur Walkenbach que je n'arrive pas
à faire fonctionner.
Que faut-il faire pour pouvoir utiliser cette macro ?
'Attribute VB_Name = "ProcPourTelephoner2"
'Transmets le contenu de la cellule active (un numéro de téléphone)
'au numéroteur de Windows puis compose le numéro.
'(Les commentaires de l'auteur détaillent les opérations)
'John Walkenbach, mpep
Sub CellToDialer()
' Transfers active cell contents to Dialer
' And then dials the phone
' Get the phone number
CellContents = ActiveCell.Value
If CellContents = "" Then
MsgBox "Select a cell that contains a phone number."
Exit Sub
End If
' Activate (or start) Dialer
Appname = "Dialer"
AppFile = "Dialer.exe"
On Error Resume Next
AppActivate (Appname)
If Err <> 0 Then
Err = 0
TaskID = Shell(AppFile, 1)
If Err <> 0 Then MsgBox "Can't start " & AppFile
End If
' Transfer cell contents to Dialer
Application.SendKeys "%n" & CellContents, True
' Click Dial button
Application.SendKeys "%d"
End Sub
Et une autre question dont la réponse est fort probablement
"IMPOSSIBLE". Mais sait-on jamais, il y a des sorciers
sur ce site de news ;-)
À partir du nom d'une personne, de son adresse et de son
code postal entrés dans des cellules, peut-on obtenir son
numéro de téléphone dans une autre cellule ?
Pour trouver un numéro de téléphone, j'utilise le site Canada 411.
Est-ce possible d'automatiser cette recherche ?
Serge
Bonjour,
J'ai cette macro de Monsieur Walkenbach que je n'arrive pas
à faire fonctionner.
Que faut-il faire pour pouvoir utiliser cette macro ?
'Attribute VB_Name = "ProcPourTelephoner2"
'Transmets le contenu de la cellule active (un numéro de téléphone)
'au numéroteur de Windows puis compose le numéro.
'(Les commentaires de l'auteur détaillent les opérations)
'John Walkenbach, mpep
Sub CellToDialer()
' Transfers active cell contents to Dialer
' And then dials the phone
' Get the phone number
CellContents = ActiveCell.Value
If CellContents = "" Then
MsgBox "Select a cell that contains a phone number."
Exit Sub
End If
' Activate (or start) Dialer
Appname = "Dialer"
AppFile = "Dialer.exe"
On Error Resume Next
AppActivate (Appname)
If Err <> 0 Then
Err = 0
TaskID = Shell(AppFile, 1)
If Err <> 0 Then MsgBox "Can't start " & AppFile
End If
' Transfer cell contents to Dialer
Application.SendKeys "%n" & CellContents, True
' Click Dial button
Application.SendKeys "%d"
End Sub
Et une autre question dont la réponse est fort probablement
"IMPOSSIBLE". Mais sait-on jamais, il y a des sorciers
sur ce site de news ;-)
À partir du nom d'une personne, de son adresse et de son
code postal entrés dans des cellules, peut-on obtenir son
numéro de téléphone dans une autre cellule ?
Pour trouver un numéro de téléphone, j'utilise le site Canada 411.
Est-ce possible d'automatiser cette recherche ?
Serge
Bonjour,
J'ai cette macro de Monsieur Walkenbach que je n'arrive pas
à faire fonctionner.
Que faut-il faire pour pouvoir utiliser cette macro ?
'Attribute VB_Name = "ProcPourTelephoner2"
'Transmets le contenu de la cellule active (un numéro de téléphone)
'au numéroteur de Windows puis compose le numéro.
'(Les commentaires de l'auteur détaillent les opérations)
'John Walkenbach, mpep
Sub CellToDialer()
' Transfers active cell contents to Dialer
' And then dials the phone
' Get the phone number
CellContents = ActiveCell.Value
If CellContents = "" Then
MsgBox "Select a cell that contains a phone number."
Exit Sub
End If
' Activate (or start) Dialer
Appname = "Dialer"
AppFile = "Dialer.exe"
On Error Resume Next
AppActivate (Appname)
If Err <> 0 Then
Err = 0
TaskID = Shell(AppFile, 1)
If Err <> 0 Then MsgBox "Can't start " & AppFile
End If
' Transfer cell contents to Dialer
Application.SendKeys "%n" & CellContents, True
' Click Dial button
Application.SendKeys "%d"
End Sub
Et une autre question dont la réponse est fort probablement
"IMPOSSIBLE". Mais sait-on jamais, il y a des sorciers
sur ce site de news ;-)
À partir du nom d'une personne, de son adresse et de son
code postal entrés dans des cellules, peut-on obtenir son
numéro de téléphone dans une autre cellule ?
Pour trouver un numéro de téléphone, j'utilise le site Canada 411.
Est-ce possible d'automatiser cette recherche ?
Serge
Bonjour,
J'ai cette macro de Monsieur Walkenbach que je n'arrive pas
à faire fonctionner.
Que faut-il faire pour pouvoir utiliser cette macro ?
'Attribute VB_Name = "ProcPourTelephoner2"
'Transmets le contenu de la cellule active (un numéro de téléphone)
'au numéroteur de Windows puis compose le numéro.
'(Les commentaires de l'auteur détaillent les opérations)
'John Walkenbach, mpep
Sub CellToDialer()
' Transfers active cell contents to Dialer
' And then dials the phone
' Get the phone number
CellContents = ActiveCell.Value
If CellContents = "" Then
MsgBox "Select a cell that contains a phone number."
Exit Sub
End If
' Activate (or start) Dialer
Appname = "Dialer"
AppFile = "Dialer.exe"
On Error Resume Next
AppActivate (Appname)
If Err <> 0 Then
Err = 0
TaskID = Shell(AppFile, 1)
If Err <> 0 Then MsgBox "Can't start " & AppFile
End If
' Transfer cell contents to Dialer
Application.SendKeys "%n" & CellContents, True
' Click Dial button
Application.SendKeys "%d"
End Sub
Et une autre question dont la réponse est fort probablement
"IMPOSSIBLE". Mais sait-on jamais, il y a des sorciers
sur ce site de news ;-)
À partir du nom d'une personne, de son adresse et de son
code postal entrés dans des cellules, peut-on obtenir son
numéro de téléphone dans une autre cellule ?
Pour trouver un numéro de téléphone, j'utilise le site Canada 411.
Est-ce possible d'automatiser cette recherche ?
Serge
Bonjour,
J'ai cette macro de Monsieur Walkenbach que je n'arrive pas
à faire fonctionner.
Que faut-il faire pour pouvoir utiliser cette macro ?
'Attribute VB_Name = "ProcPourTelephoner2"
'Transmets le contenu de la cellule active (un numéro de téléphone)
'au numéroteur de Windows puis compose le numéro.
'(Les commentaires de l'auteur détaillent les opérations)
'John Walkenbach, mpep
Sub CellToDialer()
' Transfers active cell contents to Dialer
' And then dials the phone
' Get the phone number
CellContents = ActiveCell.Value
If CellContents = "" Then
MsgBox "Select a cell that contains a phone number."
Exit Sub
End If
' Activate (or start) Dialer
Appname = "Dialer"
AppFile = "Dialer.exe"
On Error Resume Next
AppActivate (Appname)
If Err <> 0 Then
Err = 0
TaskID = Shell(AppFile, 1)
If Err <> 0 Then MsgBox "Can't start " & AppFile
End If
' Transfer cell contents to Dialer
Application.SendKeys "%n" & CellContents, True
' Click Dial button
Application.SendKeys "%d"
End Sub
Et une autre question dont la réponse est fort probablement
"IMPOSSIBLE". Mais sait-on jamais, il y a des sorciers
sur ce site de news ;-)
À partir du nom d'une personne, de son adresse et de son
code postal entrés dans des cellules, peut-on obtenir son
numéro de téléphone dans une autre cellule ?
Pour trouver un numéro de téléphone, j'utilise le site Canada 411.
Est-ce possible d'automatiser cette recherche ?
Serge
Pour composer un numéro de téléphone, tu peux utiliser ceci :
'Déclaration des Api dans le haut du module standard :
Option Explicit
Private Declare Function tapiRequestMakeCall& _
Lib "TAPI32.DLL" (ByVal DestAddress$, _
ByVal AppName$, ByVal CalledParty$, ByVal Comment$)
Private Const TAPIERR_NOREQUESTRECIPIENT = -2&
Private Const TAPIERR_REQUESTQUEUEFULL = -3&
Private Const TAPIERR_INVALDESTADDRESS = -4&
'--------------------------------------
Public Sub Signaler(strNumero As String)
Dim message As String
Dim nResult As Long
nResult = tapiRequestMakeCall&(Trim(strNumero), _
CStr("Auto-Dial"), "Numérotation", "Commentaire") ', "")
If nResult <> 0 Then
message = "Erreur : "
Select Case nResult
Case TAPIERR_NOREQUESTRECIPIENT
message = message & "NOREQUESTRECIPIENT."
Case TAPIERR_REQUESTQUEUEFULL
message = message & "EQUESTQUEUEFULL."
Case TAPIERR_INVALDESTADDRESS
message = message & "Le numéro n'est pas valide."
Case Else
message = message & "Erreur inconnue."
End Select
MsgBox message
End If
End Sub
'------------------------------
Sub Test()
Call Signaler(ActiveCell.Value)
End Sub
'------------------------------
"garnote" a écrit dans le message de groupe de
discussion :
Bonjour,
J'ai cette macro de Monsieur Walkenbach que je n'arrive pas
à faire fonctionner.
Que faut-il faire pour pouvoir utiliser cette macro ?
'Attribute VB_Name = "ProcPourTelephoner2"
'Transmets le contenu de la cellule active (un numéro de téléphone)
'au numéroteur de Windows puis compose le numéro.
'(Les commentaires de l'auteur détaillent les opérations)
'John Walkenbach, mpep
Sub CellToDialer()
' Transfers active cell contents to Dialer
' And then dials the phone
' Get the phone number
CellContents = ActiveCell.Value
If CellContents = "" Then
MsgBox "Select a cell that contains a phone number."
Exit Sub
End If
' Activate (or start) Dialer
Appname = "Dialer"
AppFile = "Dialer.exe"
On Error Resume Next
AppActivate (Appname)
If Err <> 0 Then
Err = 0
TaskID = Shell(AppFile, 1)
If Err <> 0 Then MsgBox "Can't start " & AppFile
End If
' Transfer cell contents to Dialer
Application.SendKeys "%n" & CellContents, True
' Click Dial button
Application.SendKeys "%d"
End Sub
Et une autre question dont la réponse est fort probablement
"IMPOSSIBLE". Mais sait-on jamais, il y a des sorciers
sur ce site de news ;-)
À partir du nom d'une personne, de son adresse et de son
code postal entrés dans des cellules, peut-on obtenir son
numéro de téléphone dans une autre cellule ?
Pour trouver un numéro de téléphone, j'utilise le site Canada 411.
Est-ce possible d'automatiser cette recherche ?
Serge
Pour composer un numéro de téléphone, tu peux utiliser ceci :
'Déclaration des Api dans le haut du module standard :
Option Explicit
Private Declare Function tapiRequestMakeCall& _
Lib "TAPI32.DLL" (ByVal DestAddress$, _
ByVal AppName$, ByVal CalledParty$, ByVal Comment$)
Private Const TAPIERR_NOREQUESTRECIPIENT = -2&
Private Const TAPIERR_REQUESTQUEUEFULL = -3&
Private Const TAPIERR_INVALDESTADDRESS = -4&
'--------------------------------------
Public Sub Signaler(strNumero As String)
Dim message As String
Dim nResult As Long
nResult = tapiRequestMakeCall&(Trim(strNumero), _
CStr("Auto-Dial"), "Numérotation", "Commentaire") ', "")
If nResult <> 0 Then
message = "Erreur : "
Select Case nResult
Case TAPIERR_NOREQUESTRECIPIENT
message = message & "NOREQUESTRECIPIENT."
Case TAPIERR_REQUESTQUEUEFULL
message = message & "EQUESTQUEUEFULL."
Case TAPIERR_INVALDESTADDRESS
message = message & "Le numéro n'est pas valide."
Case Else
message = message & "Erreur inconnue."
End Select
MsgBox message
End If
End Sub
'------------------------------
Sub Test()
Call Signaler(ActiveCell.Value)
End Sub
'------------------------------
"garnote" <garnote3@videotron.ca> a écrit dans le message de groupe de
discussion :
eL9rdKfQKHA.1236@TK2MSFTNGP05.phx.gbl...
Bonjour,
J'ai cette macro de Monsieur Walkenbach que je n'arrive pas
à faire fonctionner.
Que faut-il faire pour pouvoir utiliser cette macro ?
'Attribute VB_Name = "ProcPourTelephoner2"
'Transmets le contenu de la cellule active (un numéro de téléphone)
'au numéroteur de Windows puis compose le numéro.
'(Les commentaires de l'auteur détaillent les opérations)
'John Walkenbach, mpep
Sub CellToDialer()
' Transfers active cell contents to Dialer
' And then dials the phone
' Get the phone number
CellContents = ActiveCell.Value
If CellContents = "" Then
MsgBox "Select a cell that contains a phone number."
Exit Sub
End If
' Activate (or start) Dialer
Appname = "Dialer"
AppFile = "Dialer.exe"
On Error Resume Next
AppActivate (Appname)
If Err <> 0 Then
Err = 0
TaskID = Shell(AppFile, 1)
If Err <> 0 Then MsgBox "Can't start " & AppFile
End If
' Transfer cell contents to Dialer
Application.SendKeys "%n" & CellContents, True
' Click Dial button
Application.SendKeys "%d"
End Sub
Et une autre question dont la réponse est fort probablement
"IMPOSSIBLE". Mais sait-on jamais, il y a des sorciers
sur ce site de news ;-)
À partir du nom d'une personne, de son adresse et de son
code postal entrés dans des cellules, peut-on obtenir son
numéro de téléphone dans une autre cellule ?
Pour trouver un numéro de téléphone, j'utilise le site Canada 411.
Est-ce possible d'automatiser cette recherche ?
Serge
Pour composer un numéro de téléphone, tu peux utiliser ceci :
'Déclaration des Api dans le haut du module standard :
Option Explicit
Private Declare Function tapiRequestMakeCall& _
Lib "TAPI32.DLL" (ByVal DestAddress$, _
ByVal AppName$, ByVal CalledParty$, ByVal Comment$)
Private Const TAPIERR_NOREQUESTRECIPIENT = -2&
Private Const TAPIERR_REQUESTQUEUEFULL = -3&
Private Const TAPIERR_INVALDESTADDRESS = -4&
'--------------------------------------
Public Sub Signaler(strNumero As String)
Dim message As String
Dim nResult As Long
nResult = tapiRequestMakeCall&(Trim(strNumero), _
CStr("Auto-Dial"), "Numérotation", "Commentaire") ', "")
If nResult <> 0 Then
message = "Erreur : "
Select Case nResult
Case TAPIERR_NOREQUESTRECIPIENT
message = message & "NOREQUESTRECIPIENT."
Case TAPIERR_REQUESTQUEUEFULL
message = message & "EQUESTQUEUEFULL."
Case TAPIERR_INVALDESTADDRESS
message = message & "Le numéro n'est pas valide."
Case Else
message = message & "Erreur inconnue."
End Select
MsgBox message
End If
End Sub
'------------------------------
Sub Test()
Call Signaler(ActiveCell.Value)
End Sub
'------------------------------
"garnote" a écrit dans le message de groupe de
discussion :
Bonjour,
J'ai cette macro de Monsieur Walkenbach que je n'arrive pas
à faire fonctionner.
Que faut-il faire pour pouvoir utiliser cette macro ?
'Attribute VB_Name = "ProcPourTelephoner2"
'Transmets le contenu de la cellule active (un numéro de téléphone)
'au numéroteur de Windows puis compose le numéro.
'(Les commentaires de l'auteur détaillent les opérations)
'John Walkenbach, mpep
Sub CellToDialer()
' Transfers active cell contents to Dialer
' And then dials the phone
' Get the phone number
CellContents = ActiveCell.Value
If CellContents = "" Then
MsgBox "Select a cell that contains a phone number."
Exit Sub
End If
' Activate (or start) Dialer
Appname = "Dialer"
AppFile = "Dialer.exe"
On Error Resume Next
AppActivate (Appname)
If Err <> 0 Then
Err = 0
TaskID = Shell(AppFile, 1)
If Err <> 0 Then MsgBox "Can't start " & AppFile
End If
' Transfer cell contents to Dialer
Application.SendKeys "%n" & CellContents, True
' Click Dial button
Application.SendKeys "%d"
End Sub
Et une autre question dont la réponse est fort probablement
"IMPOSSIBLE". Mais sait-on jamais, il y a des sorciers
sur ce site de news ;-)
À partir du nom d'une personne, de son adresse et de son
code postal entrés dans des cellules, peut-on obtenir son
numéro de téléphone dans une autre cellule ?
Pour trouver un numéro de téléphone, j'utilise le site Canada 411.
Est-ce possible d'automatiser cette recherche ?
Serge