Bienvenue! Identification Créer un nouveau profil

Recherche avancée

[AC16] Automatisation du publipostage avec WORD

10/11/20 17:42
Bonjour,
j'essaye de mettre en application un procédure décrite dans Access 2007 de Miro Application
j'ai bien suivie la préocédure de préparation du fichier WORD
et la routine
Sub Lettre1()
'
'publipostage vers Word
'
Dim wdApp As Word.Application
Dim strCheminDoc As String
Dim strSql As String

' Chemin du documents Word Letter1
strCheminDoc = "U:\dunes\lettre1a.docx"
' Instruction SQL permettant d'extraire les clients
strSql = "SELECT * FROM [RqLetter1]"

' Démarrer Word
Set wdApp = New Word.Application
With wdApp
' Rendre Word visible pour faciliter la mise au point
.Visible = True

' Ouvrir le document de publipostage
.Documents.Open strCheminDoc

' Paramétrer le publipostage
With .ActiveDocument.MailMerge
.OpenDataSource name:=CurrentProject.FullName, _
SQLStatement:=strSql, _
ReadOnly:=False

'Diriger le publipostage vers un nouveau document
' plutôt que vers l'imprimante
.Destination = wdSendToNewDocument

' Lancer la fusion
.Execute
End With
End With

' Fermer et libérer les objets
Set wdApp = Nothing

' Fermer et libérer les objets
Set wdApp = Nothing

End Sub

J'ai une erreur produite par WORD "Impossible d'utiliser "U:/....Dbdune10-2020.accdb. fichier en cours d'utilisation. Cette erreur se produit au niveau .OpenDatasource.......
Ma db est effectivement ouvert sur une page de menu avec un bouton pour lancer la procédure.

Dans la remarque de Micro application il est noté de bien enregistrer le module. Sinon, la base access restera en mode création, ce qui implique également un verrouoillage en mode exclusif et le publipostage ne pourra exécuter la requête SQL

Là je suis un peu perdu
Merci de votre aide
Pascal
SujetAuteurEnvoyé le

[AC16] Automatisation du publipostage avec WORD

Pascal Marey10/11/20 17:42

Seuls les utilisateurs enregistrés peuvent poster des messages dans ce forum.

Cliquez ici pour vous connecter