VBA Access Exécuter une requête et la copier vers un Document Word

L’utilité de ce code c’est de vouloir élaborer un rapport automatisé pour des besoins de reporting sur des indicateurs de performance, des indicateurs d’alerte, des rapports d’Audit Continue, etc.

Il y a lieu de créer en premier lieu un modèle de rapport sur fichier Word et le placer dans emplacements spécifique.

Ensuite, insérer des signets dans le modèle word. Ces signets vont être utilisés pour placer un texte ou une requête à partir d’Access.

* Dans cet exemple, le fichier modèle est placé dans le même endroit de l’application Access:

Private Sub cmd_rapport_global_Click()

Dim Path, Path_Modele As String

Dim MonBeauWord As Object

Set MonBeauWord = CreateObject("Word.Application")

MonBeauWord.Visible = True

Path_Modele = Application.CurrentProject.Path & "\RAPPORT_RAPPROCHEMENT_QUOTIDIEN.docx"

Path = Application.CurrentProject.Path & "\RAPPORT_RAPPROCHEMENT_QUOTIDIEN_OUTPUT.docx"

Set fso = CreateObject("Scripting.FileSystemObject")

fso.CopyFile Path_Modele, Path, overswiteexisting = 0

'COPIE REQUETE EST REQUETE QUI COPIE UN OBJET DANS LA MEMOIRE DU PRESSE PAPIER

copie_Requete ("REQ_EQUILIBRE_PAR_DATE")

MonBeauWord.Documents.Open (Path)

'**************************************************************

With MonBeauWord.ActiveDocument

.Bookmarks("EQUILIBRE_DATE").Range.paste

End With

Fermer_Requete ("REQ_EQUILIBRE_PAR_DATE")

MsgBox ("terminer ")

End Sub

 

Auteur: N’hésitez pas à me signaler les erreurs qui peuvent glisser dans cet article afin de les corriger.