Discussion :

[Gaetan57]

Bonjour,

Dans le formulaire "Fournisseur", j'ai un bouton pour créer une fiche contact complète dans Outlook.

Problème n°1 :
Je n'arrive pas à trouver le moyen pour que AC -2007 contrôle si le Fournisseur est déjà dans mes contacts en utilisant le contrôle "Nom" - "Prénom" (cela évite les doublons)

Problème n°2 :
Si le Fournisseur est déjà dans mes contacts Outlook, alors je voudrais que mon formulaire "Fournisseur" soit remplis automatiquement en utilisant les info de Outlook (Nom - Prénom - Email)

En vous remerciant par avance,

Gaëtan

[tee_grandbois]

Bonsoir,
Voici un code qui pourrait t'aider

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
Sub RechercherContact(sNomFournisseur As String)
    Dim appOutLook As Outlook.Application
    Dim oContactItem As Outlook.ContactItem
    Dim oDossierContacts As Outlook.MAPIFolder
    Dim sAdresseMail As String
    Dim sCompagnie As String
    Dim sContact As String
    Dim sNom As String
    Dim sPrenom As String
 
    Set appOutLook = New Outlook.Application
 
' Recherche des contacts
    Set oDossierContacts = appOutLook.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)
    Set oContactItem = oDossierContacts.items.Find("[LastName] = '" & sNomFournisseur & "'")
    If Not oContactItem Is Nothing Then
        sCompagnie = oContactItem.CompanyName
        sContact = oContactItem.FullName
        sNom = oContactItem.FirstName
        sPrenom = oContactItem.LastName
        sAdresseMail = oContactItem.Email1Address
    End If
 
 Set oContactItem = Nothing
 Set oDossierContacts = Nothing
 Set appOutLook = Nothing
 
End Sub

[Gaetan57]

Bonsoir tee_grandbois,

Je vous remercie de votre aide et désolé de ne pas avoir répondu avant, boulot boulot.

Je vais essayer ce programme et m'en inspirer si problème, après je reviendrais vers vous pour les bonnes ou mauvaises nouvelles lol.

Bonne soirée