Discussion :

[ver_for2]

Bonjour,

J'ai une base Access A qui lance un publipostage Word. Cela fonctionne correctement.

J'ai maintenant créé une base Access B qui ouvre la base A puis ferme la base B.
dans le cas le le même publipostage ne fonctionne pas.

Le code d'ouverture de la base est le suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Dim appAccess As Object
    Dim sDest As String
 
 
    sDest = "C:\Application\A.accdb"
 
    Set appAccess = CreateObject("Access.Application")
 
 
    docAccess = appAccess.OpenCurrentDatabase(sDest, True)
 
    appAccess.Visible = True
 
    DoCmd.Quit

Si je lance la base B. La base A s'ouvre et lorsque je lance le publipostage j'obtiens l'erreur suivante:
Microsoft Word "Une erreur s'est vérifiée: impossibile d'utiliser la base LA base C:\Application\A.accdb " fichier déjà en cours d'utilisation.

Si je vais sur le debug ce code est surligné

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
  With oWdoc.MailMerge
            .MainDocumentType = 0 'wdFormLetters
            .OpenDataSource _
                Name:=CurrentProject.FullName, _
                AddToRecentFiles:=False, _
                LinkToSource:=True, _
                Connection:="TABLE T_Engagements", _
                SQLStatement:="SELECT * FROM [T_Engagements] WHERE (((T_Engagements.Num_asso)=" & num_asso & "));"
            .Destination = 0 'wdSendToNewDocument
            .Execute Pause:=False
        End With

la valeur de CurrentProject.FullName est C:\Application\A.accdb

num_asso a bien la valeur correcte

[marot_r]

Bonjour.

Je n'ai pas encore lu l'article au complet donc je ne sais pas si cela pourra t'aider mais User vient de publier ceci https://denishulo.developpez.com/tut...ipostage-word/ et il est fait mention des problèmes d'Accès à la BD.

A+