Discussion :

[julius870]

Bonjour toute la communauté.
J'ai créé une base de donnée pour gérer des produits d'entretien (entrée, sorties, bon de commande).
J'ai presque fini cependant je bute sur l'exportation de mon bon de commande sous excel. En effet je travaille dans une administration et les bons de commande doivent être absolument un fichier excel comportant une charte graphique.
J'ai donc 3 tables :T_Produits ; T_Bon_Commande; T_Details_Commandes.
Je souhaiterai créer un bouton sur mon formulaire F_Bon_Commande pour exporter ma nouvelle commande sur Excel. J'ai déjà effectué un publipostage vers word (dont vous trouverez le code ci-dessous) mais là je bute sur Excel
Y'aurait il une âme charitable pour me venir en aide ?

Procédure publipostage vers word :

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
17
18
Private Sub Cmd_Convention_Click()
DoCmd.RunCommand acCmdSaveRecord
Me.Refresh
Dim objWord As Word.Document
Set objWord = GetObject("\\Serveur2003\bureautique\Commun\gestion des salles\gestion location de salle\Convention fusion.dotx")
' Rend Word visible important puisque la fusion se fait à l'écran.
objWord.Application.Visible = True
' Sélectionne la base en cours, pas la peine d'indiquer le chemin de la base car sinon Access réouvre la base
objWord.MailMerge.OpenDataSource _
        Name:=CurrentProject.FullName, _
        LinkToSource:=True, _
        Connection:="Fusion", _
        SQLStatement:="SELECT * FROM [Fusion]WHERE Id_Location = " & [Forms]![F_Location]![Id_Location]
' Exécution de la fusion.
objWord.MailMerge.Execute
'Ferme le modèle de publipostage sans l'enregistrer donc il reste que le document fusionné
objWord.Close wdNotSaveChanges
End Sub

ps : je vous joint la base plus mon fichier Excel. J'ai déjà réussi à établir une connexion entre access et excel mais pas depuis mon formulaire. En l’occurrence je dois ouvrir ma requête R_Bon_Commande puis mettre filtrer ma requête sur le bon Id_Bon_Commande puis je ferme Access et j'ouvre mon fichier.
Alors qu'il me suffirait de savoir piloter Excel depuis Access et de lui notifier le critère suivant : where Id_Bon_Commande = Id_Bon_Commande![Formulaire]![F_Bon_Commande] (enfin quelque chose comme ça)
En attente de vous lire je parcoure les forums en quête d'une réponse à ma question.

[julius870]

De retour, je pense avoir trouvé les réponses à travers ce tuto
[URL="http://www.developpez.net/forums/d1309497/logiciels/microsoft-office/access/contribuez/mise-page-dexcel-automation/"[/URL]
Je reviens vers vous en fin de soirée si le match est mauvais....
J'espère pouvoir poster le code demain matin et marqué Réso.....