Discussion :

[Razmote]

Bonjour à tous,

J'ai développé une application internet en ASP qui vient se greffer sur une application existante écrite avec Access.

L'application faite avec Access fait du publipostage depuis des dizaines de modèles de documents Word, essentiellement des courriers.

Cela fonctionne très bien, chaque poste (une vingtaine) possédant Word sur son PC.

Il faudrait que je fasse la même chose mais en ASP.

j'ai parcouru pas mal de forum et à force je ne sais plus par ou commencer...

J'ai essayé d'utiliser le publipostage de Word directement sur le serveur (Win 2003) en créant un objet : Set WordApp = CreateObject("word.application")Mais l'ouverture de page se fige sans erreur, me bloque IIS et laisse un instance de Winword en cours.
J'ai essayé sur un autre serveur (XP pro) et pareil.

Cette solution avait le gros avantage d'utiliser les mêmes modèles Word mais semble lourde, pas sécurisée et difficile à mettre en place.

Y a t il une alternative ?

Je vais devoir aussi exporter des listes vers le tableur du client connecté par internet, quelle solution utiliser sachant que je ne connaitrais pas quel tableur utilise le client...

Merci pour vos réponses

[roro06]

Bonjour

es-tu sûr qu'il t'est demandé de le faire en ASP et non en ASP.net ?

néanmoins :

pour refermer l'instance winword, effectuer un

Code :

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

set WordApp=nothing

[Razmote]

Salut ,

Oui en ASP, car le site est déja opérationnel et il a été fait en ASP.

Pour ce qui est de l instance Word à fermer avec set WordApp=nothing, le soucis c'est que la page s'ouvre mais elle est blanche et reste bloqué, je suis obligé de fermer le navigateur et de tuer à la main le proccess Winword.exe

Merci pour ta réponse

[roro06]

tu as déjà commencé à coder qqchose ?
quelle versions de winword tu utilises ? (en dessous de 2003, les programmes d'office sont instables en environnement serveur)

[Razmote]

Non je n ai rien codé encore, j'ai bien essayé l automation avec word mais sans succés...

Les tests que j ai fait :
Serveur Windows 2003 et Office 97

Serveur XP PRO et office 2007.

Meme résultat la page est blanche et se fige dans les 2 cas...
Dommage car c'était la solution la plus rapide et simple.

merci pour ta réponse.

[roro06]

ben ...

Si il n'y a pas de code, forcément que la page est blanche ...
de là à dire qu'elle se fige et que IIS se bloque ...

[Razmote]

Haaa j'avais pas compris, j ai cru que tu me demandais si j'avais déja codé quelque chose car tu avais une solution...

En fait j'ai juste fait ça :

Code :

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

1
2
3
4
5
6
7
8
9
 
Set WordApp = CreateObject("word.application")
 
WordApp.Application.Visible = False
Set WordDoc = WordApp.Documents.Open("publi.dot")
 
AppWord.Application.Visible = false
 
AppWord.DisplayAlerts = True

Je précise que le fichier publi.dot existe bien car je m'étais trompé dans le nom et j'avais un message d'erreur...

publi.dot contient les infos pour faire de la publication, mais j'ai essayé avec un simple document sans publication et ça se fige pareil...

Merci

[roro06]

Une fois tu utilises WordApp, une fois AppWord ...

[Razmote]

Re,

En fait c'est bien la même variable mais à force de faire des essais en prenant des exemples d'un coté et d'autres, je me suis emmelé les pinceaux en recopiant le code ici

Voici le code que j ai trouvé :

Bien sur quand j'ouvre le public.dot directement avec Word le publipostage fonctionne bien...

Merci.

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
Set AppWord = CreateObject("Word.Application")
 
 
      AppWord.visible = True
      AppWord.DisplayAlerts = True
 
 
 
Set ActiveDocument = AppWord.Documents.Open("publi.dot")
                ActiveDocument.Activate
                ' **** Ouverture de la source de données
 
 
                ActiveDocument.MailMerge.OpenDataSource("publi.txt")
 
 
               'Paramétrage et lancement du publipostage
 
      With ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument
        .MailAsAttachment = False
        .MailAddressFieldName = ""
        .MailSubject = ""
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
        .Execute True
      End With
 
 
                Set DocumentResultat  = AppWord.ActiveDocument
 
 
'DocumentResultat.PrintOut
DocumentResultat.SaveAs "publi.doc"
DocumentResultat.Save
DocumentResultat.close
 'Fermeture du doc
 
                 ActiveDocument.close
 
AppWord.Application.Quit