OVH Cloud OVH Cloud

lancer Word en VB.NET

3 réponses
Avatar
Pastis
Bonjour,
Je g=E9n=E8re actuellement un document word =E0 partir d'un=20
site en ASP.NET. Jusqu'ici tout va bien. Je d=E9sire qu'=E0 la=20
fin de cette g=E9n=E9ration, l'application word s'ouvre et=20
m'affiche le document que je viens de cr=E9er. J'ai essayer=20
les Word.Application.Activate mais il l=E8ve une exception=20
et me dit que l'activation est impossible.

Pouvez-vous m'aider ?

3 réponses

Avatar
Frederic Melantois
Bonjour,

<code>
....
Dim wordApp As ApplicationClass = New ApplicationClass
....
wordApp.Visible = True
</code>

Mais je déconseille l'automation word sur un serveur Web. Ce n'est pas fait
pour. A la multiplication des clients, ça devient vite trop lourd pour le
serveur.

Frédéric Mélantois

"Pastis" a écrit dans le message de
news:1e34101c4552b$a08a7640$
Bonjour,
Je génère actuellement un document word à partir d'un
site en ASP.NET. Jusqu'ici tout va bien. Je désire qu'à la
fin de cette génération, l'application word s'ouvre et
m'affiche le document que je viens de créer. J'ai essayer
les Word.Application.Activate mais il lève une exception
et me dit que l'activation est impossible.

Pouvez-vous m'aider ?
Avatar
Merci pour ta réponse mais cela ne marche toujours pas.

Voici mon code :

Dim AppWord As Word.ApplicationClass
Dim DocWord As Word.Document

AppWord = New Word.ApplicationClass
AppWord.Visible = True
Consultant = Cons

DocWord = AppWord.Documents.Add

....

s'ensuit le traitement du document qui se fait
correctement mais l'application word n'est visible à aucun
moment ...
Avatar
Frederic Melantois
L'application est visible sur le serveur grâce à "AppWord.Visible = True",
évidemment pas chez le client.

Votre 4ème argument de AppWord.Documents.Add est-il bien à 1 ? car il
correspond à la visibilité du document ?

<code>
...
Dim obj4 As Object = 1
...
AppWord.Documents.Add(AddressOf obj2, AddressOf obj3, AddressOf obj1,
AddressOf obj4)
</code>

Frédéric Mélantois

a écrit dans le message de
news:1e79301c4552f$a61fc3e0$
Merci pour ta réponse mais cela ne marche toujours pas.

Voici mon code :

Dim AppWord As Word.ApplicationClass
Dim DocWord As Word.Document

AppWord = New Word.ApplicationClass
AppWord.Visible = True
Consultant = Cons

DocWord = AppWord.Documents.Add

....

s'ensuit le traitement du document qui se fait
correctement mais l'application word n'est visible à aucun
moment ...