Discussion :

[Ric500]

Bonjour à tous,

Dans le cadre d'une migration d'appli sous access 7 vers access 2016, j'avais un bout de code qui s'exécutait lors d'un clic sur un bouton de la barre d'outils Accès rapide d'une fiche contact de Outlook 2007: ce code exportait le contact courant vers ma base de données access.
Après migration vers office 2016 la barre d'outils en question a disparu et bien que je puisse ajouter mes macros vba sur l'interface d'outlook, le code plante car on ne part plus d'un contact ouvert désigné dans ce même code par la commande ActiveInspector:

Code :

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

1
2
3
4
5
6
7
8
9
10
  Set objInspector = Application.ActiveInspector
 
  If TypeName(VarName:=objInspector) = "Nothing" Then
        MsgBox Prompt:="Aucun élément Outlook n'est ouvert."
        Exit Sub
    Else
    Set objContact = Application.ActiveInspector.CurrentItem
    Call CreeContact(objContact)
    Call Wishes(objContact)
  End If

... et j'obtiens invariablement le message "Aucun élément Outlook n'est ouvert".

Comment trouver une solution de contournement ?
Ou, idéalement comment appeler ma macro depuis la fiche contact?

Je vous remercie par avance, cordialement

[Oliv-]

SAlut,

Voici un code de Humanisto qui te permettra de solutionner ton pb

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Instancie_Variables_Outlook_Word()
'Permet d'utiliser les fonctionnalités de Word et Outlook
Set OutApp = Outlook.Application
If TypeOf Application.ActiveWindow Is Outlook.Inspector Then
    Set OutMail = OutApp.ActiveInspector.CurrentItem
    Set OutInsp = OutMail.GetInspector
    Set WordDoc = OutInsp.WordEditor
Else
    Set OutMail = Application.ActiveExplorer.ActiveInlineResponse
    Set WordDoc = Application.ActiveExplorer.ActiveInlineResponseWordEditor
End If
Set WordApp = WordDoc.Application
Set WordSel = WordApp.Selection
End Sub

[Ric500]

Merci Oliv, pour ta réponse:

Je crois avoir trouvé une réponse qui me satisfait entre temps. Mon problème se situait dans l'affichage du formulaire contact: lorsqu’on double clique sur un contact. En effet à la création du contact, le formulaire 2016 ressemble à celui de 2007 et permet l'adjonction d'une barre d'outils rapide (en haut) et donc à un appel de macro VBA, mais par la suite, sur double clic dans la liste de contacts, il ne m'affichait qu'un formulaire réduit sans barre de titre et sans barre d'outils => pas d'export possible.
La solution qui me semble correcte pour l'instant: faire afficher dans les contacts le volet de lecture qui permet, lui, "d'afficher la source": là c'est le formulaire classique qui s'ouvre et mon code, même s'il demande quelques adaptations, fonctionne.
A propos de ces adaptations, je vais me pencher sérieusement vers les pistes que tu m'as fournies pour voir ce qu'elles peuvent apporter de plus éventuellement.

Merci encore

Je considère cette entrée comme résolue.