Discussion :

[insosama]

Bonjour

Il faut croire que le comportement d'une version à l'autre ou Celon les réglage utilisateur peu différer.

Chez moi j'ai bien plusieurs instance
Et je dois être sûre que mon code soit résilient, je ne sais ni quel version d'excellente ferra tourner mon code, encore moins les réglages utilisateurs.

J'en suis donc toujours à pouvoir pointer mon documents et ce quelque soit l'instance ou il est ouvert.

[Daniel.C]

Après avoir ouvert manuellement plusieurs documents, quand tu exécutes le dernier code que je t'ai fourni, quel résultat obtiens-tu ?

[insosama]

Bonjour

1, 2 ... Rarement le total des fichiers ouvert.
Je suis absolument sûre de moi quand je dis que je suis multi instancié

La routine que j'ai proposé (la seule qui fonctionne) en est la preuve : pour avoir la liste complète des fichiers ouvert je ferme une à une toute les instances ouverte. J'en ai donc plusieurs

La msgbox de résultat de la fonction liste bien plusieurs instance avec un ou quelques fichier dans chacune.

Cordialement.

[Daniel.C]

Bon, je viens de réinstaller Word 2007. J'ai ouvert manuellement 2 documents et j'ai exécuté le code suivant :

Code :

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

1
2
3
4
5
6
7
Sub test()
Dim WordApp As Object
Set WordApp = GetObject(, "Word.Application")
MsgBox WordApp.Documents.Count
WordApp.Quit
Set WordApp = Nothing
End Sub

Le message indique bien 2 documents dans l'instance. "WordApp.Quit" ferme Word et les deux documents. Ton bout de code ne prouve rien. Que tu aies une ou plusieurs instances, il réagirait pareil. La seule différence pourrait venir du système d'exploitation. Je teste avec Windows 7; et toi ?

[clementmarcotte]

Bonjour,

Je pensais que j'avais quelque chose pour passer en revue les différentes instances d'une même application, mais je ne l'ai pas retrouvé. Ceci dit, j'ai pondu ceci. Ce n'est pas vraiment différent de ce qui a été fait avant mais bon.

Comme j'ai dit dans la macro, il faut ajouter la référence à Word. Le programme permet de faire ouvrir un ou plusieurs fichiers avec une nouvelle instance de Word et de les afficher dans un listbox. Une fois le fichier sélectionné dans le listbox, Word (2010) sélectionne le document, sans le rouvrir et se rend à la page 3.

Tel qu'il est rédigé, la fermeture de l'application, ne ferme pas Word, mais cela peut se corriger. Pour le reste je vais regarder de nouveau.

[clementmarcotte]

Bonjour,

Es-ce vraiment nécessaire de faire le programme dans Excel et en VBA ?

Parce que VB.net est mieux "équipé" pour zigonner dans les processus. Tu peux télécharger gratuitement VB2012 Express pour Desktop (et même une beta de VS2013) sur le site de Microsoft.

[insosama]

oui, cela etait necessaire.

et si, ma petite routine est une preuve.
puisqu'elle fonctionne en "tuant" les processus un a un d'excel ouvert et en listant les fichier du "nouveau dernier processus d'excel" trouvé ... si elle boucle plus d'une fois, c'est qu'il y a plus d'un processus.

je me suis quand meme bien assuré de ce que je formulais avant de poser ma requete.
toutefois, j'ai fini par trouver la réponse.

je n'arrive toujours pas a lister TOUT les documents ouvert a un moment T en "passant par dessus" l"éventualité d'un multi process

la question reste malheureusement en suspens, alors que je pense qu'elle serait pourtant particulierement utile dans bien des cas ... l'avantage d'un tel code est sa résilience. car meme si vous ne me croyez pas (ou certains) (et n'y voyez la aucun ombrage ou attaque personnelle, ce n'est absoluement pas mon envie que de froisser les personnes qui ont cherché à m'aider dans ces pages !!!) le fait est que j'ai recensé sur le wouaib d'autre complainte du meme genre que la mienne, preuve s'il en est que sur "certain" pc et chez "certaine" personne, pour X ou Y raison, plusieurs process se lancent bel et bien ... un tel code de listing serait donc "réellement" portable en toute circonstance ... donc ... resilient.
de quoi remplacer le "code de base" proposé un peu partout, et donc visiblement pas a 100% portable en toute circonstance. dommage !!!

toutefois, j'ai bien réglé mon probleme de base.
la meilleur suggestion revient a clementmarcotte :

Si tu as plusieurs fichiers d'ouverts, il y a une instruction quelque part dans VBA Word qui permet de sélectionner un document Word par son nom. Sauf horreur de ma part, parce que cela bien longtemps que je n'ai pas fait de programmation sérieuse avec Word, cela te prendrait une ligne de ce genre-là:

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

1
2

appword.windows("Arthur").select ta ligne pour atteindre ta page ici

In Fine, c'etait bien la meilleur proposition, simplement mes premiers essais avaient été des echec, parce que j'avais mal lu la doc.

a défaut, donc, de lister les document ouvert, si on sait ce qu'on cherche, on peu au moins verrifier qu'il est ouvert et si tel est le cas, le pointer.

la vraie syntaxe est :

Code :

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

1
2
3
 
Adr = "C:\mon_doc.doc"
Set WordApp = GetObject(Adr)

mon erreur de base, et ce que j'avais mal compris de la documentation officielle de GetObject (malgrès un nombre de lecture rageuse -c'est peut etre ca, le probleme- incalculable), c'est que je pensais devoir additionner les deux paramètre.
hors, apparement ...

Code :

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

1
2
3
 
Adr = "C:\mon_doc.doc"
Set WordApp = GetObject(Adr, "Word.Application")

=> NE FONCTIONNE PAS.

voila, en esperant que ceci pourra servir a quelqu'un, et sauf si une personne trouve un code qui permette de réellement lister tout les fichiers ouvert qui soit vraiment resilient, notament dans le cas d'un processus multiple ouvert ... je pense clore le débat.

merci a tous, et dsl pour le retard, j'etais en déplacement pro entre temps.