Discussion :

[jameslaguerre]

Bonjour tout le monde,

J’ai un petit problème, je voudrais importer des données qui se trouvent dans une feuille Excel à une table en Access.
J’aimerais lancer l’importation à partir d’Excel.


J’ai essaye d’appliquer certaines solution du même problème dans le forum, mais ça ne marche pas.

Je ne m’y connais pas trop en VBA, quelqu’un pourrais m’aider s’il vous plait.


Merci déjà
Jaymes

[loufab]

Si c'est depuis Excel tu n'es pas dans le bon forum.
Je transfère vers Excel.

[Philippe Tulliez]

Bonjour,
Une solution à l'aide d'une requête SQL dans cette contribution Fonction qui renvoie une table contenant résultat d'une requête SQL sur une base de données Access

[jameslaguerre]

Bonjour Philippe,
Merci pour ta réponse, j'aimerais savoir ou je dois placer ces codes.


Merci
Jaymes

[Philippe Tulliez]

Bonjour,
Dans un module.
Editeur VBE, Insertion/Module.
Cependant en relisant ta question, je réalise que tu souhaites exporter des données d'excel vers Access or ma contribution fait l'inverse.

[jameslaguerre]

Bonjour Philippe,

Oui, c'est exactement ce que je veux faire, exporter des données d'excel vers Access et de pouvoir lancer l'exportation a partir d'excel.

C'est pour cela que j’étais un peu confus de ta première réponse.



Merci déjà pour ton aide.
Jaymes

[parmi]

Bonjour,

Sous DAO (oui, je sais, c'est obsolète, mais ça fonctionne encore...) on peut utiliser un code comme ceci. Ça prend une référence à Microsoft Access

Code :

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

1
2
3
4
5
6
7
    objAccess.DoCmd.TransferSpreadsheet _
        FileName:=LocalFilename, _
        transfertype:=acImport, _
        tablename:=LocalTablename, _
        HasFieldNames:=LocalBoolHeader, _
        Range:="Feuil2!", _
        SpreadSheetType:=8

Il s'agit de changer les noms de variables:
LocalFilename est le nom du fichier Excel que tu veux exporter
LocalTablename est le nom de la table dans laquelle exporter
LocalBoolHeader détermine si on copie ou non les entêtes
Range demande le nom de la feuille avec un "!"
SpreadsheetType détermine la version d'Excel

Probablement qu'on peut arriver au même résultat avec ADO... mais je n'ai pas d'exemple...