Comment transférer des données qui sont dans excel vers des tables Access

Bonjour,

je souhaite transférer des données qui se trouvent dans des tables Excel vers des tables Acess en VBA.

J'ai consulté plusieurs forums en faisant des recherches dans google et je ne trouve que des informations qui datent de plusieurs années. J'utilise Windows10 et office 2007. Je n'arrive pas à trouver quelles sont les librairies à charger (et comment) pour cette manip. ADO? quand j'utilise le provider Microsoft.jet.OLEDB.4.0, j'ai un message qui m'indique qu'il ne reconnait pas le format de la base de données. j'ai vu dans ce forum un autre provider Microsoft.ACE.OLEDB.12.0, mais là j'ai un message "l'opération demandée n'est pas autorisée dans ce contecte" Je n'arrive pas à trouver un tuto, un article ou un livre qui traiterait de ce problème.

Si quelqu'un peut me recommander ou je peux trouver ces infos. J'apprécierai beaucoup

Merci

Bonsoir,
Dans l'exemple que je t'ai posté plus haut tu n'as pas besoin de références.

Maintenant tu as 2 solution! Soit tu balais ta feuille Excel et tu génère a la volé ta chaine Sql! Ou tu enregistres ton fichier Excel et tu fais un jointure externe sur ton onglet Excel dans ta requête Sql!

Identifies ton choix et je pourrais te guider.

Merci Dysorthographie,

Je souhaite écrire moi même les requêtes à l'aide d'un bouton de commande et d'un code en vba. D'un coté pour enrichir la base et ensuite par différentes requetes recréer de nouveaux fichiers EXCEL. Aujourd'hui toutes mes données sont sur Excel, mais je voudrais évaluer le passage ultérieur sur Access

Je vais tester le code que tu as fourni a Pemeco

Cordialement

Et bien c'est parfait, j'envisageais de te mettre sur la voie, pas faire le travail à ta place.

Mais pour la technique on aborde des sujets qui s'invente pas et avoir quelque exemple c'est pas du luxe.

Si tu enregistre t'on fichier Excel tu peux avec 3 requête (ajoute, modifications et suppression) gère ta synchronisation!

Alors quand Balayant tes onglets tu dois en vérifier l'existence pour pouvoir les ajouter, les modifier et refaire une passe dans l'autre sens pour la suppression.


Le mieux à mon avis serait de travailler directement sur Access (formulaire dans Excel et des requête Sql vers Access) et in porter ensuite dans Excel!

Bonsoir,

J'ai utilisé ce code:

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub CommandButton2_Click() Dim cn As ADODB.Connection, rs As ADODB.Recordset, r As Long Dim requête, NOM, Prénom   With CreateObject("ADODB.Connection") .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\données\PERSO\Gérard\SGCB\BDD\SGCB1.accdb;" Set requête = .Execute("select * from Membres where NOM='BOP'") ' Requête de sélection .Close End With

---

Ensuite je voudrais écrire les résultats dans une cellule Excel.

Je pense que j'ai mal ou pas déclaré le nom des champs.

Car quand j'essaye NOM.value. J'ai une erreur d'exécution '424'

comment je peux récupéré ces données?

Merci de ton aide
Cordialement

Bonsoir,

Code:

---

1 2 3 4

Set requête = .Execute("select * from Membres where NOM='BOP'") ' Requête de sélection If requête.eof=False then 'si je ne suis pas à la fin de la requête [A1]=requête("NOM").value ' requête (nom du champ) valeur sera stocké da le cellule A1 End if

---

Merci dysorthographie

Ca marche. Je vais pouvoir progresser à partir de ton exemple.

Cordialement

Dysorthographie,

ca marche mais si ma requête est "select * from Membres" Comment je récupère la liste des noms? requête("NOM").value ne donne que le premier enregistrement.

Code:

---

1 2 3 4 5 6 7

Set requête = .Execute("select * from Membres where NOM='BOP'") ' Requête de sélection Dim L as integer While requête.eof= false ' tant qu'on n'a pas atteint la fin Range("A1").offset(L)= requête("NOM").value requête.movenext ' je passe a l'enregistrement suivant L=L + 1 Wend

---

maintenant si tu veux copier la totalité de ta requête dans Excel

Code:

---

1 2	Set requête = .Execute("select * from Membres where NOM='BOP'") Range("A1").CopyFromRecordset requête

---

Merci Beaucoup

bonsoir dysorthographie,

Encore quelques minutes de ton temps si ce n'est pas trop abuser.
Avec cette requête

Code:

---

Set requête = .Execute("insert into Membres (NOM,Prénom) values(Name,Firstname);")

---

J'ai une erreur exécution, erreur automation.

Comment je peux passer des variables à la requête?

Encore merci de ton aide

tu exécutes une requête directe, il n'y a pas de retour, de plus test champs attende des string [']!

Code:

---

.Execute "insert into Membres (NOM,Prénom) values('dysorthographie','Robert');"

---