Discussion :

[thierry007]

Bonjour a tous

Dans mon petit programme, je remplace des bookmark par des valeurs.
le document s'affiche bien avec Word, valeurs en places.
Lorsque je ferme Word il me demande si je veux enregistrer mon doc, je lui dis NON
MAIS quand je vais voir dans les Process/Task, je vois que Winword.exe apparait le nombre de fois que j'ai lancé ma procédure pour remplir le doc Word.
Y a t'il une raison a cela

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 Dim wdApp As New Word.Application()
 
  wdApp = CreateObject("Word.Application")
 
  With wdApp
 .Documents.Add(_PathTemplates & "\MonDoc.docx")
 .ActiveDocument.Bookmarks("MonBookMark").Range.Text = "Mes données"
...
...
...
 .Visible = True
End With

[clementmarcotte]

Bonjour,

Chaque fois que tu appelles CreateObject, tu lances automatiquement une nouvelle instance de l'application. Pour fermer l'instance ouverte de Word en terminant ton programme, tu as besoin de:

Code :

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

wdapp.quit

après que tu aies fait ce que tu voulais faire avec Word. Habituellement, juste avant le End Sub, cela va bien. Pense aussi à l'utiliser avant un Exit Sub.

Théoriquement, une passe similaire serait suffisante pour Excel, mais Excel est trop tête de cochon pour obéir à si peu.

Si tu es sûr que tu as une instance de Word en fonction, tu peux l'utiliser au lieu d'en créer une autre:

Remplace ta ligne:

Code :

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

wdApp = CreateObject("Word.Application")

par:

Code :

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

wdApp = GetObject(,"Word.Application")

[thierry007]

Bonjour clementmarcotte

Merci de ta participation

Quand je place le wdapp.quit juste avant le end sub, word demande s'il faut sauver le document, hors je souhaite encore pouvoir le modifier avant impression

serait-il possible de tester si Word serait déjà ouvert?

[clementmarcotte]

Bonjour,

Là, mon VS est en panne royale, mais, la classe Process du Framework permet de repérer et de gérer les processus.

Ceci dit, il y a moyen de fermer Word sans qu'il pose la question.

C'est l'exemple en VBA, qu'il faut adapter à VB.net, mais l'idée de base est là:

Exemple


Cet exemple montre comment fermer Word et inviter l'utilisateur à enregistrer tous les documents modifiés depuis le dernier enregistrement.

Visual Basic pour Applications
Application.Quit SaveChanges:=wdPromptToSaveChanges

les constantes possibles, et leur valeur numérique sont :

wdDoNotSaveChanges = 0
wdPromptToSaveChanges = -2
wdSaveChanges = -1

En principe automation ne permet pas de transférer le nom des constantes, mais juste les valeurs numériques. Si tu veux "tricher" et absolument utiliser les noms des constantes, tu peux les "recréer" avec Const, ou dans une énumération.