Discussion :

[ptitemeuh]

Bonjour à tous,

J'ai un petit soucis avec mon programme... J'ai créé une Userform et je voudrais qu'il recherche dans les contacts situés dans mon carnet d'adresses sous Outlook un mot ou phrase que j'inscris dans la TextBox1.

Voici mon programme:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
 
Dim sFilder As String
Dim Rechercher As Object
 
sFilder = TextBox1.Text
Set Rechercher = myContactFolder.Items.Find(sFilder)
 
If Not Rechercher Is Nothing Then
    ListBox1.AddItem ("Trouvé")
    Else
        ListBox1.AddItem ("Le mot ou la phrase recherchée est introuvable")
End If

J'ai un petit soucis que je n'arrive pas à régler, j'obtiens une Erreur d'exécution '424' : Objet requis sur la ligne suivante :

Code :

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

Set Rechercher = myContactFolder.Items.Find(sFilder)

[Tofalu]

Bonjour,

Qu'est ce que : myContactFolder

Il est déclaré et instancié nulle part