Discussion :

[mattgui]

Bonjour à tous,

Je cherche actuellement à exporter des données Excel issues de rapports d'essais, dans une base de données Access.
La problématique rencontrée est que ces rapports sont générées automatiquement par un outil et que je ne peux donc pas utiliser de connexion "traditionelle" entre Excel et Access en utilisant notamment l'onglet "Données externes".

Dans l'idée, on génère un rapport qui a toujours la même mise en forme, les mêmes cellules pour les données clés mais dans un classeur différent à chaque fois. Je cherche donc à créer une macro excel qui exporte ces données dans mes tables Access et que l'on pourrait exécuter à chaque génération de rapport.

A ce que j'ai pu lire, il semble que je dois utiliser ADO ou DAO pour la connexion entre Excel et ma base. J'avoue ne pas y comprendre grand chose ...

Est-ce que quelqu'un pourrait me mettre sur la voie ? Et surtout me dire si ce que j’entreprends est réalisable ... (Bien entendu, je ne cherche pas à ce que l'on me ponde un code sans même que je comprenne, cela n'aurait aucun sens ^^)

A vous lire,

Matt

[Invité]

Bonjour,

Code :

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

1
2
3
4
5
6
7
Sub test()
With CreateObject("Adodb.Connection")
.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\dysorthographie\Documents\Database1.accdb;"
 .Execute ("Select * into [TOTO]  from [Feuil1$] in '" & ThisWorkbook.FullName & "' 'Excel 12.0;HDR=Yes'")
.Close
 End With
End Sub

[mattgui]

Merci pour le bout de code !

Si je comprend bien, on crée une connexion ADO sous la forme d'un objet que l'on ouvre/ferme à notre guise et on exécute une requête SQL standard. Je n'ai plus qu'à adapter la requête à mes besoins ...

Encore merci, je passe en résolu.

[Invité]

notes quand même la jointure externe la requête!

from [Feuil1$] in '" & TonXls & "' 'Excel 12.0;HDR=Yes'")