référence objet et pid lors d'une création d'une application word

Version imprimable

30/06/2008, 17h38
mourad.zamoun

référence objet et pid lors d'une création d'une application word
Bonjour
je suis "débutant" sous vb6;
je connais deux méthodes pour ouvrir word :

meth1)

Code:

Set wordObj = CreateObject("Word.Application")

ça permet d'avoir une ref objet de l'application word ouverte.

meth2)
Code:

1 2 Set objWMIService = GetObject("winmgmts:\\.\root\cimv2:Win32_Process") objWMIService.Create pathWordExe, Null, Null, pid
ça permet d'avoir le pid de l'application word ouverte.

Question1: y'a t-il un moyen d'avoir une seule méthode qui donne les deux : wordObj et pid ???

Question2: dans la meth2, que peut on mettre à la place des deux Null ??

A++
Mourad :)
30/06/2008, 22h38
Delbeke

Je ne vois pas bien ce que t'apporteras d'obtenir le Pid de Word.
Si c'est pour fermer word à volonté, ce n'est pas la bonne méthode. Word est une application multidocuments, Si tu lances Word alors d'il est déjà actif, c'est la première occurence de Word qui se charge d'afficher le document et ton instance est supprimée, donc le pid que tu obtiendras ne corespondra pas au Word actif. S'il n'est pas actif et qu'un utilisateur ouvre un document apres que tu aies lancé ta commande, un kill du Word ne va pas forcément lui plaire.

Il y a probablement une Faq ou un Tutoriel sur Developez. Fais une recherche sur le site genre : Pilotage Word
01/07/2008, 11h52
mourad.zamoun

Merci delbeke pour ta réponse :)

ce que tu as dit est vrai , mais ca ne répond pas à mon besoin:

en fait j'ai une appli qui ouvre word pour faire du publipostage ;
et des fois ca se passe mal (image corrompu a inserer , ...) et word bloque et ouvre une boite de dialog d'erreur: du coup l'application bloque et il n ya qu'un click manuel pour fermer la boite de dialogue ou un kill du processus word.

du coup je voulais automatiser la fermeture "forcée" du document en erreur afin de laisser le traitement tourner pour les autres.

donc mon besoin est d'abord d'ouvrir une nouvelle Application ( nouveau processus) word dans laquelle se font mes publipostages.

est ce possible ?

A++
Mourad :)

Essaye de voir si tu peux t'en tirer avec ce code

Code:

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
 
Option Explicit
 
Dim WithEvents appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
Dim ExcelClosable As Boolean      'flag mis à false tant que l'on a pas décidé
 
Private Sub appExcel_WorkbookBeforeClose(ByVal Wb As Excel.Workbook, Cancel As Boolean)
  If Wb Is wbExcel Then
    If Not ExcelClosable Then
      'pas ok , on refuse la fermeture
      Cancel = True
    Else
      'ok on laisse fermer
    End If
  End If
End Sub
 
Private Sub FermerDocument()
  ExcelClosable = True
  wbExcel.Close False 'fermeture sans enegistrement
  If appExcel.Workbooks.Count = 0 Then
    appExcel.Quit
  End If
  Set wsExcel = Nothing
  Set wbExcel = Nothing
  Set appExcel = Nothing
End Sub
Private Sub OuvreDocument(FileName As String)
  ExcelClosable = False
  Set wbExcel = appExcel.Workbooks.Open(FileName)
  Set wsExcel = wbExcel.Worksheets(1)
End Sub

02/07/2008, 09h42
DarkVader

Citation:

Envoyé par mourad.zamoun

.../...
et word bloque et ouvre une boite de dialog d'erreur: du coup l'application bloque et il n ya qu'un click manuel pour fermer la boite de dialogue ou un kill du processus word.
.../...

et avec DisplayAlerts ?
02/07/2008, 12h32
mourad.zamoun

merci Delbeke pour ta reponse; mais
chez moi (vb6), il n y a pas de type Excel.Application ou Word.Application !?

j'ai trouvé une solution qui permet d'avoir l'objet word qui vient de CreateObject et son pid
j'attend le resultat des tests pour savoir si c bon :)

l'idee est de comparer la date de creation de l'objet via CreateObject et de la comparer avec CreationDate des processus winword.exe en cours: voir win32_class.

avec ca, on peut trouver le bon pid.

voila en gros.

merci encore
a++
Mourad :)

Citation:

Envoyé par DarkVader

et avec DisplayAlerts ?

j'ai utilisé ça mais ça ne fait rien !

merci qd meme :)
02/07/2008, 13h34
DarkVader

Citation:

Envoyé par mourad.zamoun

j'ai utilisé ça mais ça ne fait rien !

merci qd meme :)

cela ne dispense pas d'une gestion de traitement des erreurs
02/07/2008, 14h46
mourad.zamoun

meme en rajoutant la gesion d'erreur, le Quit ne réussit pas fermer word lorqu'il ya une boite de dialogue deja ouverte.
c vrai que la je teste avec une boite de dialog qui n'est pas de type erreur, mais juste celle qui permet d'ouvrir un fichier.