Discussion :

[Baloo84]

Bonjour à tous
J'aimerais envoyer la valeur d'une cellule dans un champ d'une base données ACCESS ouverte sur le même poste.
Quelqu'un pourrait-il m'aiguiller ou m'indiquer où je pourrais trouver des renseignements, svp?
Merci d'avance
-----@+ -----
Baloo84

J'ai regardé pas mal sur le forum et je ne suis pas sur qu'on puisse, depuis excel faire ceci,...quelqu'un pourrait-il me le confirmer?
Merci d'avance
Baloo84

Je vais tenté d'expliquer davantage ce que je voudrais faire:
J'ai un fichier fichier excel qui comporte un bouton. Lorsque j'appui sur ce bouton, j'exécute un certain nombre d'opération et j'aimerai prendre la valeur d'une célulle (texte) et l'envoyer sur un champ (Txt_1), d'un formulaire (Frm_1) d'une base de donnée (db_1) déjà ouverte sur mon poste.
J'ai pensé plusieurs solutions
- copier/coller (je n'y suis pas arrivé)
- Mémoriser la valeur dans une variable public (mais je ne sais pas faire)
-...
Il y a certainement d'autres pistes, mais j'attends votre aide, svp.
bonne journée -----@+ -----
Baloo84

[AlphaScorpi]

Voici un bout de code qui te permet d'ajouter "TaDonnee" dans une table access.

Je n'ai l'ai pas sur ce poste donc je ne peux pas tester avec access ouvert. A toi d'adapter le code.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub AjoutDonne(TaDonnee As String)
    Dim Connexion       As New ADODB.Connection
    Dim rs              As New ADODB.Recordset
    Dim Req             As String
 
    Connexion.Open "DSN=MS Access Database;DBQ=" & ChemindelaBDD & ";"
 
    Req = Req + "INSERT INTO TaTable (TonChamp) VALUES ('" & Tadonnee & "')  "
    Set rs = Connexion.Execute(Req)
    Req = vbNullString
    Connexion.Close
    Set Connexion = Nothing
 
End Sub