Export automatique vers excel d'une table access [Fermé]

Signaler
Messages postés
35
Date d'inscription
jeudi 3 mars 2016
Statut
Membre
Dernière intervention
10 avril 2018
-
Bruce Willix
Messages postés
12594
Date d'inscription
mardi 24 mai 2011
Statut
Contributeur
Dernière intervention
12 juin 2018
-
Bonjour,

quelqu'un aurait-il une idée pour créer une macro qui va exporter automatiquement des données d'une table Access vers une feuille excel et ceci tout les 30 minutes?
Merci pour votre réponse


3 réponses

Messages postés
10416
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
7 avril 2020
586
Tu peux assez facilement créer dans Excel une requête vers Access, et l’exécuter automatiquement. le fichier Excel resterait ouvert en permanence?
Bonjour
C'est d'access vers excel et non excel vers access
yg_be
Messages postés
10416
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
7 avril 2020
586
Tu peux assez facilement créer dans Excel une requête extrayant des données d'Access, et l’exécuter automatiquement. Le fichier Excel resterait ouvert en permanence?
rman13
Messages postés
35
Date d'inscription
jeudi 3 mars 2016
Statut
Membre
Dernière intervention
10 avril 2018

il faut donc se connecter à la base via une macro si je vois bien? et puis creer la requete?
yg_be
Messages postés
10416
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
7 avril 2020
586
D'abord faire une fois "à la main", en utilisant les menus de Excel.
Ensuite, quand cela fonctionne, repartir de zéro (nouveau fichier Excel, enregistrer une macro, et faire de même, puis arrêter l'enregistrement.
Ensuite examiner la macro pour vois comment elle fait.
Attention, cela suppose que Excel va tourner la macro en permanence (attendre pendant 30 minutes), donc ne sera pas vraiment disponible pour faire autre chose (je pense).
Messages postés
12594
Date d'inscription
mardi 24 mai 2011
Statut
Contributeur
Dernière intervention
12 juin 2018
2 124
Hello,

Quel est l'objectif ?

- Sauvegarder la DB access en excel toutes les 30 minutes
- Consulter en excel des données actualisées ?
rman13
Messages postés
35
Date d'inscription
jeudi 3 mars 2016
Statut
Membre
Dernière intervention
10 avril 2018

bjr,
c'est en faite pour consulter en excel des données actualisées
Bruce Willix
Messages postés
12594
Date d'inscription
mardi 24 mai 2011
Statut
Contributeur
Dernière intervention
12 juin 2018
2 124
Alors dans l'onglet données > Importer > Access

Ca va créer un lien vers la DB, qui peut etre rafrachi en cliquant sur "mise a jour"

Bonjour,

tu n'as pas trouvé en 3 mois ????????

Quel intérêt, enfin, quelle est la finalité de cet export ? Une sauvegarde ?

Ta base est-elle ouverte en permanence ???

A+

Utilisateur anonyme
et veux tu le faire avec Excel fermé ??

La solution que je vois, vu qu'access ne gère pas les Jobs, ni Excel d'ailleurs :), c'est de lancer une appli vba (Excel, Access ou Word...) toutes les 30mn via les jobs Windows qui fait ce que tu veux faire (copie).

Mais si ton fichier cible (Excel) est ouvert, je ne garantie rien. Faut tester.

Voici ce que tu peux tester :

On définit au préalable dans un module Access de "x:\base.mdb", la procédure d'exportation.

Exemple :

Tu mets dans ta base un module.

Public Sub Exportation_de_la_base()

DoCmd.TransferSpreadsheet acExport, , "table1", "C:\fichier_excel.xls", False, ""
'table1 et "C:\fichier_excel.xls" à changer bien évidemment, au pire si tu as plusieurs tables, tu mets autant de lignes que nécessaires ou une requête. ET EVITES LES ESPACES DANS LES NOMS DE REPERTOIRES ET FICHIERS

End Sub()


Puis tu appelles la procédure Exportation_de_la_base() depuis Excel :



Sub Btn1_Clic()

'je te mets cela sur un clic d'un bouton (btn1), et après tests, on pourra le mettre sur un timer...


Dim MonAccess As New Access.Application

MonAccess.OpenCurrentDatabase "x:\base.mdb" 'mets ici le chemin complet de ta base
MonAccess.run "Exportation_de_la_base" 'le nom de ta sub
MonAccess.Quit acquitsaveNone 'on quitte sans broncher
Set MonAccess = Nothing 'on libère les ressources

End Sub
rman13
Messages postés
35
Date d'inscription
jeudi 3 mars 2016
Statut
Membre
Dernière intervention
10 avril 2018
> Utilisateur anonyme
bonjour!!! waouh c'est très intéressant ce que tu as proposé...
je vais faire des test et je t'informerais de la suite!!!!!!
un grand merci a toi!!!!

bonne journée
Mih,