Discussion :

[pat04]

Bonjour,

Je souhaite depuis un courrier Word, ouvrir ma base Access, y ajouter un enregistrement et mette à jour ce dernier avec des variables saisies par un utlisateur dans un courrier Word (pour info, je ne peux changer la procédure ci-dessus qui est imposée par un traitement non modifiable).

Est-ce possible et si oui comment faire ?

Je n'ai pas trouvé la réponse dans les FAQs, mais dans la mesure où je viens juste de découvrir ce site, peut-être rien d'étonnant.

Merci de votre aide

[SilkyRoad]

bonsoir

tu pourrais utiliser une procedure de ce type :

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
22
23
24
25
26
27
28
29
30
31
Sub exportDonnees_Word_Vers_Access()
    'ajoute un enregistrement dans une table Access
    'necessite d'activer la reference
    'Microsoft ActiveX Data Objects x.x Library
    Dim Conn As ADODB.Connection
    Dim rsT As ADODB.Recordset
    Dim maTable As String
 
    Set Conn = New ADODB.Connection
    Set rsT = New ADODB.Recordset
 
    maTable = "Table1"
 
    With Conn
        .Provider = "Microsoft.JET.OLEDB.4.0"
        .Open "C:\MaBase_V01.mdb"
    End With
 
    With rsT
        .ActiveConnection = Conn
        .Open maTable, LockType:=adLockOptimistic
        .AddNew
        .Fields("Nom").Value = "Nom10"
        .Fields("PrixUnit").Value = 666
        .Fields("Matricule").Value = 12345
        .Update
    End With
 
    rsT.Close
    Conn.Close
End Sub

reste à comment l'utilisateur saisie les données afin d'adapter ces 3 lignes:

Code :

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

1
2
3
        .Fields("Nom").Value = "Nom10"
        .Fields("PrixUnit").Value = 666
        .Fields("Matricule").Value = 12345

bonne soiree
michel

[pat04]

bonsoir

tu pourrais utiliser une procedure de ce type :

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
22
23
24
25
26
27
28
29
30
31
Sub exportDonnees_Word_Vers_Access()
    'ajoute un enregistrement dans une table Access
    'necessite d'activer la reference
    'Microsoft ActiveX Data Objects x.x Library
    Dim Conn As ADODB.Connection
    Dim rsT As ADODB.Recordset
    Dim maTable As String
 
    Set Conn = New ADODB.Connection
    Set rsT = New ADODB.Recordset
 
    maTable = "Table1"
 
    With Conn
        .Provider = "Microsoft.JET.OLEDB.4.0"
        .Open "C:\MaBase_V01.mdb"
    End With
 
    With rsT
        .ActiveConnection = Conn
        .Open maTable, LockType:=adLockOptimistic
        .AddNew
        .Fields("Nom").Value = "Nom10"
        .Fields("PrixUnit").Value = 666
        .Fields("Matricule").Value = 12345
        .Update
    End With
 
    rsT.Close
    Conn.Close
End Sub

reste à comment l'utilisateur saisie les données afin d'adapter ces 3 lignes:

Code :

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

1
2
3
        .Fields("Nom").Value = "Nom10"
        .Fields("PrixUnit").Value = 666
        .Fields("Matricule").Value = 12345

bonne soiree
michel

bonjour,

je te remercie pour le code communiqué, j'ai mis en pratique, ça marche nickel et en plus c'est totalement transparent pour les utilisateurs.

Merci encore

Patrick