Discussion :

[thierrylosson]

Bonjour,

Avec une base de données ACCES, je lance un fichier WORD pour un publipostage. Cela marche bien ! .
Cependant lorsque je crée un fichier d'instal, cette procédure ne marche plus correctement .

"En clientelle", En effet, le code VBA lors de l'ouverture du document génère une boite modale demandant de sélectionner l'emplacement de la source de données. Cette information est contenue dans la ligne suivante !!! (donc si je fais annuler, le document de fusion se met en route correctement).

L'installation de la base et des différents fichiers est laissé "libre" à l'utilisateur. Je ne peux donc pas prévoir ou l'installation sera mise; cependant le fichier WORD est localisé dans un répertoire défini par l'installation.

Peut-on empêcher les "
- Set lobjWDDoc = GetObject(CurrentProject.Path & "\WORD\" & cboListe.ItemData(cboListe.ListIndex), "Word.Document")
ou
- Set lobjWDDoc = lobjWDApp.Documents.Open(CurrentProject.Path & "\WORD\" & cboListe.ItemData(cboListe.ListIndex), ReadOnly:=True)
"
de déclencher l'appel de la fenetre de recherche de la source de données car l'info est juste après (voir opendatasource) ? ....:

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
 
        'Set lobjWDDoc = GetObject(CurrentProject.Path & "\WORD\" & cboListe.ItemData(cboListe.ListIndex), "Word.Document")
        Set lobjWDDoc = lobjWDApp.Documents.Open(CurrentProject.Path & "\WORD\" & cboListe.ItemData(cboListe.ListIndex), ReadOnly:=True)
 
lobjWDDoc.Application.Visible = True
    With lobjWDDoc.MailMerge
        .MainDocumentType = wdFormLetters
        .OpenDataSource _
            Name:=CurrentProject.Path & "\" & CurrentProject.Name, _
            LinkToSource:=True, _
            Connection:="TABLE " & mstrEdTable, _
            SQLStatement:="SELECT * FROM " & mstrEdTable
    End With
    ' Exécution de la fusion.
    lobjWDDoc.MailMerge.Execute

Je précise que le fichier WORD est un document de fusion principal, il pointe sur une table de ma base et possède des champs de fusion.

Le publipostage ne marche pas car après une installation chez un utilisateur, l'ouverture du fichier word par code VBA ACCES génère l'ouverture malencontreuse la recherche de la source de données. Comment ne pas avoir ce message car les fichiers originaux sont fait depuis mon répertoire ?

Que j'utilise "GetObject" ou "documents.open", cela ne change rien !!
Merci pour votre aide.

[QuestVba]

Bonsoir,

As-tu lu ceci:

• http://silkyroad.developpez.com/Exce...eWordExcel/#LX
• http://heureuxoli.developpez.com/off...ipostage/#LVII

[thierrylosson]

Bonjour,
J'ai bien parcouru vos liens mais rien ne parle de mon problème.
Mon document principal est un fichier contenant du texte et des champs d'une table de ma base de données. Lorsque je lance la procédure de publipostage cela marche. Yes...
Mais lorsque j'installe mon application sur le poste client, le chemin d'accès est différent du mien. Il faut donc mettre à jour le lien de la table dans le document principal. Sniff ...

Mon problème est que lorsque j'ouvre mon fichier (méthode vba : open), il me demande juste après le lien de la base alors que je lui donne cette info dans la ligne de code.
Il me faut donc lui bloquer l'ouverture de cette demande automatique. J'ai cherché dans la base de registre mais rien trouvé en ce sens. Avez-vous une idée ?
Pour info : Je ne souhaite pas créer mon document à partir d'un document principal vierge car je souhaite que l'on puisse créer facilement plusieurs modèle de document. En effet, j'avais vu que l'on pouvait tout coder mais cela manque alors de souplesse dans la création des publipostages.

Cordialement,
Merci pour votre aide.