Discussion :

[fonkwe]

Bonjour,

Cela fait des mois que je poirote pour trouver une solution à ce problème dans Access 2007.

J'ai un téléphone IP AVAYA. Tel que dans Outlook, je voudrais pouvoir, depuis un formulaire Access, lancer un appel vers un numéro de téléphone qui se trouve dans un champ de mon formulaire. Et ceci sans avoir une cascade de fenêtre (Dialer de Windows ), mais quelque chose de plus élégant comme le dialer d'Outlook qui actuellement marche bien.

J'ai parcouru des tas de forums, lu des tonnes d'articles, testé des librairies tapi.dll sans jamais réussir à rien faire vibrer mon téléphone .

Je n'arrive pas à trouver le petit truc qui fait que ça ne marche pas, contrairement à ce que les auteur de certains articles sur des forums semblent croire.

1- Comment transférer un numéro depuis une champ d'un formulaire Access vers le combiné ?
2- Ai-je besoin de librairies supplémentaires et si oui, lesquels ?
3- Comment avoir une boite de Dialogue comme celle d'Outllook et non la cascade de fenêtres du Dialer de Windows ?

Merci infiniment pour toute aide.

[loufab]

Bonjour,
Manipuler Outlook depuis Access se nomme Automation. Même si tes appels Outlook se font dans Access il s'agit toujours d'Outlook. Tu auras donc plus de chance d'avoir des réponses dans cette rubrique.

Cordialement,

[Oliv-]

Salut,

Voici 2 solutions à partir des contacts outlook

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub call_phone_exp()
    Dim objExp As Explorer, colCB, objCBB
    'A partir de l'explorateur dans les contacts
    Set objExp = ActiveExplorer
    Set colCB = objExp.CommandBars
    If Not objExp Is Nothing And objExp.CurrentFolder.DefaultItemType = olContactItem Then
        objExp.CommandBars.ExecuteMso ("Call")
    End If
End sub
 
Sub call_phone_contact()
    Dim  colCB, objCBB
    'A partir d'1 contact
    Dim objInsp As Inspector
    Set objInsp = ActiveInspector
    Set colCB = objInsp.CommandBars
    If Not objInsp Is Nothing And objInsp.CurrentItem.Class = olContact Then
        objInsp.CommandBars.ExecuteMso ("Call")
    End If
 
End Sub

Si ton contact n'existe pas tu peux le créer (du moins temporairement)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
 
Sub call_phone_contact()
    Dim colCB, objCBB
    'A partir d'1 contact
    Dim objInsp As Inspector
    Set objInsp = ActiveInspector
    Set colCB = objInsp.CommandBars
    If Not objInsp Is Nothing And objInsp.CurrentItem.Class = olContact Then
        objInsp.CommandBars.ExecuteMso ("Call")
    End If
 
End Sub
 
 
Sub appel_contact()
Dim mycontact As ContactItem
    Set mycontact = Application.CreateItem(olContactItem)
    mycontact.BusinessTelephoneNumber = "0123456789"
    mycontact.Display
    call_phone_contact
    mycontact.Close olDiscard
End Sub

[fonkwe]

Merci loufab et Oliv-.

J'ai essayé la solution de Oliv- sans succès.
Je vais me pencher sur les automations tel que proposé par loufab.

Cordialement.

[Oliv-]

Si tu utilises à partir de ACCESS il faut adapter le code pour l'automation.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
 public olapp as object
 
Sub call_phone_contact()
Const olContact = 40
    Dim colCB, objCBB
    'A partir d'1 contact
 
    Dim objInsp As Inspector
    Set objInsp = olapp.ActiveInspector
    Set colCB = objInsp.CommandBars
    If Not objInsp Is Nothing And objInsp.CurrentItem.Class = olContact Then
        objInsp.CommandBars.ExecuteMso ("Call")
    End If
 
End Sub
 
 
Sub appel_contact()
set olapp =createobject("outlook.application")
 
Dim mycontact As ContactItem
    Set mycontact = olapp.CreateItem(2) 'olContactItem
    mycontact.BusinessTelephoneNumber = "0123456789"
    mycontact.Display
    call_phone_contact
    mycontact.Close olDiscard
End Sub

[fonkwe]

Je n'arrive pas à croire que ça marche.
Mille merci Oliv-. Ton code marche à merveille.
J'ai même pu afficher le nom du destinataire à partir d'un champ aussi.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
Option Compare Database
Option Explicit
 
 
Public olapp As Object
 
Sub call_phone_contact()
Const olContact = 40
    Dim colCB, objCBB
    'A partir d'1 contact
 
    Dim objInsp As Inspector
    Set objInsp = olapp.ActiveInspector
    Set colCB = objInsp.CommandBars
    If Not objInsp Is Nothing And objInsp.CurrentItem.Class = olContact Then
        objInsp.CommandBars.ExecuteMso ("Call")
    End If
 
End Sub
 
 
Private Sub Phone_Click()
Set olapp = CreateObject("outlook.application")
 
Dim mycontact As ContactItem
    Set mycontact = olapp.CreateItem(2) 'olContactItem
    mycontact.FirstName = "Destinataire"
    mycontact.BusinessTelephoneNumber = TelNumber
    mycontact.Display
    Call call_phone_contact
    mycontact.Close olDiscard
End Sub

Merci infiniment pour votre aide.

[fonkwe]

