Discussion :

[dirtyjs]

Bonjour à vous tous,
j'ai quelques tables dans Access que je veux transférer dans Excel pour ensuite automatiser une mise à jour entre celles-ci et le fichier Excel. Je suis assez débutant avec VBA, j'ai trouvé un code qui fonctionne relativement bien à part que la ligne contenant le nom des champs n'apparaît. Auriez-vous une solution?? Voici le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Requete()
 
Dim bdd As Database, req As QueryDef, enr As Recordset
 
Set bdd = Workspaces(0).OpenDatabase("S:\RIT 2006\bd1.mdb")
 
sql = "SELECT * FROM IT_adhesion;"
 
Set enr = bdd.OpenRecordset(sql)
 
numberOfRows = Sheets("Feuil1").Cells(1, 1).CopyFromRecordset(enr)
 
enr.Close
bdd.Close
 
End Sub

Merci,

JS

[dadavyvy]

Bonjour,

et avec la fonction intégrée d'Excel ?
Données > Données externes > Créer une requête
Ensuite tu n'as plus qu'à choisir la table et les colonnes à importer.

Pour mettre à jour les données, il suffit de cliquer sur le "!" de la barre d'outil "Donées externes" qui apparait.

[dirtyjs]

Merci, mais j'aimerais bien que la mise à jour se fasse automatiquement dès que je fais des modifications dans ma BD Access.

JS

[AlainTech]

Alors, je ne vois que la solution de faire ton programme de mise à jour dans Access.

Ceci dit, je ne comprends pas bien le besoin.
Tu veux avoir les 2 (Access et Excel) ouverts en même temps???

Essaye d'expliquer un peu mieux le résultat attendu.

[dirtyjs]

Bonjour,
en somme, ce que je veux est que lorsque je ferai une mise à jour dans Access quelle se replique automatiquement dans mon fichier Excel lors de sa premiere ouverture. Le fait est que je me sers d'Access pour la manipulation de données que je reçois ponctuellement ensuite je transfert mes tables résumés dans Excel pour en faire un rapport de vente. J'espère que j'ai été plus clair.
merci d'avoir pris le temps de me répondre.

JS

[dadavyvy]

Donc je me répète :
la fonction intégrée d'Excel :
Données > Données externes > Créer une requête

Ensuite à l'ouverture, tu n'as plus qu'à actualiser le QueryTable ainsi créé.