Discussion :

[mourad.zamoun]

Bonjour
je suis "débutant" sous vb6;
je connais deux méthodes pour ouvrir word :

meth1)

Code :

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

Set wordObj = CreateObject("Word.Application")

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

meth2)

Code :

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

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

[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

[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

[Delbeke]

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

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
 
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

[DarkVader]

.../...
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 ?

[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

et avec DisplayAlerts ?

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

merci qd meme

[DarkVader]

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

merci qd meme

cela ne dispense pas d'une gestion de traitement des erreurs

[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.