Discussion :

[kedmard]

Bonjour,

Je dispose d'une requête Access 2007 qui contient les champs ci-après:

Mois
Etablissement
Présents
Reçus
Tot_Absence

Mon but est vouloir génerer via un code VBA le fichier Excel ci-joint et d'automatiser cette création.

Etant novice en VBA je viens soliciter votre aide.Toute piste de reflxion serait la bienvenue.
Merci d'avance,

Kedmard

[Orion34080]

Bonsoir,

Code :

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

DoCmd.TransferSpreadsheet acExport, 8, "NOM DE TA REQUETE", "CHEMIN ET NOM FICHIER .XLS EN SORTIE", True, ""

Ca devrait fonctionner si le but est d'exporter ta requete.
Ensuite dans l'excel ainsi généré, rien ne t'emp^che de prévoir un quelconque formatage à partir de cette "extraction".

Je n'arrive pas à voir ton fichier joint.
Michel

[kedmard]

salut, merci pour de l'attention que tu accordes à mon problème tiens je renvoie le fichier Excel.

Au fait j'obliais j'au aussi un champ ville et les feuilles excel générées doivent être distinctes par ville comme l'indique la PJ.

Cordialement,

[Orion34080]

Pour ma part, en terme de piste, ce que je ferais serait la chose suivante (je travaille avec Excel 2003 et Acces 2003 ... à adapter éventuellement pour versions ultérieures) :

1/ Dès lors que ta requête existe et a été enregistrée en tant que telle dans ton Access :

Dans excel, sur un onglet à part :
DONNEES / DONNEES EXTERNES / IMPORTER DES DONNEES
et je désignerais ma Base ACCES et dans celle-ci la requête en question.

Ton fichier Excel serait de cette manière "lié" à ta base et exécuterait ta requête à chaque fois que tu actualiserais la liaison dans Excel (ainsi tu aurais l'équivalent du résultat de ta requête dans Excel).

2/Ensuite j'établirais les liens qui me permettraient de construire les divers tableaux dont tu as besoin dans les autres onglets utlisant des fonctions comme "Somme.si" et "RechercheV"

---

C'est en tout cas ainsi que je procède lorsque j'ai ce type de problème : récupération des données dans Excel (avec actualisation à chaque ouverture), ce qui me permet ensuite de ne travailler que dans Excel

Michel

[kedmard]

Salut, Orion,
Ton idée est intéressante mais j'ai quelques questions :
est-il possibles d'avoir une requête ayant la forme du fichier joint?
je dois ensuite envoyer de façon automatique le fichier Excel généré par mail à certains nombres de destinataires; comment écrire un code vb qui déclenchera l'Envoie par mail de ce fichier liée?

Merci bien,

[Orion34080]

Bonsoir, je ne sais pas si en une seule requête c'est ou non possible.
Je t'ai cependant mis un petit exemple de la manière dont je procèderais en fichier joint.

Tu places Bd1.mdb et Bd1.xls dans un dossier sur ton bureau
--> Bd1.mdb te permet de saisir des valeurs dans la table "table1"
--> Bd1.xls importe ces valeurs et les formatte comme tu le souhaites après avoir cliqué sur le bouton.

17H08 : je viens de changer le fichier joint ... celui-ci est le bon !

Michel

[kedmard]

Bonjour Orion,

Ton travail est bon, merci; le problème réside au niveau de l'automatisation le fait qu'il y ait un bouton donc une action qui necessite mon apport fausserai l'automatisation, car l'envoie automatique du contenue de ce fichier excel se fera parfois à des heures où je serai pas du tout présent.

C'est vraiment ce qui m'embête, merci quand même.

[Orion34080]

Il te suffit de mettre le code du programme que je t'ai fourni dans
Workbook.open() et il s'exécutera automatiquement à l'ouverture du fichier EXCEL sans besoin du bouton d'actualisation.
Michel

[kedmard]

Bonjour,
Excuses moi , pourrai-tu être plus explicite.
Merci.

[Orion34080]

Bien sûr.
Mais je crois que le mieux est un exemple : voir fichier joint

Tu commences par renseigner Bd1.mdb puis tu fermes la base
ensuite tu ouvres Bd1.xls et automatiquement ton tableau se met à jour.

Tu trouveras le code utilisé à l'ouverture du ficher Excel dans "visual basic editor" (sous Excel 2003 menu : Outils / MAcro / Visual Basic Editor).

Michel

[kedmard]

Bonjour,
pour cette réponse tardive.
Je te remercie en tout cas pour ton aide.