Bonjour,

Je souhaite connecter ma base de donnée access, je le fais avec excel souvent et il n'y a pas de pb, mais la je test avec outlook ca ne marche pas j'ai une erreur :format de base de donnée non reconue, mais le format est bon : accdb, ca n'a pas de sens ....
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
Sub test()
    Dim Db As DAO.database
    Dim rcset As DAO.recordset
    Dim objNamespace As NameSpace
        'espace email object
    Set objNamespace = GetNamespace("Mapi")
        'connection a l'email
    Set MyList = objNamespace.GetDefaultFolder(10)
    Set AllContacts = MyList.Items
        'database
    Set Db = DAO.OpenDatabase("E:\CarnetAdresse.accdb", False, False)'probleme
   ' For Each MyName In AllContacts
        'Req_Insert = "INSERT INTO [Contacts] VALUES('" & MyName.FirstName & "','" & MyName.Email1Address & "') "
    'Next MyName
End Sub