Discussion :

[wismerhill]

Bonjour,

Je vous expose mon problème :
Grace à une application Access, je dois générer un document Word dont la plupart des informations proviennent de la base de données.

Je définis donc un objet Word_Application

Code :

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

1
2
3
4
 
Public Word_Application As Word.Application
Set Word_Application = CreateObject("Word.Application")
Word_Application.Documents.Open FileName:=Nom_Document

Une fois le fichier ouvert, la suite de la procédure basée sur l'objet Word_Application permet de mettre en page le document et de se déplacer via des recherches de mots-clés par exemple. Jusque là, tout se passe bien.

Le Problème :
Lorsque le programme est en train de générer le document Word, si je lance un autre document Word (nouveau ou existant), la génération Word continue sur le document actif. Je n'arrive pas à le faire rester sur le document concerné.

Avez vous une idée sur le sujet ?
Merci d'avance

[Jean-Philippe André]

salut,
il me semble que passer sur un

Code :

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

New Word.Application

peut être une alternative.

[wismerhill]

J'avais également essayé mais cela ne fonctionne pas mieux.
J'arrive toujours à alterner entre les deux documents Word ce qui implique une écriture dans le document actif.

Cela dit, ce problème n'apparait que si l'on ouvre un nouveau document word après le début du traitement (1 unique processus WINWORD)
Si un document est ouvert avant le traitement, le problème n'apparait pas (car 2 processus WINWORD)

J'ai remarqué que s'il y avait plusieurs processus WINWORD, cela fonctionnait mais en cas d'unicité ==> problème.

[Jean-Philippe André]

Mais pourquoi ne spécifies-tu pas dans ton code le document sur lequel tu travailles ?

Code :

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

Documents("piou")....

[wismerhill]

Si ca ne tenait qu'à moi, c'est ce que j'aurai fait.
Le problème, c'est que nous avons récupéré cette application dans l'état afin de la maintenir et que toute l'application est codée dans ce sens à savoir

Code :

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

1
2
3
4
 
Word_Application.selection.PageSetup.LeftMargin = 70
Word_Application.selection.GoTo What:=wdGoToLine, Which:=wdGoToAbsolute, Count:=Numéro_ligne
Word_Application.selection.HomeKey Unit:=wdLine

Or il n'est pas possible d'effectuer ces opérations sur un objet document mais uniquement sur un objet Word (enfin il me semble).

[Jean-Philippe André]

Et sur le forum Word, tu as regardé s'il existait des alternatives simples à mettre en place ?