Liason Excel acces

Bonjour j'aimerai effectuer une liaison de Excel vers Access via une macro j'ai eu à faire des recherches mais j'arrive pas à adapter le code que je trouve en ligne en fonction de ce que je veux. J'aimerai avoir votre aide s'il vous plait pour le faire.

J'ai un classeur de 20 feuilles mais j'aimerai juste lier 7 feuilles avec ma base acces.

Actuellement ma base acces contient une importation que j'ai faite de ces 7 feuilles donc sont actuellement identique mais j'aimerai donc faire une macro VBA qui me lie chacune de mes 7 feuilles à la table adéquate.

Mais dans mes recherches j'ai trouvé plusieurs fois le mot ADO quelqu'un pourrait m'expliquer de façon très simple son rôle et ce que c'est s'il vous plait.

Code avec une seule feuille moi j'aimerai le faire avec mes 7 feuilles.

Est ce que je dois dupliquer le code 7 fois et à chaque foi adapter le nom de la feuille et de la table?

Merci d'avance pour votre aide

Sub exemple() Dim enregis As DAO.Recordset, baseAccess As Database, feuille As Excel.Worksheet Dim i As Integer 'On considère que le code est écrit dans le classeur Fiche.xls Set feuille = ThisWorkbook.Worksheets("methode") 'On établi la connection avec la fameuse base Access Set baseAccess = DBEngine.OpenDatabase("c:\fiche_access.mdb") 'On "récupère" une représentation exploitable de la table article via un objet Recordset Set enregis = baseAccess.OpenRecordset("Select * FROM article") 'On renseigne tous les enregistrements de la table article à partir de la deuxième 'ligne de la feuille méthode i = 2 Do feuille.Range("A" & i) = enregis("code_article") feuille.Range("B" & i) = enregis("libelle") feuille.Range("C" & i) = enregis("qte") feuille.Range("D" & i) = enregis("prix") i = i + 1 enregis.MoveNext Loop Until enregis.EOF 'On ferme la connection du recordset enregis.Close 'On ferme la connection avec la base Access... baseAccess.Close 'On fait un peu de ménage... Set feuille = Nothing Set enregis = Nothing Set baseAccess = Nothing End Sub Un code imparfait, mais qui peut t'a

Bonjour MichDaf,

Peux-tu expliciter davantage ton projet?

Quel est le besoin de recopie des feuilles EXCEL vers ACCESS?

Que fais-tu ensuite des données dans ACCESS?

bonjour

GVIALLES, salut

je comprends l'inverse de toi

la question est un peu ambigüe : selon moi il s'agit d'importer de Access vers Excel

dès lors, il faut télécharger Power Query (gratuit, inclus dans les Excel récents)

menu Power Query "de Access" et en 3 clics on a fini

ensuite on met à jour d'un clic "actualiser"

amitiés