Envoi de données dans table ACCESS

Bonjour,

Je souhaiterai envoyer des données depuis un fichier Excel par le lancement d'une macro excel vers une table Acess

J'ai un fichier excel SUIVIPROJETTEST.XLS dans lequel j'ai une feuille projets en dangers . Dans ce fichier les utilsateurs vont remplir la colonne B Num Projets et les colonnes M et N Commentaires et plan d'ation .

J'ai une base de donnée Suivideprojets.mbd dans laquelle j'ai une table PROJDANGER avec les champs (N°Projet, Commentaire,Planaction)

Je souhaiterai que dans le fichier excel une fois que l'utilisateur clic sur un bouton les données du tableau excel des colonnes B,M et N viennent remplacer les donnees dans la table projdangeR EN fonction du NujmProjet .


Merci pour votre aide

Je suis débutant et j'ai du mal :oops:

Bonjour,
Essayer avec ce code
Il faut ajouter la référence - Microsoft DAO 3.6 Object Library - (menu Outils\Références de l'éditeur Visual Basic)
Adapter les valeurs : nom fichier, feuille d'excel, ligne, ...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Dim db As DAO.Database, t As DAO.Recordset, xlw As Workbook, sh As Worksheet   Set db = OpenDatabase("C:\projets\Suivideprojets.mdb") Set t = db.OpenRecordset("PROJDANGER", dbOpenDynaset) Set xlw = ActiveWorkbook Set sh = xlw.Worksheets("Feuil1")   ligne = 2 'commence en ligne 2 Do Until sh.Cells(ligne, 2) = "" t.FindFirst "[Nprojet]=" & sh.Cells(ligne, 2) If Not t.NoMatch Then t.Edit t!commentaires = sh.Cells(ligne, 13) t!planaction = sh.Cells(ligne, 14) t.Update End If ligne = ligne + 1 Loop t.Close db.Close

---

merci de votre aide , j'ai essayé d'adapter ce code à ma solution ca donne :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Sub UpdateDataAccess_DAO()   Dim db As DAO.Database, t As DAO.Recordset, xlw As Workbook, sh As Worksheet   Set db = OpenDatabase("D:\Documents and Settings\Bureau\test2\Suivideprojets.mdb") Set t = db.OpenRecordset("PROJETSDANGERS", dbOpenDynaset) Set xlw = ActiveWorkbook Set sh = xlw.Worksheets("Projets en Danger")   ligne = 7 'commence en ligne 2 Do Until sh.Cells(ligne, 2) = "" t.FindFirst "[Numproj]=" & sh.Cells(ligne, 2) If Not t.NoMatch Then t.Edit t!commentaires = sh.Cells(ligne, 13) t!planaction = sh.Cells(ligne, 14) t.Update End If ligne = ligne + 1 Loop t.Close db.Close   End Sub

---

La macro se déroule sans erreur mais ca ne mets pas à jour les enregistrements dans ma base .

Je joins la base et le fichier excel correspondant si c'est plus parlant.

Concretement je souhaiterai récupérer dans la Table PROJETSDANGERS les valeurs TTTTTTT dans commentaires et GFD dans planaction pour le projet SJ.09023.

Pouvez m'aider pour trouver ce qui cloche .

Encore merci :P

Bonjour
il y a eu une discussion similaire il y a peu de temps regarde ici:http://www.developpez.net/forums/d91...-table-access/
et là
http://www.developpez.net/forums/d91...-table-access/
$pour emplacer les données adapte le code pour créer une requete sql "UPDATE" pour mettre à jour des enregistrements ou "INSERT INTO" pour ajouter de nouveaux enregistrements ;)

Merci pour ton aide j'ai essayer d'adapter les infos trouvées sur les liens

J'arrive à importer les données dans la base gr

Merci pour ton aide grace aux liens j'ai réussi à importer les données par la fonction insert into. Avec le champ numprojet comme clé primaire je n'importe que les nouveaux enregistrements

J'aimerai aussi enchainer une requete mais cette fois si qui UPDATE en fonction du numprojet en colonne B.

Voici mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub connect_base_access() Dim Db As DAO.Database Dim strSQL As String Dim derlign As Long, i As Long   'connexion à la base Set Db = DAO.OpenDatabase("D:\Documents and Settings\Bureau\test2\Suivideprojets.mdb", False, False)     '   'boucle de la ligne 2 jusque la derniere ligne For i = 7 To 50 strSQL = "INSERT INTO PROJETSDANGERS VALUES ('" & Range("B" & i) & "', '" & Range("M" & i) & "','" & Range("n" & i) & "')" Db.Execute strSQL Next i     'deconnexion de la base Db.Close   End Sub

---

Pouvez m'aidez pour transformer la fonction insert into en update par rpport au numprojet .
J'ai essayé ce code mais ca ne marche pas :oops:

Code:

---

1 2 3 4

For i = 7 To 50 strSQL = "UPDATE PROJETSDANGERS SET [commentaires]= '" & Range("M" & i) & "', [planaction]='" & Range("n" & i) & "')WHERE ([Numproj]='" & Range("b" & i) & "')" Db.Execute strSQL Next i

---

Merci encore

Re,
j'ai un peu modifié ta requete :

Code:

---

1 2 3 4

For i = 7 To 50 strSQL = "UPDATE PROJETSDANGERS SET commentaires = '" & Range("M" & i) & "', planaction = '" & Range("n" & i) & "' WHERE Numproj = '" & Range("b" & i) & "'" Db.Execute strSQL Next i

---

.
je vois que tu as un champ "commentaires" et un champ planaction, pour éviter une erreur fait attention si dans ton texte il y a une ou des apostrophes comme dans le mot aujourd'hui par exemple. dans ce cas regarde le lien que je t'ai donné précédemment ou j'explique qu'il faut doubler l' apostrophe ("''").tu trouveras une fonction qui permet de le faire automatiquement.
Et également si le champ Numproj est en INTEGER donc un ou des chiffres remplace la clause WHERE comme ceci :

Code:

---

WHERE Numproj = " & Range("b" & i) & ""

---

bon courage

Merci ca marche !!!!!!!


:lol::ccool: