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!