Discussion :

[Bragon12]

Bonjour à tous,

Lorsque je me connecte à Word pour effectuer un publipostage, j'obtient le message suivant :

"une erreur s'est produite : La base de données a été placée par l'utilisateur "Admin" sur "EPPARL13" dans un état l'empêchant d'être ouverte ou verouillée."

Voilà le code qui est inséré sur un bouton d'un formulaire de la base en question :

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
19
20
Private Sub Commande30_Click()
Dim wdapp As Word.Application
 
' Démarrer Word
Set wdapp = CreateObject("Word.application")
With wdapp
       .Visible = True
      ' Ouvrir le document
      .Documents.Open "C:\Users\FKieke01\Drive_M\Data\Presentation dossier.docx"
      ' Diriger le publipostage vers un nouveau document
     .ActiveDocument.MailMerge.OpenDataSource "C:\Users\FKieke01\Drive_M\Data\BD Foncier V1.accdb"
     .ActiveDocument.MailMerge.Execute
     .PrintOut
     .Quit
End With
 
' Fermer et libérer les objets
Set wdapp = Nothing
 
End Sub

Merci d'avance pour votre aide!

[marot_r]

Essaye de fermer ta base et de la réouvrir, il y a peut-être un drapeau de modification qui traine.

Si cela ne résoud pas le problème, voici une solution qui fonctionne chez moi :

Créer une base qui ne contient qu'une seule table, celle qui alimente ton Word.

Après, tu remplis la table de cette base via une table liée ou autre et tu appèles Word depuis ta base principale.

S'il se passe la même chose que chez moi, tu va voir ta base intermédiare s'ouvrir durant la fusion de Word.

A+