Probleme Import contact VBA

[jumpers70]

j'ai implémenter une base de donnée Access ou j'ai mis mes contact outlook,et j'avais le code source ci-dessous qui fait l'importation de la base access vers la base outlook des contacts.
j'ai un problème quand je supprime ma liste des contactes(Outlook) que j'ai déjà importer une 1er fois avec l’exécution du code source ci-dessous,j'arrive pas à les réimporter, quand je les supprimes de outlook ça récupère rien.

Code :

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
29
30
31
32
33
34
35
36
37
38
 
Public Sub MettreAJourContact()
On Error Resume Next
Dim oCont As ContactItem
Dim oCo As ContactItem
Dim oFold As Folder
Dim nM As NameSpace
Dim olApp As Outlook.Application
Dim stFilt As String
Dim rs As DAO.Recordset
Dim db As DAO.Database
 
 
Set db = OpenDatabase("x:\Contacts.mdb")
Set rs = db.OpenRecordset("Select * From Contacts")
Set olApp = Outlook.Application
Set nM = olApp.GetNamespace("MAPI")
Set oFold = nM.GetDefaultFolder(olFolderContacts)
 
While Not rs.EOF
stFilt = "[FirstName] = """ & rs.Fields("Prénom")
stFilt = stFilt & """ And [LastName] = """ & rs.Fields("Nom") & """"
 
Set oCo = oFold.Items.Find(stFilt)
If oCo = "Nothing" Then
    Set oCont = oFold.Items.Add
        oCont.FirstName = rs.Fields("Prénom")
        oCont.LastName = rs.Fields("Nom")
        oCont.Email1Address = rs.Fields("Adresse de messagerie")
        oCont.Save
End If
rs.MoveNext
Wend
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
End Sub

[bbil]

modifie ton test d'existence :

Code :

If oCo Is Nothing Then

[jumpers70]

comment je peu le modifier et garder le contrôle des doublons au même temps.
quand je désactive cette ligne j'aurai l'importation des noms qui existe déjà dans mes contacts OUTLOOK en effet des double contacts.
MERCI

[bbil]

je ne t'ai pas demandé de "désactiver" la ligne mais de la modifier .. regarde à nouveau le code que j'ai posté ...

[jumpers70]

oui je l'ai modifier ca donne le même résultat

[bbil]

enlève cette ligne :

Code :

On Error Resume Next

Il ne suffit pas de masquer les erreurs il faut aussi gérer les cas ou il y a erreur..., mieux vaut ne pas masquer..

[jumpers70]

j'ai enlever le control d'erreur j'ai le message suivant :
Erreur d'execution '94':
Utilisation incorrect de null
sur la ligne :
oCont.FirstName = rs.Fields("Prénom")

[bbil]

je suppose que ton champ prénom est vide...
tu peu vérifier cela par un message box par exemple..

Code :

1
2
 
msgbox rs.Fields("Prénom")

PS : C'est pas une bonne idée d'utiliser caractères accentuées ou caractères spéciaux (espace...) dans les noms de champs ..(même si cela marche..)

[jumpers70]

si je change le nom du champ "Prénom" je doit le modifier au niveau de ma base de donnée,il y'a pas un moyen pour gérer l'exception des caractères accentuées ou caractères spéciaux au niveau du code source,sinon je reconstruit ma base de donne et je fait le test pour voir si ça va aller,
en faite merci beaucoup pour l’intérêt que vous portez à mon sujet ça m'aide beaucoup pour l’implémentation de cette solution.

[bbil]

tu as essayé de rajouter le msgBox ?

[jumpers70]

oui j'ai essayé maintenant l'erreu '94' au niveau de cette ligne de que j'ai ajouter

[bbil]

essai avant la ligne :

Code :

While Not rs.EOF

de placer

Code :

msgbox rs.Fields("Nom")

et si tu as la même erreur essai de rajouter avant

Code :

rs.MoveFirst