Envoyer des données de Access vers Excell par VBA

[morice]

Bon voilà, pour mes PTI, j'ai fait une application qui gère des concours. Rien de bien compliqué ni d'original.

Mon application terminée n'est pas très volumineuse et surtout est loin de comporter une difficulté dans son développement.
Problème posé:
:fleche: Gérant des concours, je souhaite éditer les feuilles de score d'un ou plusieurs concours sous Excel de façon automatique. De préférence, en utilisant le langage VBA.

Je pense que le mode opératoire s'approche de ceci, mais bon, sait on jamais:
:fleche: requête de récupération des données
:fleche: mise en forme des données
:fleche: exportation sur Excel (c'est là que le bas blesse)

Quelqu'un me file un coup de main svp?

 

[vestale974]

Salut,
Exemple VBA Export vers Excel
Il faut que les objets BDD et Classeur existent dans un emplacement.
Il y a aussi une coquille dans l'exemple donné
au lieu de lire : Set XL_classeur = .Workbooks.Open("Classseur1.XLS&quot
bien lire :Set XL_classeur = .Workbooks.Open("C:\Classseur1.XLS&quot
Si la source est une requête
au lieu de : Set Rs = conn.Execute("clients", , adCmdTable)
bien lire : Set Rs = conn.Execute("clients", , adCmdRequete)
L'exécution du code VBA se fait à partir d'un bouton de commande.
@+

 

[morice]

Salut,
Exemple VBA Export vers Excel
Il faut que les objets BDD et Classeur existent dans un emplacement.
Il y a aussi une coquille dans l'exemple donné
au lieu de lire : Set XL_classeur = .Workbooks.Open("Classseur1.XLS&quot
bien lire :Set XL_classeur = .Workbooks.Open("C:\Classseur1.XLS&quot
Si la source est une requête
au lieu de : Set Rs = conn.Execute("clients", , adCmdTable)
bien lire : Set Rs = conn.Execute("clients", , adCmdRequete)
L'exécution du code VBA se fait à partir d'un bouton de commande.
@+

Ouah!!! Bah merci chef!
(Merci aussi de me signaler comment déclencher une exécution :wink2: :laugh: :laugh: )

 

[vestale974]

Salut,
Exécution?
@+

 

[morice]

Salut,
Exécution?
@+

Non pas encore eu le temps...je pense que ce sera fait d'ici la fin de la semaine...