Mise à jour contacts avec MySQL [Résolu]

[pbatty1]

bonjour,
j'ai une base de données qui contient les adresses e-mail des salariés d'une société. J'aimerai mettre à jour à partir de cette base les contacts dans Outlook.
j'ai donc créé un macro qui va récupérer les informations dans la base de données. J'ai installé le pilote Myodbc et qui fonctionne d'après le test dans Outils d'administration->source de données.
Mon problème se situe au niveau du code. En effet, il y a un bug au niveau de

Code :

Dim conn As ADODB.Connection

.
Je vous presente ci-dessous mon code:

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
39
40
41
42
43
44
45
46
47
48
49
Private Sub MAJ()
'Connect to Ms Outlook
Dim objOutlook As Outlook.Application
Dim objFolder As Outlook.MAPIFolder
Dim objAllContacts As Outlook.Items
Dim Contact As Outlook.ContactItem
 
 
Dim newContact As Object
Dim prenom As String
Dim nom As String
Dim mail As String
 
 
Set objOutlook = CreateObject("Outlook.Application")
Set objFolder = objOutlook.GetNamespace("MAPI")
objFolder.Logon
 
'connect to MySQL server using MySQL ODBC 3.51 Driver
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim fld As ADODB.Field
Dim sql As String
 
 Set conn = New ADODB.Connection
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=localhost;" _
& "DATABASE=gestion_email;" _
& "UID=venu;PWD=venu; OPTION=3"
 
 'open Database
conn.Open
Set rs = New ADODB.Recordset
 
 
rs.Open "SELECT * FROM adresse", conn
Debug.Print rs.RecordCount
 rs.MoveFirst
Debug.Print String(50, "-") & "Updated my_ado Result Set " & String(50, "-")
For Each fld In rs.Fields
      Set newContact = objOutlook.CreateItem(olContactItem)
      Debug.Print
      newContact.FullName = fld.nom
      newContact.FirstName = neContact.fld.prenom
      newContact.Email1Address = fld.Adresse_mail
 
      Next fld
      Debug.Print
End Sub

Qu'est ce qui peut provoquer ce problème?
Si quelqu'un peut m'aider!
je vous remercie à l'avance

pbatty

[Oliv-]

Bonjour,
quel est le message d'erreur ?
as tu ajouté la référence à
"Microsoft ActiveX Data Objects 2.8 Library" dans le menu outil de vbe ?

[pbatty1]

Merci,
j'ai oublié d'activer microsoft ado. Maintenant ça marche