Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access
Access Forum d'entraide sur Microsoft Access. Avant de poster -> La F.A.Q Access
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 27/12/2007, 10h59   #1
Membre actif
 
Avatar de Ric500
 
Homme Richard
Ingénieur développement logiciels
Inscription : août 2004
Messages : 166
Détails du profil
Informations personnelles :
Nom : Homme Richard
Localisation : France

Informations professionnelles :
Activité : Ingénieur développement logiciels
Secteur : Tourisme - Loisirs

Informations forums :
Inscription : août 2004
Messages : 166
Points : 157
Points : 157
Par défaut Recherche Contact Outlook

Bonjour!

Je cherche à faire une recherche indexée sur les contacts d'outlook à partir d'access. Malgré mes recherches dans la FAQ, je n'ai pour l'instant réussi qu'à faire une recherche de type séquentiel (en parcourant tous les contacts) comme suit:

Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
   'Consultation du dossier contacts dans Outlook
   Set myOlApp = CreateObject("Outlook.Application")
   Set myNameSpace = myOlApp.GetNamespace("MAPI")
   Set mycontacts = myNameSpace.GetDefaultFolder(olFolderContacts).Items
   'On parcourt les nodes du tree (les contacts dans Outlook)
    Dim x As Integer
    For x = 1 To Me!Tree.Nodes.Count
        If Me!Tree.Nodes(x).Checked = False Then 'Si non coché on va au suivant
            GoTo NextContact
            Else
            LKey = Me!Tree.Nodes(x).Key
        End If
        'On parcourt les Contacts et on cherche si la clé Outlook existe dans la table ID
        'Si oui --> MAJ, sinon --> Création
        For Each MyContact In mycontacts
                    If MyContact.EntryID = LKey Then
...........
Ici je parcours les nodes d'un tree dont les clés sont la clé du contact sous outlook : si elle est cochée, je recherche cette même clé dans les contacts outlook. MAIS LA: je ne sais pas la commande pour la recherche indexée (du style :
Code :
1
2
3
With MyContacts
   .findfirst Condition
End With
Je vous remercie par avance de votre aide.
Ric500 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 05/01/2008, 15h07   #2
Rédacteur/Modérateur
 
Avatar de Dolphy35
 
Homme Morgan BILLY
Technicien de Production
Inscription : octobre 2004
Messages : 4 106
Détails du profil
Informations personnelles :
Nom : Homme Morgan BILLY
Âge : 33
Localisation : France, Ille et Vilaine (Bretagne)

Informations professionnelles :
Activité : Technicien de Production
Secteur : Industrie

Informations forums :
Inscription : octobre 2004
Messages : 4 106
Points : 8 742
Points : 8 742
Salut,

tu as vu le tuto d'Heureux-oli concernant le partage de Contacts entre Outlook et Access ?

http://heureuxoli.developpez.com/off...look/partager/

tu trouveras peut être tes infos.


Dolphy
__________________
Personnaliser la vue Backstage d'Access 2010
Découvrez avec nous Office 2010
Je ne réponds pas aux questions techniques par MP
Dolphy35 est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 16h53.


 
 
 
 
Partenaires

Hébergement Web