Bonjour au forum,

Je souhaite tester depuis mon userform en cliquant sur bouton valider

- si le client est existant dans la liste des contacts outlook, il m'affiche un message
- si non il affiche un autre message et créer le nouveau contact dans outlook.
Voici le code :
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 controleLastName_contactsOutlook()
    Dim olApp As New Outlook.Application
    Dim Cible As Outlook.ContactItem
    Dim dossierContacts As Outlook.MAPIFolder
    Dim leNom As String
    Dim leTel As String
 
    leNom = nom.Value
    leTel = TextBox2.Value
 
    Set olApp = New Outlook.Application
    Set dossierContacts = olApp.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)
 
    Set Cible = dossierContacts.Items.Find("?[FullName] = '" & leNom & "'" And [HomeTelephoneNumber] = "'" & leTel & "'")
    If Not Cible Is Nothing Then
        MsgBox "Le contact existe déjà dans Ms Outlook"
    Else
        MsgBox "Le contact n'existe pas et donc va être ajouter"
        ajouterContactOutlook
    End If
End Sub
Ne fonctionne pas, affichage du message d'erreur 13' incompatibilité de type" et souligne en jaune
Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Set Cible = dossierContacts.Items.Find("?[FullName] = '" & leNom & "'" And [HomeTelephoneNumber] = "'" & leTel & "'")
Pouvez-vous m'aider ?

Merci

Stephanie