Discussion :

[cjacquel]

Bonjour,

Comment envoyer les données d'un Email (provenant d'un formulaire de contact) vers les champs d'une base de données Access ?

Merci,
Christophe

[Heureux-oli]

Avec du DAO lancé au départ de Outlook.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub AjoutDansTable()
Dim rs as DAO.Recordset
 
set rs = CurrentDB.OpenRecordset ("MaTable")
rs.Addnew
rs.fields("Monchamp") = ce_que_je_veux_mettre
rs.update
 
rs.close
set rs = nothing
 
End Sub

[Oliv-]

Bonjour,
Il y a effectivement DAO mais aussi ADO
Consulte la FAQ
http://access.developpez.com/faq/?page=SQL#ExecSQLvba
tu y trouveras notamment :

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
DAO 
Sub DAOExecuteBulkOpQuery()
    Dim db As DAO.Database
    Set db = DBEngine.OpenDatabase (".\Comptoir.mdb")
    ' Exécution de la requête
    db.Execute "Update CLIENTS Set PAYS = 'États-Unis' Where PAYS = 'USA'"
    Debug.Print "Records Affected = "  & db.RecordsAffected
    db.Close
End Sub 
 
ADO 
Sub ADOExecuteBulkOpQuery()
    Dim cnn As New ADODB.connection, iAffected As Integer
    Dim sSQL As String
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=.\Comptoir.mdb;"
    sSQL = "Update CLIENTS Set PAYS = 'États-Unis' Where PAYS = 'USA'"
    ' Exécution de la requête
    cnn.Execute sSQL, iAffected, adExecuteNoRecords
    Debug.Print "Records Affected = " & iAffected
    cnn.Close
End Sub

Sinon ici un exemple d'export vers access.
http://support.microsoft.com/kb/290658/fr

Et encore d'autres exemple en anglais.
http://www.outlookcode.com/article.aspx?ID=23

Oliv'