Discussion :

[yochima]

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
 
Private Sub SuppressionUtilisateur2(ByVal myDataTable As DataTable)
        dossierContacts = myDefaultFolder.Folders("Gedo")
 
        'On créé un filtre qui contient tout les ID_CONTACT à supprimer
        sFilter = ""
        For i As Integer = 0 To myDataTable.Rows.Count - 1
            If (i = 0) Then
                sFilter += "Not([CustomerID] = '" + myDataTable.Rows(i).Item("ID_CONTACT").ToString + "')"
            Else
                sFilter += " And Not([CustomerID] = '" + myDataTable.Rows(i).Item("ID_CONTACT").ToString + "')"
            End If
        Next
        'On supprime les contacts trouvés
        myListOfContact = dossierContacts.Items
        myNewContact = myListOfContact.Find(sFilter)
        While Not (myNewContact Is Nothing)
            'les contact sans id sont des contact créé a la main
            'Donc on les garde
            If (TypeName(myNewContact.CustomerID) <> "Nothing") Then
                myNewContact.Delete()
            End If
            myNewContact = myListOfContact.FindNext()
        End While
    End Sub

sur la ligne

Code :

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

1
2
 
 myNewContact = myListOfContact.Find(sFilter)

j'ai l"erreur :

Condition non valide.

ça fait un moment que je tourne autour, il doit presque rien manquer.
Merci de votre aide

[sinople]

Ca m'a l'air tiré par les cheveux ton truc...

Je suis pas persuadé que la fonction Find soit approprié pour faire ton filtre (Y a pas un truc du genre "Sort".

Peut être plus simple avec une collection (tableau, liste, etc) contenant les références à traiter (Que tu remplis avec Linq ou autres méthodes selon tes compétance). Puis tu parcours cette collection pour effectuer le traitement (la suppression dans ton cas)

Enfin quoi qu'il en soit ton erreur provient surement d'une erreur d'interprétation de la string "sFilter". Il faut donc analyser la valeur de cette variable lors de l'erreur pour résoudre ton problème.

[yochima]

Bonjour Sinople,

Si j'utilise la méthode Find c'est parce que sur les objets ContactItem de Outlook elle est très conseillée ^^

par exemple,

Code :

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

1
2
 
sFilter = "[CustomerID] = '" + id_contact + "'"

me retourne une liste de contact ayant pour "customerID" ma variable.

J'ai vu qu'on pouvait utiliser

Code :

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

"Not([CustomerID] = '" + id_contact + "'")

(qui retourne ma liste de contact qui n'ont pas le CustomerID de mon choix)
et des conditions

Code :

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

AND

Il me semble qu'on ne peut pas faire plus optimiser quand au choix de la méthode

je n'arrete pas de regarder le contenu de mon sfilter pour voir le probleme mais le soucis c'est que je connais mal cette syntaxte du

Not

j'espérais que quelqu'un du forum la connaissant me corrige la syntaxe

Cordialement
Yochima

[sinople]

Peux-être que la syntaxe des filtres pour cette objet est particulière.

Mais poster un exemple de ton filtre qui marche pas simplifierait ta demande.

[yochima]

Excuse moi, tu as tout à fait raison.

voici a quoi ressemble mon sfilter une fois plein :

Not([CustomerID] = '1') And Not([CustomerID] = '2') And Not([CustomerID] = '5') And Not([CustomerID] = '6')

je vais continuer de chercher et vous mettrais au courant
a+

[yochima]

Alors j'ai une explication à mon problème -_-

le sfilter est limité à 600 caractères !!!

j'ai fait des test. il bloquait sur un ID = 23. du coup j'ai coupé mon sfilter a l'id 22 et ça marche !
j'en est fait un autre a partir du 23 et ça marche !

ça fait vraiment sâle
je vais chercher un moyen de ne faire qu'un seul sfilter.

a+