Bonjour,

Plusieurs solutions, soit faire une vue dans la base Lotus avec les infos que tu veux et faire un export en Excel ou Fichier et récupèrer ton fichier dans Access.

Autrement utilisé les connexion de type ODBC, un petit exemple =>

Option Public 
Uselsx "*LSXODBC" 

Sub Initialize 
Dim conn As New ODBCConnection 
Dim qry As New ODBCQuery 
Dim result As New ODBCResultSet 
Dim Result1 As New ODBCResultSet 
Dim doc As NotesDocument 
Dim session As New NotesSession 
Dim db As NotesDatabase 
Set db=Session.CurrentDatabase 
Dim col(11) As String 
Dim TableName As String 
TableName="Hack" 
Dim nombre As Integer 

If conn.ConnectTo("TestHack") Then 
Set qry.Connection = conn 

For boucle = 1 To 10 
qry.SQL = "INSERT INTO " & TableName & " (ENCRYPTE,CLAIR) VALUES 
" & "('" & boucle & " ','BOZO1')" 
Set result1.Query = qry 
Call result1.Execute() 
Next 

Else 
Messagebox("Impossible de se connecter au serveur") 
End If 
Call result.close(DB_Close) 
Call conn.disconnect 
End Sub

Cordialement

Stéphane Maillard
http://www.dominoarea.org