Bonjour,

Je rouvre cette discussion avec un nouveau problème après une migration vers Office 2010 64 bits, la solution ci-dessus renvoie une erreur [La méthode 'CommandBars' de l'objet '_Inspector' a échoué] à la ligne :

[15]Set colCB = objInsp.CommandBars
[17]objInsp.CommandBars.ExecuteMso ("Call")


Merci de pour toute aide pour contourner ce problème.

-David

[Oliv-]

SAlut,
Essaye avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

application.CommandBars.ExecuteMso ("Call")

[fonkwe]

Bonjour Oliv,

J'ai apporté la modification suivante et j'ai toujours une erreur à la ligne [18 Application.CommandBars.ExecuteMso ("Call")].
Erreur : Argument ou appel de procédure incorrect
Cette modification me semble tout de même curieux car c'est la commandBar de Outlook que je veux appeler depuis access et non pas celui de Access...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Option Compare Database
Option Explicit
 
 
Public olapp As Object
 
Sub call_phone_contact()
    Const olContact = 40
    Dim colCB, objCBB
    'A partir d'1 contact
 
    Dim objInsp As Inspector
    Set objInsp = olapp.ActiveInspector
    'Set colCB = objInsp.CommandBars
    If Not objInsp Is Nothing And objInsp.CurrentItem.Class = olContact Then
        'objInsp.CommandBars.ExecuteMso ("Call")
        Application.CommandBars.ExecuteMso ("Call")
    End If
 
End Sub
 
 
Private Sub Commande2_Click()
    Set olapp = CreateObject("outlook.application")
 
    Dim mycontact As ContactItem
    Set mycontact = olapp.CreateItem(2) 'olContactItem
    mycontact.FirstName = "Destinataire"
    mycontact.BusinessTelephoneNumber = TelNumber
    mycontact.Display
    Call call_phone_contact
    mycontact.Close olDiscard
End Sub

[Oliv-]

oui comme tu utilises cela à partir de accès il faut adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
olapp.CommandBars.ExecuteMso ("Call")

est ce que cela fait ça uniquement sur un pC ? si oui c'est peut être un pb d'installation de office.

[fonkwe]

J'ai ce problème sur plusieurs PC (plus de 5). En fait tous ceux sur lesquels ce module marchaient avant la migration.
Il se pourrait que la nouvelle version d'office 2010 64 bits utilise les Ribbons et non plus les CommandBars. Je pense que l'erreur vient de cela.

Je viens de trouver ce lien qui peut être intéressant. Je l'ai testé après avoir fait toutes les adaptations, mais rien ne se passe : pas d'erreur, ni appel ...
Je vais approfondir un peu pour voir : http://accessindepth.blogspot.fr/201...utodialer.html

[Oliv-]

salut
dans vbe as tu bien une REFERENCE à "Microsoft OFFICE 1x.x object library" ?

[fonkwe]

Parmi les réfénces VBA, j'ai bien une référence Microsoft Office 15.0 object library.
Mais si j'essaye de la cocher, je reçois le message : "Erreur de chargement de la dll".
Hm hm ...

[Oliv-]

Essaye de réparer l'installation de OFFICE , si les pc sont déployés par clonage c'est possible de trouver ce problème sur plusieurs postes.

[fonkwe]

Je vois. C'est très probable que les PC soient installés en clonage et cela est géré par le service technique prendra quelques temps à résoudre ce problème.
Cependant, je viens de trouver ce lien hyper intéressant.
J'ai essayer vite fait de le mettre en place, mais je ne reçois rien : ni appel, ni message d'erreur; toutes les instructions sont exécutées sans que rien ne se passe.
Je vais encore gratter un peu pour voir ce qu'il en sort.

BàV,

David.

[Oliv-]

La réparation est des fois possible directement
https://support.office.com/fr-ch/art...rs=fr-CH&ad=CH

[Oliv-]

Parmi les réfénces VBA, j'ai bien une référence Microsoft Office 15.0 object library.
Mais si j'essaye de la cocher, je reçois le message : "Erreur de chargement de la dll".
Hm hm ...

Si tu utilises, office 2010 tu ne devrais pas avoir "Microsoft Office 15.0 object library" mais "Microsoft Office 14.0 object library"

essaye de le pointer manuellement en faisant parcourir dans la fenêtre REFERENCES
il doit être là :C:\Program Files (x86)\Common Files\microsoft shared\OFFICE14\mso.dll

[fonkwe]

Bonjour Oliv

J’avais bien ceci et on remarque que le chemin de la librairie est très improbable.

J'ai pointé directement sur C:\Program Files (x86)\Common Files\microsoft shared\OFFICE14\mso.dll tel que recommandé et c'est bien "Microsoft Office 14.0 object library" qui est chargée

Mais si je relance ma macro, j’obtiens la même erreur initiale ci-jointe .

Merci pour toute l'aide que tu m'apportes.

David

[Oliv-]

David,
As tu essayé de voir si tu avais accès au panneau de configuration et désinstaller un programme , pour faire réparer ?

Sinon essaye à partir d'excel, ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Sub test_mso()
Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
End Sub

[Oliv-]

Essaye plutot à partir d'une base ACCESS (autre) dans une table par exemple, parce que Excel a un objet commandbars

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub test_mso()
Application.CommandBars.ExecuteMso ("FilePrintPreview")
End Sub